Serge2005
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Dim WSHShell, fs, path, Shortcut, Shortcut2, Shortcut3, Shortcut4, DesktopPath
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target )
path = WshShell.SpecialFolders("Programs") + "\" + name
If fs.FolderExists(path) = False Then
fldr = fs.CreateFolder(path)
End If
Set Shortcut = WSHShell.CreateShortcut( path + "\" + name + ".lnk")
Shortcut.TargetPath = target
Shortcut.WorkingDirectory = fs.GetParentFolderName( target )
Shortcut.Save
Set Shortcut2 = WSHShell.CreateShortcut( path + "\Set Russian.lnk")
Shortcut2.TargetPath = fs.GetParentFolderName( target ) + "\Lang03_rus.exe"
Shortcut2.WorkingDirectory = fs.GetParentFolderName( target )
Shortcut2.IconLocation = WSHShell.ExpandEnvironmentStrings("E:\WINDOWS\system32\SHELL32.dll,74")
Shortcut2.Save
Set Shortcut3 = WSHShell.CreateShortcut( path + "\Set English.lnk")
Shortcut3.TargetPath = fs.GetParentFolderName( target ) + "\Lang03_eng.exe"
Shortcut3.WorkingDirectory = fs.GetParentFolderName( target )
Shortcut3.IconLocation = WSHShell.ExpandEnvironmentStrings("E:\WINDOWS\system32\SHELL32.dll,74")
Shortcut3.Save
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut4 = WSHShell.CreateShortcut(DesktopPath + "\" + name + ".lnk")
Shortcut4.TargetPath = target
Shortcut4.WorkingDirectory = fs.GetParentFolderName( target )
Shortcut4.Save
End Function
MakeDesktopShortcut "Total Commander 6.54 rus test10", "E:\Program Files\Total Commander 6.54 rus test10\totalcmd.exe"
|
