| Usuario |
Recorrer los ficheros de un direct... |
Desconocido
|
| Enviado - 15/6/2004 |
| |
Necesito poder recorrer uno a uno los ficheros de un directorio para poder ver su extension y su nombre y realizar distintas opciones segun el tipo de fichero que sea. Como podria hacer esto???
Gracias por la ayuda. |
| |
|
Desconocido
|
| Enviado - 15/6/2004 |
| |
Utiliza el dirlistbox y el file listbox
Si tienes mas dudas o deseas mas aclaraciones o ideas o necesitas que te ayuden en tu proyecto te esperamos en el foro de www.okrsistemas.com, no te preocupes en el foro no cobramos ;-)
OKR
www.okrsistemas.com
|
| |
|
DrNo
31 Mensaje(s)
|
| Enviado - 16/6/2004 |
| |
Con el FileList, podés hacer asi:
-------- 8< --------
Private Sub Form_Load
File1.Path = "c:\path_de_los_archivos\"
File1.Pattern = "*.*"
'con esto se te carga el file con todos los archivos en la ruta correspondiente.
For i = 0 To File1.ListCount - 1
If Right(File1.List(i),3) = "txt" Then
'acciones de arch´s .txt...
ElseIf Right(File1.List(i),3) = "mp3" Then
'acciones de arch´s .mp3...
ElseIf Right(File1.List(i),3) = "avi" Then
'acciones de arch´s .avi...
Else
'acciones de arch´s no reconocidos
End If
Next i
'este for pasa por toda la lista (0 to .count) y va tomando decisiones (if...) evaluando los 3 ultimos caracteres del nombre de archivo (right(),3).
End Sub
-------- 8< --------
Bien, espero que te haya ayudado.
DrNo.
|
| |
|
Desconocido
|
| Enviado - 17/6/2004 |
| |
Gracias a los dos. Ya lo he hecho. Y funciona perfectamente.
Un saludo y muchas gracias |
| |
|
