mFileExists.bas [Tan rustico como se pueda :D]

Iniciado por Elemental Code, 1 Febrero 2011, 22:28 PM

0 Miembros y 2 Visitantes están viendo este tema.

raul338

#10

y porque no estoy en la lista? :xD

Por ahora los resultados :P



Psyke1

Es verdad, faltas tú en la lista... ;)
Soprendentes resultados... :o

DoEvents! :P

79137913

#12
HOLA!!!


1)ACTUALIZADO CON LA FUNCION DE Tokes
2)ACTUALIZADO CON LA NUEVA VERSION DE KarCrack
3)ACTUALIZADO CON LA FUNCION MODIFICADA DE Raul (de la de KarCrack)
4)AMPLIADO EL BUCLE A 2000 VUELTAS
5)AGREGADA LA FUNCION MODIFICADA DE Mr.Frog (de la de Raul  de la de KarCrak)


La tabla (como la de Raul):

"*****TEST HECHO POR 79137913******"
**PRUEBA CON ARCHIVO QUE SI EXISTE**
7913: 37,008 msec
LeaA: 10,142 msec
E__C: 11,866 msec
Frog: 30,928 msec
KarC: 9,092 msec
Toke: 46,173 msec
Raul: 8,828 msec       Mod de la de KarCrack
Frg2: 8,795 msec       Mod del mod de Raul
**PRUEBA CON ARCHIVO QUE NO EXISTE**
7913: 32,126 msec
LeaA: 14,285 msec
E__C: 23,763 msec
Frog: 30,927 msec
KarC: 13,112 msec
Toke: 41,872 msec
Raul: 12,836 msec       Mod de la de KarCrack
Frg2: 12,700 msec       Mod del mod de Raul



GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Tokes

Bueno, aquí pongo otra forma de hacerlo. No sé si funcione para todas las clases de archivos, pero de igual forma lo dejo.

Private Function Existe(nombre As String) As Boolean
On Error Resume Next
    Open nombre For Input As #1
        If Err.Number Then Exit Function
    Close #1
    Existe = True
End Function


Saludos a todos.

Psyke1

@79137913
Esos resultados me encajan más... :rolleyes:

DoEvents! :P

BlackZeroX

.
:xD :laugh: lol ya todo lo toman como reto xP.

Dulces Lunas!¡.
The Dark Shadow is my passion.

Psyke1

Jajajajjajajajja :laugh:
Yo personalmente no :xD
Todas las formas que ponemos están más vistas que yo que sé... :rolleyes:
Lo que si me interesaba era la manera mas rápida de hacerlo... :P

DoEvents! :P

Karcrack



Código (vb) [Seleccionar]
Option Explicit
'KERNEL32
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long

Public Function DoFileExists(ByRef sPath As String) As Boolean
   DoFileExists = CBool(GetFileAttributesW(StrPtr(sPath)) <> -1)
End Function

:rolleyes: Y su no supera a la de Leandro me avisais y le meto un TLB o me paso a NT... porque de ASM olvidaros :laugh: :laugh: :silbar:

79137913

HOLA!!!

Tabla actualizada   ::)

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Edu

Que estan haciendo? donde se fijan la velocidad o q hacen? xD