Добавлено: Ср апр 27, 2011 14:11
Между "-r" и "-x" должен быть пробел.ask-rus писал(а):-r-x@d:\Totalcmd\SOFT\7-Zip\listfile.txt
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Между "-r" и "-x" должен быть пробел.ask-rus писал(а):-r-x@d:\Totalcmd\SOFT\7-Zip\listfile.txt
Не, не помогут.sa писал(а):Может кавычки помогут?
Добавлено:"Рабочий стол\MagicDisc.lnk"
"Рабочий стол\MagicISO.lnk"
"Рабочий стол\PRO100.lnk"
Вероятно, в этом причина того сообщения.Batya писал(а):Между "-r" и "-x" должен быть пробел.
Правильно используй "-r" - cм. мой пост выше.ask-rus писал(а):Вот так работает:
MagicDisc.lnk*
MagicISO.lnk*
PRO100.lnk*
Я сам пробую "методом тыка".ask-rus писал(а):А каталоги могут быть занесены в файл-список (нежелательные для архивации каталоги и файлы в нем)? Если да, то как правильно их исполнить в файл-списке?
Папка для исключения*\
иBatya писал(а):Лучше использовать "-r0" и файл исключений вида:
MagicDisc.lnk*
MagicISO.lnk*
PRO100.lnk*
Batya писал(а):Работает, например, так:
Папка для исключения*\
vbs-скрипт:ask-rus писал(а):В завершение, кнопочку бы для добавления выделенных в этот список
Код: Выделить всё
'=====================================================================
' Добавление с символом "*" выделенных файлов\папок в файл-список
' Параметры:
' {исходный файл-список} {целевой файл-список}
' Пример параметров при вызове из TC:
' %L C:\Путь\Файл.txt
'=====================================================================
Dim FSO, F, FF
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FF = FSO.OpenTextFile(WScript.Arguments(1), 8, True)
With FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not .AtEndOfStream
F = Trim(.ReadLine)
If F <> "" Then
If FSO.FolderExists(F) Then
If Right(F, 1) = "" Then F = Mid(F, 1, Len(F)-1)
FF.WriteLine F & "*" & ""
End If
If FSO.FileExists(F) Then
FF.WriteLine F & "*"
End If
End If
Loop
End With
FF.Close
Set FF = Nothing
Set FSO = Nothing
Wscript.Quit()