Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' AddDir2SendTo v1.0
' 脚本功能: 为任意目录在SendTo中创建快捷方式
' 安装方法: 直接双击文件,本脚本会自动安装
' 使用方法: 安装后会在右键的发送到菜单中出现
' "自定义目录"和"添加目录"选项,在文件夹上点右键
' 选择"添加目录"将快捷方式添加到自定义目录中,
' 以后任何文件都可以发送到这个目录了,很方便吧:)
' 作者: sonic_andy
' 修改日期: 2006.10.28
Dim objShell,objFSO,objFile,objDir,objShellLink,strTargetDir
'创建wscript的shell和FileSystemObject对象
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'定义快捷方式创建的目标文件夹
strTargetDir = objShell.SpecialFolders("SendTo") & "自定义目录"
'若参数为空,则安装脚本到系统
If Wscript.Arguments.count=0 Then setup
'参数是否符合标准
If Not objFSO.FolderExists(Wscript.Arguments(0)) Then
MsgBox("指定的对象必须是目录!")
Wscript.quit
End If
'将参数作为目录名创建文件对象
Set objDir = objFSO.GetFolder(Wscript.Arguments(0))
'调用过程添加快捷方式
addLink strTargetDir & "" & objDir.Name & ".lnk",objDir.Path,objDir.Name,""
MsgBox("目录的快捷方式创建成功!")
Wscript.quit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程:安装脚本
Sub setup ( )
Set objFile = objFSO.GetFile(Wscript.ScriptFullName)
'将脚本文件的快捷方式创建到sendto目录下
addLink objShell.SpecialFolders("SendTo") & "添加目录.lnk",objFile.Path,"添加目录",objFile.ParentFolder
'在sendto目录中建立'自定义目录'文件夹
If Not objFSO.FolderExists(strTargetDir) Then
objFSO.CreateFolder(strTargetDir)
End If
MsgBox "安装成功!"
Wscript.quit
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程:添加快捷方式
Sub addLink (strLinkfile, strTargetpath, strDescription, strWorkdir)
'创建一个指定路径(包含文件名)的快捷方式
Set objShellLink = objShell.CreateShortcut(strLinkfile)
'设置目标路径
objShellLink.TargetPath = strTargetpath
'设置快捷方式描述
objShellLink.Description = strDescription
'设置工作目录
objShellLink.WorkingDirectory = strWorkdir
'保存快捷方式
objShellLink.Save
End Sub
