Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ^_^ en 3 Septiembre 2009, 08:54 am

Título: Enumerar todos los archivos
Publicado por: ^_^ en 3 Septiembre 2009, 08:54 am

Saludos, bueno necesito que alguien me diga como puedo enumerar los archivos de cualquier carpeta que quiera, escuche mas o menos sobre las APIs FindFirstFile, etc.. y busque ejemplos de ella en google, pero lo que encontre no lo entendi mucho depaso de que eran unos codes demasiado largos.

Pues queria saber si alguein me daba un ejemplo "sencillo" de como usar esas APIs o me da otro metodo para poder enumerar los archivos de una carpeta, gracias! ;)..

Título: Re: Enumerar todos los archivos
Publicado por: BlackZeroX en 3 Septiembre 2009, 11:47 am

solo te dejo este links, las apis hay estan con un ejemplo.

http://allapi.mentalis.org/apilist/f.shtml

Dulces Lunas

Título: Re: Enumerar todos los archivos
Publicado por: burbu_1 en 3 Septiembre 2009, 16:39 pm

hola,
tambien puedes poner un control FileListBox, eliges la carpeta que quieres con file1.path, y recorres los archivos

Código:

Dim i As Integer
Private Sub Form_Load()
'eliges la carpeta
File1.Path = InputBox("Escribe la ruta de la carpeta")
'y recorres los archivos del filelistbox
If File1.ListCount <> 0 Then
    For i = 0 To File1.ListCount - 1
        MsgBox File1.List(i)
    Next i
Else
    MsgBox "no hay archivos"
End If
End Sub

saludos

Título: Re: Enumerar todos los archivos
Publicado por: Dessa en 3 Septiembre 2009, 17:57 pm

otra opción

Código:


Dim archivos As String
archivos = Dir("C:\Windows\")

While archivos <> ""
  MsgBox archivos
  archivos = Dir
Wend

Título: Re: Enumerar todos los archivos
Publicado por: BlackZeroX en 4 Septiembre 2009, 06:39 am

el dir() se me pasa por alto, igual con, es mas facil xP

Título: Re: Enumerar todos los archivos
Publicado por: Dessa en 4 Septiembre 2009, 12:09 pm

Si Black, Dir es solo otra opcion, depende el caso, a veces es mas practico y a veces no tanto.

S2