A: Создай файлик *.vbs. Повесь его на кнопку. В параметрах пропиши %L. Код файла: 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
Batya
A: Как вариант: переименовываем файлики по виду file01.ext file02.txt (легко делается мультиренеймом), ставим курсор на первый файл и лезем в меню Файл->Собрать. На выходе получаем искомый файл.
