Batya
|
 Posted: Tue Aug 10, 2010 12:53 Post subject: |
 |
|
Модифицированный вариант скрипта создаёт несколько ярлыков на рабочем столе по отмеченным в TC файлам и папкам:
| Code: | ' ===============================================
' Авторы: SkOle, Batya
' Описание: Создает ярлыки на рабочем столе
' Параметры: %L
' ===============================================
Option Explicit
If WScript.Arguments.Count > 0 Then
Dim WSH, FSO, Desktop, F
Set WSH = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Desktop = WSH.SpecialFolders("Desktop")
For Each F In Split(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine)
If FSO.FileExists(F) Or FSO.FolderExists(F) Then
With WSH.CreateShortcut(Desktop & "\" & FSO.GetBaseName(F) & ".lnk")
.TargetPath = F
.WorkingDirectory = FSO.GetParentFolderName(F)
.Save
End With
End If
Next
Set FSO = Nothing
Set WSH = Nothing
End If
WScript.Quit |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
