Здравствуйте, ребя ! Помогите, пожалуйста, столкнулся с банальной задачей: нарисовать скриптец, который прочитает информацию из одного файла и запишет ее в другой. Делал по Faq, все, как написано было. Не работает :( Не могу приложить ума, почему. Подскажите, пожалуйста !

Вроде бы, так просто ...

Function ReadAllTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\1.txt", ForReading)
ReadAllTextFile = f.ReadAll
Set fts = CreateObject("Scripting.FileSystemObject")
Set ts = fts.OpenTextFile ("c:\2.txt", ForWriting)
ts.Writeline ReadAllTextFile
ts.Close
End Function

Написал через два слэша, убрал лишнее - все равно ни фига :(

Function ReadAllTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\\1.txt", ForReading)
ReadAllTextFile = f.ReadAll
Set ts = fso.OpenTextFile ("c:\\2.txt", ForWriting)
ts.Writeline ReadAllTextFile
ts.Close
End Function

Хм, переделал все заново - сработало ! Так:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set t_file = FSO.OpenTextFile("C:\\1.txt", 1)
source = t_file.ReadAll
t_file.Close
Set f = FSO.OpenTextFile("C:\\2.txt", 2, True)
f.Write source
f.Close

Всем спасибо за участие !