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

[raul338]

y porque no estoy en la lista?

Por ahora los resultados

[Psyke1]

Es verdad, faltas tú en la lista...
Soprendentes resultados...

DoEvents!

[79137913]

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):

Código [Seleccionar] Expandir


"*****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!!!

[Tokes]

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

Código [Seleccionar] Expandir

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...

DoEvents!

[BlackZeroX]

.
lol ya todo lo toman como reto xP.

Dulces Lunas!¡.

[Psyke1]

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

DoEvents!

[Karcrack]

Código (vb) [Seleccionar] Expandir

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
Y su no supera a la de Leandro me avisais y le meto un TLB o me paso a NT... porque de ASM olvidaros

[79137913]

HOLA!!!

Tabla actualizada   

GRACIAS POR LEER!!!

[Edu]

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