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

原创 2005年03月01日 07:49:00

          由于最近下了很多歌曲,但是“我的音乐“所在磁盘空间紧张,所以想到将音乐移到别的磁盘,而在“我的音乐“文件夹只保留指向这些音乐的快捷方式,因此写了这个脚本。
'**************************************************************
'*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的快捷方式,选个好看的图标,你就能像”发送快捷方式到桌面“一样方便的发送快捷方式到任意文件夹了!

在xmlspy中使用java的xslt转换

在xmlspy中使用java的xslt转换.我喜欢在xmlspy中来写xml, xsl, xsd, 并且用xmlspy自带的xslt工具或者利用msxml来查看xslt转换结果. 在实际使用中发现尽管...
  • steeven
  • steeven
  • 2003-01-02 09:15:00
  • 2381

右键发送(sendto),创建快捷方式到自定义的位置

  在SendTo文件夹里加上一文件夹的快捷方式后,在右键发送到这个文件夹的是这些文件的一个副本,实际上是一个复制的过程,有时候我们只希望是快捷方式,那就得另想办法了。  把如下代码内容保存为shor...
  • scz123
  • scz123
  • 2006-08-04 15:29:00
  • 2490

Win7下怎么将程序添加至“发送到”

第一步,将隐藏文件显示出来:打开我的电脑,点击“组织”下拉框,选择“文件夹和搜索选项”,在查看栏中,将“隐藏受保护的系操作系统文件”的勾去掉,然后选择“显示隐藏文件、文件夹和驱动”;   第二步,找...
  • what1136075171
  • what1136075171
  • 2012-02-26 12:31:28
  • 2127

发送快捷方式到指定文件夹

  • 2009年05月05日 20:14
  • 968B
  • 下载

电脑 右击 发送到没有桌面快捷方式解决方法

一、首先把显示隐藏文件、文件夹、驱动器 1、 工具----> 文件夹选项 2、查看---->显示隐藏的文件、文件夹、驱动器 二、打开Sendto文件夹(没有的话新建一个,并把它设为隐藏),然后在...
  • u013147860
  • u013147860
  • 2015-09-04 21:02:15
  • 2684

所有文件夹都变成1KB文件夹快捷方式病毒的手动清除方法

电脑差不多都因使用U盘而感染了病毒,其中一个就是Autoran病毒的变种,它的症状我就不再描述了,另外一个病毒的症状是所有文件夹都变成了1KB文件夹快捷方式,各盘无法双击打开(但右击打开可用),存放的...
  • piaolankeke
  • piaolankeke
  • 2010-04-05 20:47:00
  • 15729

win7发送到桌面快捷方式丢失解决方案

1、在开始菜单中输入shell:sendto回车,打开sendto文件夹,按住shift点鼠标右键,选在此处打开命令提示符,在黑色的窗口中输入color>桌面快捷方式.desklink回车即可,此法基...
  • mekanuo
  • mekanuo
  • 2016-05-04 09:12:52
  • 212

如何快速添加快捷方式到“发送到”选项...

这是一个电脑使用的技巧,用好这个技巧,是由电脑菜鸟向高手迈进的中间一个过程。 尤其是把文件发送到调试器,比如ollydbg等工具,特别有用。 一分钟,教你学会,如何添加快捷方式到“发送到”选项里面。...
  • whatday
  • whatday
  • 2013-08-27 12:09:17
  • 3681

MFC release 发送到桌面快捷方式图标问题

修改MFC应用程序图标的方法,网络上已经很多。比较简单的是用自己转的ICON文件替换IDR_MAINFRAME默认图标文件,在res文件夹里。 现在说的问题是,即使实现了exe图标的更改。然而在re...
  • locklzg
  • locklzg
  • 2018-01-01 20:18:12
  • 95

U盘文件变成一个快捷方式或者变成一个文件夹的解决办法

这里以win7为例: 方法1,:首先打开命令行窗口,然后输入你的u盘的盘符如H:从而进入你的u盘,然后输入以下命令:attrib -s -h -r *.* /s /d  然后确定,接着就等他执行完...
  • xjb19901008
  • xjb19901008
  • 2013-04-08 17:55:24
  • 5827
收藏助手
不良信息举报
您举报文章:一个“发送到任意文件夹快捷方式”的脚本程序
举报原因:
原因补充:

(最多只允许输入30个字)