Imprimir Página - alguna idea

Título: alguna idea
Publicado por: Bourne Ultimatum en 28 Junio 2005, 00:21 am

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 saver 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:

 
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

Título: Re: alguna idea
Publicado por: goodbye en 29 Junio 2005, 04:23 am

Use un control FileListBox y un Button para el ejemplo:

Código:

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.

Título: Re: alguna idea
Publicado por: Bourne Ultimatum en 29 Junio 2005, 17:37 pm

muchisimas gracias ;)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Bourne Ultimatum en 28 Junio 2005, 00:21 am