Come posso recuperare l’intero contenuto di un file di testo?

Utente HTML.it
chiede

Come posso recuperare l’intero contenuto di un file di testo?

Redazione HTML.it
risponde

Per recuperare l’intero contenuto di un file di testo
è possibile utilizzare la funzione riportata di
seguito:

Private Function LeggiFile(File As String) As
String
Dim Riga As String
Dim NumFile As Integer
NumFile = FreeFile
Open File For Input As NumFile
While Not EOF(NumFile)
Input #NumFile, Riga
LeggiFile = LeggiFile & Riga &
vbCrLf
Wend
Close (NumFile)
End Function

Ad esempio, per leggere il file Prova.txt, salvato
nella cartella Documenti, e visualizzarlo in una casella
di testo, l’istruzione da utilizzare è la
seguente:

Text93.Text = LeggiFile(“C:DocumentiProva.txt”)