alguna idea

[Bourne Ultimatum]

tengo un programa el cual entra a una carpeta y abre los archivos y los le la cuestion es esta son 80 archivos q se pueden hacer pero con el metodo q hice solo me abre hasta donde hay archivos x ejemplo si tengo del 1 al 11 y del 13 al 17 nunca me va a leer del 13 para ariba x q al faltar el 12 va a Fallo

me gustaria saber alguna manera para q yo no tenga q poner Open 1, open 2, open 3 y asi hasta 80 sino q el programa solo haga una lista de los archivos q hay y los abra de forma ordenada tirando los datos a la pantalla
aca les paso el codigo q tengo yo

Código [Seleccionar] Expandir


Private Sub cmd1_Click()
Dim tt As String
Dim bu
Set bu = CreateObject("Wscript.shell")
tt = bu.regread("HKEY_CURRENT_USER\Software\Microsoft\Tdf\dir")
On Error GoTo Fallo2
Open tt & 1 For Input As #5
Close #5
Open tt & 1 For Binary As #7
Get #7, 740, dato37
Get #7, 20, dato2
Close #7
l1.Caption = dato37
l2.Caption = dato2
Exit Sub
Fallo2: cmd1.Caption = "&Buscar"
Fallo: cmd1.Caption = "&Buscar"
End Sub


[goodbye]

Use un control FileListBox y un Button para el ejemplo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()

    File1.Path = App.Path ' Aqui le puedes cambiar a la ruta de tu carpeta

    Dim i, RutaFile

    For i = 0 To File1.ListCount - 1

        RutaFile = File1.Path & "\" & File1.List(i)

        Open RutaFile For Binary As #1
            Get #1, 740, dato37
            Get #1, 20, dato2
        Close

    Next i

End Sub


Para explicar un poco lo que hago: Primeramente uso el control FileListBox para obtener los nombres de todos los archivos contenidos en un Path (aqui lo tengo con el directorio actual donde se ejecute), luego anido el Open dentro de un bucle For quien le va pasando en cada vuelta cada uno de los archivos con su path. Por lo que de esta forma no importa el nombre ni la cantidad de archivos en tu carpeta.

[Bourne Ultimatum]

muchisimas gracias