Lari
|
Posted: Mon Jan 07, 2008 23:07 Post subject: |
|
|
скрипт собственно вот
Code: |
Dim NewFolder, CurFile, FileName, CurPath, NPath, FSO, TempFile, SelFile
CurPath = WScript.Arguments(0) '%P
NewFolder = WScript.Arguments(1) '%O
CurFile = WScript.Arguments(2) '%L
FileName = WScript.Arguments(3) '%N
If NewFolder = FileName then
WScript.Quit()
End If
NPath = CurPath + NewFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(NPath) then
FSO.CreateFolder(NPath)
End If
Set TempFile = FSO.OpenTextFile(CurFile, 1)
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
Loop
If Not FSO.FileExists (NPath & "\" & FileName) then
FSO.MoveFile SelFile, NPath & "\" & FileName
End If
WScript.Quit()
|
но вариант с WshShell.SendKeys "{ENTER}" не подходит, так как курсор находится не на новой папке, которую нужно открыть.
Может есть другое решение?
В идеале хотелось бы, чтобы скрипт работал в двух вариантах:
1. перемещал файл в папку, при нажатии на кнопку на панели инструметов
2. перемещал файл в папку и открывал ее, принажатии на кнопку на панели инструментов и удерживаемой клавише Shift. |
|