а каким образом?у меня 100 файлов ,каждый из них начинается с текста(общего признака ,чтобы менять а на б нету) там есть функции вставки первой строки?
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.GetFolder(".")
Set filelist = folder1.Files
For Each curfile in filelist
set inFile=fso.OpenTextFile(curfile.Name)
set outFile=fso.CreateTextFile("tmp.txt")
outFile.WriteLine("твоя строка")
do
s=inFile.ReadLine
outFile.WriteLine(s)
loop while inFile.AtEndOfStream <> True
infile.Close()
outFile.Close()
Name=Trim(curfile.Name)
fso.DeleteFile Name
fso.MoveFile "tmp.txt", Name
Next
я знаю, истинный Ъ сделал бы все с помощью forfiles /C <хитрая команда>
__________________
Зло присуще любому скоплению людей
я кодить не умею, поэтому заннопостер использую под такие задичи
хотя покупался он для других задач, но вот теперь в основном служит для обработки и генерации текста