VBScript: Дописывание в начало текста

-TOXA-, вообще-то TextStream не предназначен для работы с бинарными данными и в ряде случаев может работать некорректно, портя содержимое.

А так:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2

With WScript.CreateObject("Scripting.FileSystemObject")
    With objFSO.OpenTextFile("Some file.ext", ForReading)
        strContent = .ReadAll()
        .Close
    End With
    
    With objFSO.OpenTextFile("Some file.ext", ForWriting)
        .Write("W" & strContent)
        .Close
    End With
End With

WScript.Quit 0

alexii, извините, но при запуске вашего скрипта, вылезает ошибка, когда я устранил проблемы, у меня стало писаться, что "Ввод данных за пределами файла" на строке где идет ReadAll(). Такая же ошибка была и у меня, до того как я написал на форум, и пытался писать сам....

P.S. А это может связано с тем, что в переменную не может влезть такой огромный текст, хотя это чушь, но мало ли.

Нее, мне нужно чтобы на всех компьютерах без дополнительных библиотек читалось, но спасибо за то что уделили время....:):):)

А если создать файл из одной буквы W без переноса строки, а потом сделать конкатенацию с помощью консольной команды copy?

Serge Yolkin и alexii, Расскажите, пожалуйста, подробней о "конкатенации с помощью консольной команды copy". Или она делается через этот самый MDAC 2.8 SP1?

ex. «W.txt» =:

1>W.txt <nul set /p sVar=W

Извините, я нуб в этом, WSH не знаю, и чего-то не понимаю его. Он вроде как связан с VBS там с JS, но как пользоваться не знаю. Можно ли написать сразу мою функцию, как она должна выглядеть. Если не сложно...