 Autor
|
Tema: mFileExists.bas [Tan rustico como se pueda :D] (Leído 11,143 veces)
|
79137913
 Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! La velocidad CTiming.cls pruebo todas las funciones con un bucle de 2000 vueltas C/U. El Proyecto: http://www.mediafire.com/?216807hihkz79sbGRACIAS POR LEER!!!
|
|
|
|
« Última modificación: 7 Febrero 2011, 13:28 pm por 79137913 »
|
En línea
|
"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
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
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: 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
|
|
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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 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
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
xD Se me paso lo de KarCrack. ahora lo vuelvo a subir... (link de arriba)
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"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*
|
|
|
|
LeandroA
|
 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  
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
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
|
|
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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! 
|
|
|
|
|
En línea
|
|
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! TABLA Y LINK ACTUALIZADOS!  GRACIAS POR LEER!!! |
|
|
|
« Última modificación: 7 Febrero 2011, 13:30 pm por 79137913 »
|
En línea
|
"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*
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
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): "*****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! 
|
|
|
|
« Última modificación: 7 Febrero 2011, 16:23 pm por Mr. Frog © »
|
En línea
|
|
|
|
|
 |
Te odio!! 
