muchas gracias a ambos, pero la verdad no entendi como utilizarlo dessa, me podrias explicar un poco mas?
Yo utilizo la funcion getvar para obtener datos de x archivo de texto
de la siguiente manera:
Function GetVar(ByVal file As String, ByVal Main As String, ByVal Var As String, Optional EmptySpaces As Long = 1024) As String
Dim sSpaces As String, szReturn As String
szReturn = ""
sSpaces = Space$(EmptySpaces)
GetPrivateProfileString Main, Var, szReturn, sSpaces, EmptySpaces, file
GetVar = RTrim$(sSpaces)
GetVar = Left$(GetVar, Len(GetVar) - 1)
End Function
Private Sub Form_Load()
Archivo = "\Cuentas\" & FrmMain.File1.FileName
txtCuenta.Text = GetVar(App.Path & Archivo, "Numero de Cliente", "Cliente")
txtNombre.Text = GetVar(App.Path & Archivo, "Nombre Y Apellido", "Nombre")
End Sub
Es decir en el archivo busca asi:
[numero de cliente]
cliente="dato que toma"
Como podría adaptar eso a que lo haga en todos los archivos que se encuentran dentro del File1, osea dentro de una carpeta.
Ahora creo que me explique mejor
Desde ya muchas gracias!
Mostrar Mensajes
