|
Public Function LeggiFileTXT(NomeFile As String) As String
Dim NumeroFile As Integer NumeroFile = FreeFile 'Apro il file Open NomeFile For Input As NumeroFile 'Leggo tutto il file LeggiFileTXT = Input$(LOF(NumeroFile), NumeroFile) 'chiudo il file Close NumeroFile End Function |