Batya
|
 Posted: Mon Aug 08, 2011 11:21 Post subject: |
 |
|
| Flasher wrote: | | " Рекурсивная пофвйловая упаковка" |
Опечатка.
Предложение - во втором параметре возможность использовать не только абсолютный, но и относительный путь.
Вместо | Code: | If P <> "1" Then Path = P |
пишем | Code: | If InStr(P, ":") > 0 Then Path = P |
и ниже | Code: | If InStr(P, ":") = 0 Then Path = F1.ParentFolder & "\" & P |
Т.е. можно паковать в каталог, лежащий рядом с исходным файлом. Если каталог не надо, параметр указать пустым - "".
Совет - список расширений лучше указать один раз (на случай правки). Примерно так:
| Code: | Set Dict = CreateObject("Scripting.Dictionary")
Exts = "7Z | 7ZIP | ZIP | RAR | GZIP | BZIP2 | XZ | EXE | WIM"
For Each E in Split(Exts, " | ")
Dict.Add LCase(Trim(E)), ""
Next
If Not Dict.Exists(Lcase(Ext)) Then
MsgBox "Указанное расширение """ & UCase(Ext) & """ не поддерживается!" & vbnewline &_
vbnewline & "Список поддерживаемых расширений:" & vbnewline & Exts, vbExclamation,_
" Рекурсивная пофайловая упаковка"
WScript.Quit
End If
|
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
