Код, который дописывает строку в файл

[Cooller_]

Народ, я долго искол код, написанный на vbs, который тупо допишед всего одну строчку в конец файла. Файл определяется системой как "файл" то есть не имеет расширения.

Если у кого есть, напишите код который просто допишет 1 строчку в конец файла.

[Oscar]

Код: Выделить всё

Dim nFileNum As Integer

' Get a free file number
nFileNum = FreeFile

' Open Test.txt for append
Open App.Path & "c:\test.txt" For Append As nFileNum

' Add the contents of TextBox1 to Test.txt
Print #nFileNum, TextBox1.Text

' Close the file
Close nFileNum

в VB я ни бум-бум
взято отсюда:
http://www.developerfusion.co.uk/show/37/6/

[Cooller_]

Это скрипт на vb, а мне надо на vbs, (может я чтото путаю) но факт то, что он не работает, а выдаёт ошибку при запуске!

[Cooller_]

Вот я архивчик загрузил, там 2 файла,
"1" - файл в который надо записать
"2.vbs" - файл в котором должен находится скрипт

Скрипт должен срабатывать при запуске файла


Если кто напишет, выложите код, буду благодарен.

[Cooller_]

Всё, спс уже нашол