Выборочная упаковка

[Batya]

-r-x@d:\Totalcmd\SOFT\7-Zip\listfile.txt

Между "-r" и "-x" должен быть пробел.

[ask-rus]

Может кавычки помогут?

Не, не помогут.
Вот так работает:

"Рабочий стол\MagicDisc.lnk"
"Рабочий стол\MagicISO.lnk"
"Рабочий стол\PRO100.lnk"

Добавлено:

Между "-r" и "-x" должен быть пробел.

Вероятно, в этом причина того сообщения.
Сейчас его не наблюдается.
Спасибо!

[Batya]

Вот так работает:

Правильно используй "-r" - cм. мой пост выше.
Правда, при этом у меня долго висит "Scanning". Лучше использовать "-r0" и файл исключений вида:

MagicDisc.lnk*
MagicISO.lnk*
PRO100.lnk*

[ask-rus]

А каталоги могут быть занесены в файл-список (нежелательные для архивации каталоги и файлы в нем)? Если да, то как правильно их исполнить в файл-списке?

[Batya]

А каталоги могут быть занесены в файл-список (нежелательные для архивации каталоги и файлы в нем)? Если да, то как правильно их исполнить в файл-списке?

Я сам пробую "методом тыка".
Работает, например, так:

Папка для исключения*\

[ask-rus]

В завершение, кнопочку бы для добавления выделенных в этот список, зная его устройство:

Лучше использовать "-r0" и файл исключений вида:

MagicDisc.lnk*
MagicISO.lnk*
PRO100.lnk*

и

Работает, например, так:

Папка для исключения*\

[Batya]

В завершение, кнопочку бы для добавления выделенных в этот список

vbs-скрипт:

Код: Выделить всё

'=====================================================================
' Добавление с символом "*" выделенных файлов\папок в файл-список

' Параметры:
' {исходный файл-список} {целевой файл-список}

' Пример параметров при вызове из 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()

[Моторокер]

Как вариант, скопировать во временную папку с учётом исключений и упаковать уже оттуда.