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


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Enumerar todos los archivos		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Enumerar todos los archivos  (Leído 7,235 veces)
^_^

Desconectado Desconectado

Mensajes: 13


Ver Perfil
Enumerar todos los archivos
« 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! ;)..
En línea
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Enumerar todos los archivos
« Respuesta #1 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
En línea
The Dark Shadow is my passion.
burbu_1

Desconectado Desconectado

Mensajes: 159


hamen gaoz


Ver Perfil
Re: Enumerar todos los archivos
« Respuesta #2 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
En línea
Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: Enumerar todos los archivos
« Respuesta #3 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


S2
En línea
Adrian Desanti
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Enumerar todos los archivos
« Respuesta #4 en: 4 Septiembre 2009, 06:39 am »
el dir() se me pasa por alto, igual con, es mas facil xP
En línea
The Dark Shadow is my passion.
Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: Enumerar todos los archivos
« Respuesta #5 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
« Última modificación: 4 Septiembre 2009, 20:19 pm por Dessa » En línea
Adrian Desanti
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Doi acceso a todos los archivos en FTP
Hacking 		kasail 2 2,408 Último mensaje 7 Mayo 2014, 15:53 pm
por dantemc
Enumerar directorio por FTP (WinAPI)
Programación C/C++ 		mester 1 1,836 Último mensaje 9 Diciembre 2015, 19:41 pm
por mester
Ayuda: Enumerar ficheros
.NET (C#, VB.NET, ASP) 		Tomas1982 5 2,912 Último mensaje 15 Septiembre 2016, 15:01 pm
por Lekim
MOVIDO: Ayuda: Enumerar ficheros
Programación Visual Basic 		Eleкtro 0 2,345 Último mensaje 14 Septiembre 2016, 17:43 pm
por Eleкtro
Ver todos los archivos y extraerlos con python
Scripting 		TheIllusionist 3 2,701 Último mensaje 24 Abril 2017, 07:27 am
por Once
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines