Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Извлечение файлов из архивов сохраняя структуру 
Author Message
Flasher
PostPosted: Tue Sep 13, 2011 19:04    Post subject: Reply with quote
swr
Заменяться может только в случае, если файл одноимённый.

Как вариант можно создавать папки с именем архива и класть файлы туда, тогда всё сохранится.

Под Proga = ... вставляем
Code:
Ext  = WScript.Arguments(1)
Процедура:
Code:
Sub ForFile(File)
  If LCase(FSO.GetExtensionName(File)) = LCase(Ext) Then WSH.Run """" & Proga & """x """ & File & """ -o""" & Path & Mid(File,4,Len(File)-Len(Ext)-4) & "\"" -i!OEBPS\*.opf -y", 0, True
End Sub
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group