kefirux
|
 Posted: Wed Dec 10, 2008 11:45 Post subject: |
 |
|
| Volniy wrote: | Вот так, например:
| Code: | Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """c:\Program Files\tc\totalcmd.exe"" " & "/L=""E:\- ПАКИ"" /R=""F:\Dcim"""
Set WshShell = Nothing
|
Главное, с кавычками не запутайся: внутренние нужно удваивать. |
благодарю, я тут как раз бился головой об стол)
кстати для меня было неожиданностью что если свернуть ТК,
то команды функцией SendKeystroke передаются в Виндовс ))
из-за криво написанного скрипта у меня такой ад начался )
нынешнеяя версия моего продвижения:
| Code: |
Dim WshShell
Dim RetCode
Dim TCS
Dim Answer
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("""E:\Program Files\Total Commander\TotALCMD.EXE"" /L=""X:\- ПАКИ ФОТОСЕТОВ"" /R=""F:/Dcim""", 0, False)
WScript.Sleep 1000
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Wait=true
TCS.SendCommand "cm_MkDir",TCS.Wait
TCS.SendKeystroke "{Enter}"
'тут покачто в планах кусок кода, где
'0) скрипт проходит по всем папкам дирректории справа (без рекурсии)
'1) (начало цикла) комманда процессу /C /R="имя папки из ВБскрипта"
'2) cm_SelectAll (выделяем всё)
'3) F5
'4) Enter (конец цикла)
TCS.SendCommand "cm_Minimize"
'TCS.SendCommand "cm_Exit"
Set TCS = Nothing
WScript.Quit
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
