Заголовок



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



ClipBoard.Clear
ClipBoard.SetText "Какое-нибудь сообщение"



MsgBox "ЗначениеПеременной1=" & Переменная1 & ", ЗначениеПеременной2=" & Переменная2
назад 1 2 3 4 5 далее