SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: SpeedCAD en Viernes 14 de Marzo de 2003, 14:05

Título: Re: archivo
Publicado por: SpeedCAD en Viernes 14 de Marzo de 2003, 14:05

Hola...

Mi pregunta es la siguiente:

Resulta que quiero extraer desde un directorio todos los nombres archivos pero de una extension determinada, por ejemplo, *.txt, luego de leer todos los nombres de los archivos *.txt, esta lista crearla en un archivo aparte, por ejemplo el archivo resultante contendria lo siguiente:

texto.txt
hola.txt
datos.txt
...
...

Espero que se alla entendido...

Un saludo de SpeedCAD...:)
CHILE

Título: Re: archivo
Publicado por: J.M.Movilla en Viernes 14 de Marzo de 2003, 19:26

A ver si te sirve:

Abre un FileList y define en sus propiedades:

FileList.Path = "MiRuta"
FileList.Pattern = "*.txt"
FileList.Visible = False

Open App.Path & "Datos.dat" For Output As #1

For n = 0 to FileList.ListCount - 1
     Write #1, FileList.List (n) & vbCrLf
Next n

Close #1

___________________

El fichero Datos.dat debe contener el nombre de todos los ficheros de extensión .txt que existan en el directorio definido como "MiRuta"

Saludos

Título: archivo
Publicado por: SpeedCAD en Viernes 14 de Marzo de 2003, 20:01

Hola...

Excelente, eso era justo lo que queria...:good:

Muchas gracias... :kiss:

Un saludo de SpeedCAD...:)
CHILE