Batya
|
 Posted: Wed Feb 09, 2005 17:24 Post subject: |
 |
|
RaY_BY
Установи себе TCWSHelp от Volniy. Создай файлик *.vbs со следующим кодом:
| Code: | Dim TCS, FSO, TempFile, SelFile
Set TCS = CreateObject("TCScript.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
TCS.SendCommand(2030)
TrgPath = TCS.GetTextFromClip
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
FileName = SelFile.Name
DotInName = InstrRev(FileName, ".")
If DotInName <> 0 Then
FileName = Left(FileName, DotInName - 1)
End If
If Not FSO.FolderExists(TrgPath & "\" & FileName) then
FSO.CreateFolder(TrgPath & "\" & FileName)
End If
FSO.CopyFile SelFile, TrgPath & "\" & FileName & "\"
Loop |
Повесь этот файл на кнопку и в параметрах пропиши %L.
И будет тебе Щастье  |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
