Flasher
|
 Posted: Mon Sep 12, 2011 22:49 Post subject: |
 |
|
C папками пойдёт?
Рекурсивно: -ir!*\*.opf вместо *.opf
Только из соотв. папок: -i!OEBPS\*.opf вместо *.opf
| swr wrote: | | Да, еще 1 ньюанс - нужно будет указать каталог назначения для извлекаемых файлов, т.к. все *.epub находятся на DVD дисках. |
Это как-то с исходной задачей не стыкуется | swr wrote: | | Всего лишь требуется извлечь файлы *.opf из всех епубов, сохраняя полные пути |
Ну, коль надо, под Proga = ... вставить: | Code: | Path = WScript.Arguments(2)
If Right(Path,1) <> "\" Then Path = Path & "\" |
и процедуру заменить на эту:
| Code: | Sub ForFile(File)
If LCase(FSO.GetExtensionName(File)) = LCase(WScript.Arguments(1)) Then WSH.Run """" & Proga & """x """ & File & """ -o""" & Path & Mid(File.ParentFolder,4) & "\"" -i!OEBPS\*.opf -y", 0, True
End Sub |
В качестве третьего параметра указывать путь к папке, например, "%T". |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
