Flasher
|
 Posted: Fri May 30, 2014 11:10 Post subject: |
 |
|
garmonist
А для чего это? Может, убить нескольких зайцев?
Вот ещё без параметра вариант: | Code: | ' Условие: путь запуска - пустой
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
With CreateObject("WScript.Shell")
Path = .CurrentDirectory : Path = Mid(Path, InStr(Path, "\\") + 2)
.Exec TCFS2 & "/ef ""tcd(,`D:\Backup" & Mid(Path, InStr(Path, "\")) & "\`,S)"""
End With |
Только тут само выделение, как впрочем и в первом случае, роли не играет.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
