Как отправить ярлык в определенную папку?
Как известно опция контекстного меню "Отправить" (Send to) на Рабочий стол создает на Рабочем столе ярлык файла (папки).
Как можно изменить это меню чтобы ярлык создавался в другой папке?
|
Лучше создайте скрипт, который создаёт ярлык для переданного параметром объекта в искомом каталоге и поместите его в %UserProfile%\SendTo.
|
чувствуется что идея великолепная, но я от ее реализации достаточно далек :(
|
Пробуйте (на WSH):
Скрытый текст
Код:
Option Explicit
Const strPath2DestFolder = "C:\Мои проекты\0317\DataBase"
Dim strSourceFSOObject
Dim objFSO
Dim strContent
If WScript.Arguments.Count = 1 Then
strSourceFSOObject = WScript.Arguments.Item(0)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strPath2DestFolder) Then
If objFSO.FileExists(strSourceFSOObject) Then
ElseIf objFSO.FolderExists(strSourceFSOObject) Then
Else
WScript.Echo "Can't find source file system object [" & strSourceFSOObject & "]."
WScript.Quit 3
End If
With WScript.CreateObject("WScript.Shell").CreateShortcut(objFSO.BuildPath(strPath2DestFolder, objFSO.GetBaseName(strSourceFSOObject) & ".lnk"))
.TargetPath = strSourceFSOObject
.WorkingDirectory = objFSO.GetParentFolderName(strSourceFSOObject)
.Save
End With
Else
WScript.Echo "Can't find destination folder [" & strPath2DestFolder & "]."
WScript.Quit 2
End If
Set objFSO = Nothing
Else
WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
WScript.Quit 1
End If
WScript.Quit 0
|
Большое спасибо, отлично работает!
|
Время: 07:34.
© OSzone.net 2001-
