Dim FSO, TempFile, SelFile, WriteFile, OpenFile
Set FSO = CreateObject("Scripting.FileSystemObject")
ForReading = 1 'Open a file for reading only. You can't write to this file
ForWriting = 2 'Open a file for writing
ForAppending = 8 'Open a file and write to the end of the file
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), ForReading)
FileAll = InputBox("Введите имя файла", "Копирование содержимого", "all.txt")
if Len(FileAll) = 0 then
A1 = MsgBox("Не задано имя файла!", vbOKOnly + vbExclamation, "Копирование содержимого")
WScript.Quit(1)
End if
Set WriteFile = FSO.OpenTextFile(FileAll, ForAppending, True)
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
Set OpenFile = FSO.OpenTextFile(SelFile, ForReading)
WriteFile.Write OpenFile.ReadAll
WriteFile.Write chr(13)
Loop
WScript.Quit |