• Domingo 22 de Diciembre de 2024, 22:33

Autor Tema:  Re: archivo  (Leído 1151 veces)

SpeedCAD

  • Miembro activo
  • **
  • Mensajes: 76
    • Ver Perfil
    • http://webcindario.com/speedcad
Re: archivo
« en: Viernes 14 de Marzo de 2003, 14:05 »
0
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
Un saludo de SpeedCAD... \":)\"
CHILE
http://webcindario.com/speedcad

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: archivo
« Respuesta #1 en: Viernes 14 de Marzo de 2003, 19:26 »
0
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

SpeedCAD

  • Miembro activo
  • **
  • Mensajes: 76
    • Ver Perfil
    • http://webcindario.com/speedcad
archivo
« Respuesta #2 en: Viernes 14 de Marzo de 2003, 20:01 »
0
Hola...

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

Muchas gracias... :kiss:

Un saludo de SpeedCAD...:)
CHILE
Un saludo de SpeedCAD... \":)\"
CHILE
http://webcindario.com/speedcad