Batya
|
 Posted: Fri Nov 25, 2005 15:33 Post subject: |
 |
|
Zorroz
Создай файл *.vbs с содержимым:
| Code: | '===============================================================
' Формирование файла с содержимым всех файлов текущего каталога
' В параметрах вызова из TC должно быть прописано:
' %P
'===============================================================
Option Explicit
Dim FSO, CurrentDirObj, NewFileOpen, DirFiles
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim CurrentDir, NewFile, Path_NewFile, ScanFile, M1
CurrentDir = WScript.Arguments(0)
Set CurrentDirObj = FSO.GetFolder(CurrentDir)
NewFile = CurrentDirObj.Name & ".txt"
Path_NewFile = CurrentDir & NewFile
'Path_NewFile = CurrentDirObj.ParentFolder & "\" & NewFile
'Path_NewFile = "C:\Стихи\" & NewFile
If FSO.FileExists(Path_NewFile) Then
M1 = MsgBox("Файл " & Path_NewFile & " уже существует.", vbOKOnly + vbExclamation, "Внимание!")
Wscript.Quit
End If
Set DirFiles = CurrentDirObj.Files
Set NewFileOpen = FSO.CreateTextFile(Path_NewFile)
For Each ScanFile in DirFiles
If StrComp(ScanFile, Path_NewFile, 1) <> 0 Then
With NewFileOpen
.WriteLine "================================"
.WriteLine FSO.GetFileName(ScanFile)
.WriteLine "--------------------------------"
.WriteLine
.Write FSO.OpenTextFile(ScanFile, 1).ReadAll
.WriteLine
.WriteLine
.WriteLine
.WriteLine
End With
End If
Next
NewFileOpen.Close
M1 = MsgBox("Создан файл " & Path_NewFile & " с содержимым папки " & CurrentDir, vbOKOnly + vbInformation, "Результат")
Set FSO = Nothing
Set CurrentDirObj = Nothing
Set NewFileOpen = Nothing
Set DirFiles = Nothing
Wscript.Quit |
Повесь файл на кнопку в TC. В параметрах кнопки укажи %P.
В зависимости от месторасположения нового файла закомментируй\ раскомментируй строки 15 - 17. Свой путь можешь указать как в строке 17. Имя же нового файла - название папки, расширение - txt (изменить можно в строке 14).
Формировать файл можешь по-своему добавив\ удалив строки .WriteLine. После .WriteLine можешь указывать любой текст в двойных кавычках. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
