Napravi jedno komandno dugme i ubaci ovo:
Code:
Private Sub Command1_Click()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim textstream As Scripting.textstream
If fso.FileExists("C:\tekst.txt") = True Then 'Proverava da li fajl postoji
Set textstream = fso.OpenTextFile("C:\tekst.txt", ForWriting, True, TristateFalse)
textstream.WriteLine ("Upisi ovo.") 'Ako postoji upisuje tekst
Else
Exit Sub
End If
End Sub
Udji u meni Project -> References i cekiraj "Microsoft Scripting Runtime"
System Alert