一个“发送到任意文件夹快捷方式”的脚本程序

          由于最近下了很多歌曲，但是“我的音乐“所在磁盘空间紧张，所以想到将音乐移到别的磁盘，而在“我的音乐“文件夹只保留指向这些音乐的快捷方式，因此写了这个脚本。
'**************************************************************
'*NAME:            <CreateMyShortCut.vbs>
'*AUTHOR:       SoakTech
'*DATE:             22/02/2005
'**************************************************************
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "选择快捷方式要发送的文件夹:", NO_OPTIONS)
If Not objFolder is Nothing then
   Set objFolderItem = objFolder.Self
   objPath = objFolderItem.Path
   strDestination = objPath

   Set objArgs = WScript.Arguments
   Set WshShell = WScript.CreateObject("WScript.Shell")

   For i = 0 to objArgs.Count - 1
       strShortCut = strDestination & "/" & GetMyFileName(objArgs(i)) & ".lnk"
       set objShellLink = WshShell.CreateShortcut(strShortCut)
       objShellLink.TargetPath = objArgs(i)
       objShellLink.WindowStyle = 1
       objShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), "/"))
       objShellLink.Save
   Next
   MsgBox "发送完毕",vbOK,"END"
Else
   MsgBox "谢谢使用",vbOK,"END"
End If

Function GetMyFileName(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetMyFileName = fso.GetFileName(DriveSpec)
End Function
       现在，在Sendto文件夹建立指向这个VBs的快捷方式，选个好看的图标，你就能像”发送快捷方式到桌面“一样方便的发送快捷方式到任意文件夹了！