中国DOS联盟

SHORTCUT.EXE -f -t %systemroot%\system32\notepad.exe -n "%USERPROFILE%\桌面"\记事本 -d "%USERPROFILE%"

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