Open - Scrittura e lettura file

open app.path & "\Pippo.txt" for output as #1


'UPGRADE_WARNING: Dir has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If Dir(My.Application.Info.DirectoryPath & "\TESTI\" & nome & ".txt") = "" Then
FileOpen(1, My.Application.Info.DirectoryPath & "\TESTI\" & nome & ".txt", OpenMode.Output)
PrintLine(1, " ---------------------------------- ")
PrintLine(1, "..................* Procedura " & nome & ".txt * - " & Today)
PrintLine(1, " ---------------------------------- ")
PrintLine(1, "")
PrintLine(1, ".................. devi scrivere i problemi che riscontri nella procedura, senza")
PrintLine(1, ".................. cancellare il contenuto dei problemi precedenti alla procedura.")
PrintLine(1, ".................. Il Programmatore apporra' sucessivamente un visto e data sulle ")
PrintLine(1, ".................. modifiche apportartate sulla procedura e su questo modulo")
FileClose(1)
End If

Shell("Notepad " & My.Application.Info.DirectoryPath & "\testi\" & nome & ".txt", AppWinStyle.NormalFocus)


Open in lettura
FileOpen(2, NomeFile, OpenMode.Input)
' verifica esistenza Cliente

Stringa = LineInput(2) '[Cliente]
IdCliente = LineInput(2)
Nominativo = LineInput(2)
FileClose(2)



Dim TextLine As String '
Open file. FileOpen(1, "TESTFILE", OpenMode.Input) ' Loop until End of file.
While Not EOF(1) ' Read line into variable.
TextLine = LineInput(1) ' Print to the console.
WriteLine(1, TextLine)
End While
FileClose(1)