elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  mFileExists.bas [Tan rustico como se pueda :D]		0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 [2] 3 Ir Abajo Respuesta Imprimir
Autor Tema: mFileExists.bas [Tan rustico como se pueda :D]  (Leído 10,438 veces)
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #10 en: 3 Febrero 2011, 15:51 pm »

y porque no estoy en la lista? :xD

Por ahora los resultados :P
« Última modificación: 3 Febrero 2011, 15:53 pm por raul338 » En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #11 en: 3 Febrero 2011, 16:00 pm »
Es verdad, faltas tú en la lista... ;)
Soprendentes resultados... :o

DoEvents! :P
En línea
http://foro.h-sec.org/
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #12 en: 3 Febrero 2011, 17:13 pm »
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:
"*****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!!!
« Última modificación: 7 Febrero 2011, 13:25 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*
Tokes

Desconectado Desconectado

Mensajes: 140


Ver Perfil
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #13 en: 3 Febrero 2011, 19:09 pm »
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:
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.
En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #14 en: 3 Febrero 2011, 21:02 pm »
@79137913
Esos resultados me encajan más... :rolleyes:

DoEvents! :P
En línea
http://foro.h-sec.org/
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #15 en: 4 Febrero 2011, 08:50 am »
.
 :xD :laugh: lol ya todo lo toman como reto xP.

Dulces Lunas!¡.
En línea
The Dark Shadow is my passion.
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #16 en: 4 Febrero 2011, 09:10 am »
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
En línea
http://foro.h-sec.org/
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #17 en: 4 Febrero 2011, 11:23 am »


Código
  1. Option Explicit
  2. 'KERNEL32
  3. Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long
  4.  
  5. Public Function DoFileExists(ByRef sPath As String) As Boolean
  6.     DoFileExists = CBool(GetFileAttributesW(StrPtr(sPath)) <> -1)
  7. 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:
En línea
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #18 en: 4 Febrero 2011, 12:10 pm »
HOLA!!!

Tabla actualizada   ::)

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*
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: mFileExists.bas [Tan rustico como se pueda :D]
« Respuesta #19 en: 4 Febrero 2011, 15:08 pm »
Que estan haciendo? donde se fijan la velocidad o q hacen? xD
En línea
Páginas: 1 [2] 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Que no se pueda ni maximizar ni minimizar una ventana en swish?????Como?
Diseño Gráfico 		malacara 7 5,992 Último mensaje 4 Marzo 2005, 03:05 am
por Azielito
HAY ALGUNA VARIABLE QUE SE PUEDA PONER COMO VALOR UNA "
Programación Visual Basic 		IvanUgu 2 1,655 Último mensaje 10 Julio 2005, 02:25 am
por IvanUgu
como pasar un cd de multimedia a un dvd y que se pueda leer en cualquier aparato
Multimedia 		kiek_2006 1 1,761 Último mensaje 27 Diciembre 2005, 21:56 pm
por Songoku
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines