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

[79137913]

HOLA!!!

La velocidad CTiming.cls pruebo todas las funciones con un bucle de 2000 vueltas C/U.

El Proyecto:
http://www.mediafire.com/?216807hihkz79sb

GRACIAS POR LEER!!!

[Edu]

Unas preguntas, perdonen si me voy del tema..
Porque 200 vueltas?
Para usarlo tengo que cambiar todo el main solamente entonces?
Porque pusiste esto en el proyecto:

Código (vb6) [Seleccionar] Expandir


Private Function KarCrackDoFileExists(ByVal sPath As String) As Boolean
    DoFileExists = CBool(GetFileAttributesW(StrPtr(sPath)) <> -1)
End Function


Se puede hacer eso? se llama KarCrackDoFileExists la funcion y usas el DoFileExists para devolver el valor

[raul338]

Lo tomo como reto porque le da un poquito de picante al tema

Porque 200 vueltas? porque si compruebas un solo archivo lo hace tan rapido que ni nos damos cuenta. En otros retos sirve

Para usarlo tengo que cambiar todo el main solamente entonces? no solo copiar la funcion y llamarla

Código (vb) [Seleccionar] Expandir


Sub Main
   Msgbox KarCrackDoFileExists("C:\autoexe.bat")
End Sub

Private Function KarCrackDoFileExists(ByVal sPath As String) As Boolean
    ' Tiene que tener el mismo nombre
    KarCrackDoFileExists= CBool(GetFileAttributesW(StrPtr(sPath)) <> -1)
End Function


[79137913]

HOLA!!!

xD Se me paso lo de KarCrack. ahora lo vuelvo a subir... (link de arriba)

GRACIAS POR LEER!!!

[LeandroA]

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

[Edu]

En realidad pregunte lo de la funcion de Karcrack porq talvez al cambiarla no son los mismos datos q da.

Y gracias por contestar profe xD

[raul338]

Código (vb) [Seleccionar] Expandir


Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long

' LeandroA mod Karcrack mod Raul338 xD
Public Function DoFileExistsR(sPath As String) As Boolean
   DoFileExistsR = GetFileAttributesW(StrPtr(sPath)) <> -1
End Function

DirectCast FTW!

[Karcrack]

jajajajja LeandroA!! jajajaj Lo copaste como dirias tu

raul338 Te odio!!

[79137913]

HOLA!!!

TABLA Y LINK ACTUALIZADOS!  

GRACIAS POR LEER!!!

[Psyke1]

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long

' LeandroA mod Karcrack mod Raul338 mod Mr.Frog
Public Static Function DoFileExistsRII(ByRef sPath As String) As Boolean
   DoFileExistsRII = (GetFileAttributesW(StrPtr(sPath)) > -1)
End Function

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

DoEvents!