Monarch-LFV
|
 Posted: Tue Dec 05, 2023 03:23 Post subject: |
 |
|
По предложению откорректировал свой второй скрипт (действительно, проверка существования подпапки не нужна, так как итак имеется указание пробега циклом каждой подпапки, исключил ее):
| Code: | ' Создает файл-список всех папок в данной директории
' Параметр "%P"
'=======================================================================================
On Error Resume Next
Dim FSO, spisok, F, FldList, newLine, ts
Set FSO = CreateObject("Scripting.FileSystemObject")
spisok = WScript.Arguments(0) & "\List.txt"
For Each F In FSO.GetFolder(WScript.Arguments(0)).subfolders
if FldList <> "" then newLine = vbnewline
FldList = FldList & newLine & F.name
Next
If FldList <> "" then
Set ts = FSO.OpenTextFile(spisok, 2, True, -1)
ts.Write FldList
ts.Close
end if |
Также выкладываю не свою, но очень даже рабочую кнопку cmd (с помощью команды DIR создает такой файл-список моментально, в отличие от скрипта VBS, но создается в UTF-16 без BOM, а также появляется последняя пустая строка):
| Code: | TOTALCMD#BAR#DATA
%comspec% /q/u/c dir/ad/b>Dirs.txt
%commander_exe%,24
Копировать имена всех подпапок папки активной панели в Dirs.txt
1 |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
