Volcar el contenido de un fichero en una cadena de texto.

Crea un proyecto que contenga un TextBox (Text1) y añade el siguiente código:

Private Sub Form_Load()
    Text1.Text = "c:autoexec.bat"
    Debug.Print DameContenidoFichero(Text1.Text)
End Sub
Function DameContenidoFichero(ByVal xFicheroDatos As String) As String
    ' Devuelve en una cadena el contenido del fichero indicado
    Dim xContenido As String, lLongitud As Long, iFreeFile As Integer   
    
    iFreeFile = FreeFile()
    Open xFicheroDatos For Binary Access Read Shared As #iFreeFile
    lLongitud = LOF(iFreeFile)
    xContenido = Space(lLongitud)
    Get #iFreeFile, , xContenido
    Close #iFreeFile
    DameContenidoFichero = xContenido
End Function

En la ventana de depuración debe salirte el contenido del fichero.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s