http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/ База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant Mon, 26 Dec 2011 17:47:58 +0000 hourly 1 http://wordpress.org/?v=3.3 http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/comment-page-1/#comment-18265 Slavais Wed, 29 Dec 2010 10:41:52 +0000 http://www.vbfaq.ru/?p=195#comment-18265 Спс за помощь Спс за помощь

]]> http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/comment-page-1/#comment-4599 AngryBadger Wed, 01 Apr 2009 10:22:09 +0000 http://www.vbfaq.ru/?p=195#comment-4599 Мне кажется, что этот вариант работает быстрее: '##################################################### Sub CreateAndOpen() Dim FileNum FileNum = FreeFile Open "C:\MyFile2.txt" For Output As #FileNum Print #FileNum, "Первая" Print #FileNum, "Вторая" Print #FileNum, "Третья" Close #FileNum CreateObject("WScript.Shell").Run "C:\MyFile2.txt" End Sub '##################################################### Мне кажется, что этот вариант работает быстрее:
‘#####################################################
Sub CreateAndOpen()
Dim FileNum
FileNum = FreeFile
Open «C:\MyFile2.txt» For Output As #FileNum
Print #FileNum, «Первая»
Print #FileNum, «Вторая»
Print #FileNum, «Третья»
Close #FileNum
CreateObject(«WScript.Shell»).Run «C:\MyFile2.txt»
End Sub
‘#####################################################

]]>