Option Explicit
Public F As Integer 'Dichiara la variabile per il n° file libero
'
Public Function WriteFile(Testo As String, PathFile As String) 'funzione per la scrittura del file...
F = FreeFile 'imposta in F il numero di file libero
Open PathFile For Output As #F 'scrive il file in PathFile che indica il (percorso file)
Print #F, Testo 'scrive nel file la variabile Testo
Close #F 'chiude il file
MsgBox "Creazione del file in " & PathFile & " avvenuta con successo!.", vbInformation, "Informazione"
Exit Function
End Function
Public Function ReadFile(PathFile As String, Controllo As TextBox) 'Lettura file
F = FreeFile
Dim Buffer As String
Open PathFile For Input As #F 'apre il file in modalità lettura (input)
Input #F, Buffer 'legge il file e getta tutti in Buffer
Controllo.Text = Buffer 'scrive nel controllo: Buffer
Close #F 'chiude il file...
End Function
Scrivere e leggere file in Visual Basic
Pubblicato prima del 07/05/2008 - Informazione assente
Descrizione non disponibile. Questo membro non è più parte della Community.
|
Aggiungi un commento