|
Dim file As String
Private Sub MenuApri_Click()
file$ = InputBox("Inserire il nome del file da aprire completo di estensione", "Apertura File")
Text1.Text = ""
f = FreeFile
Open file$ For Input As #f
Do While Not EOF(f)
Line Input #f, a$
Text1.Text = Text1.Text + a$ + vbCrLf
Loop
Close f
End Sub
Private Sub MenuEsci_Click()
Unload Me
Inizio.Show 1
End Sub
Private Sub MenuNuovo_Click()
Text1.Text = ""
End Sub
Private Sub MenuSalva_Click()
file$ = InputBox("Inserire il nome del file da salvare completo di estensione", "Salvataggio File")
f = FreeFile
Open file$ For Output As #f
Print #f, Text1.Text
Close #f
End Sub
|
|