Lanzar una busqueda

Iniciado por dimitrix, 21 Enero 2007, 16:00 PM

0 Miembros y 1 Visitante están viendo este tema.

Red Mx

Cita de: dimitrix1 en 21 Enero 2007, 23:18 PM

espero que pongas los nombres de quienes te pasan lo codigos por que en el autor solo veo dimitrix1 y asi como que lo programas tu no tanto solo pegas los codigos.  ;D
Desarrollar Malware Es Causa De Cancer...

dimitrix

Haber listo.

1º Como lo vas ha ver, si no lo he copilado?
2º Al final no voy a utilizar el codigo este, lo hare por sendkeys




CeLaYa

#12
vaya!! parece que la función "PathTo" se ha hecho muy popular, aparece en un monton de post, y a todo esto.....

Cita de: Red Mx en 22 Enero 2007, 22:03 PM
Cita de: dimitrix1 en 21 Enero 2007, 23:18 PM

espero que pongas los nombres de quienes te pasan lo codigos por que en el autor solo veo dimitrix1 y asi como que lo programas tu no tanto solo pegas los codigos.  ;D

yo creo que ese código lo sacarón de la ayuda del visual (es casi igual), asi que no creo que haga falta citar a algún autor


Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI"  si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")   

' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")

' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir

' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\"   ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory)   ' Recupera la primera entrada.
Do While MiNombre <> ""   ' Inicia el bucle.
   ' Ignora el directorio actual y el que lo abarca.
   If MiNombre <> "." And MiNombre <> ".." Then
      ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
      If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
         Debug.Print MiNombre   ' Muestra la entrada
      End If   ' solamente si representa un directorio.
   End If
   MiNombre = Dir   ' Obtiene siguiente entrada.
Loop



"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.