Que hace Data.Files()
Publicado por Manuel (2 intervenciones) el 09/06/2009 13:47:44
Hola amigos estaba revisando unos codigos del guille y me queda una duda en que es lo que hace DATA.FILES(1)
Private Sub AsignarFichero(unTextBox As Control)
'Asignar al TextBox indicado el contenido del fichero soltado
Dim sFic As String
Dim nFic As Long
Dim sText As String
'Asignar sólo el primer fichero
sFic = Data.Files(1)
'Abrirlo y leer el contenido
nFic = FreeFile
Open sFic For Input As nFic
sText = Input$(LOF(nFic), nFic)
Close nFic
'Asignarlo al control indicado
unTextBox = sText
End Sub
Muchas Gracias de antemano.
Private Sub AsignarFichero(unTextBox As Control)
'Asignar al TextBox indicado el contenido del fichero soltado
Dim sFic As String
Dim nFic As Long
Dim sText As String
'Asignar sólo el primer fichero
sFic = Data.Files(1)
'Abrirlo y leer el contenido
nFic = FreeFile
Open sFic For Input As nFic
sText = Input$(LOF(nFic), nFic)
Close nFic
'Asignarlo al control indicado
unTextBox = sText
End Sub
Muchas Gracias de antemano.
Valora esta pregunta


0