Batya
|
 Posted: Fri Feb 05, 2010 02:25 Post subject: |
 |
|
| _Johm wrote: | | Как я понял, последний скрипт не работает с ярылками на папки? |
Так ведь никто и не заказывал.
Этот скрипт работает с ярлыками папок:
| Code: | '===================================================
' Копирование файлов\папок (в т.ч. из ярлыков)
'
' Параметры:
' {файл-список} {целевая папка}
'
' Пример параметров при вызове из TC:
' %L "%T"
'===================================================
Dim FF, WSH, FSO, TrgPath, F, NewPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set FF = FSO.OpenTextFile(WScript.Arguments(0), 1)
TrgPath = WScript.Arguments(1)
Do While Not FF.AtEndOfStream
F = FF.ReadLine
If Right(F, 1) = "\" Then F = Left(F, Len(F) - 1)
'----- Извлечение из ярлыка -----
If LCase(FSO.GetExtensionName(F)) = "lnk" Then
F = WSH.CreateShortcut(F).TargetPath
End If
'--------------------------------
If FSO.FileExists(F) Then
NewPath = TrgPath & FSO.GetFile(F).Name
If Not FSO.FileExists(NewPath) Then
FSO.CopyFile F, TrgPath
End If
End If
If FSO.FolderExists(F) Then
NewPath = TrgPath & FSO.GetFolder(F).Name
If Not FSO.FolderExists(NewPath) Then
FSO.CopyFolder F, TrgPath
End If
End If
Loop
FF.Close
Set FF = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit 0 |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
