Autor
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
En línea
