Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
ClipBoard.Clear
ClipBoard.SetText "Какое-нибудь сообщение"
ClipBoard.SetText "Какое-нибудь сообщение"
MsgBox "ЗначениеПеременной1=" & Переменная1 & ", ЗначениеПеременной2=" & Переменная2
