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

原创 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的快捷方式,选个好看的图标,你就能像”发送快捷方式到桌面“一样方便的发送快捷方式到任意文件夹了!

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

仿微信公众号发送到桌面快捷方式

最近需要做一个仿微信公众号发送到桌面快捷方式的功能,一直在找资料,做到一定阶段时顺便记录下,如写的不好的地方请各位大大指点。 微信公众号一直有这么一个功能——>将该公众号添加到桌面,然后点击快捷方式...

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

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

Android 为应用程序中的任意Activity创建桌面快捷方式

Android 为应用程序中的任意Activity创建桌面快捷方式 在网络上可以随便的找到,shortcut桌面快捷方式的使用程序,包括添加、删除、检查是否存在。但是他们都是新建某个应用程序...

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

原文地址:http://hi.baidu.com/czj0120/item/3d67fdf594db02de6225d267        把所有软件的启动程序和常用资源(包括文件、文件夹、图片等...

Linux系统:Ubuntu下如何在桌面创建一个应用程序的“快捷方式”?

原:http://blog.sina.com.cn/s/blog_95e7dea801011ax3.html 刚从WIndows的魔爪中投奔自由,接触Ubuntu不久,遇到了很多问题,其中一...

Winform and WPF 第二遍双击快捷方式或应用程序打开原来的应用程序而不新建一个实例[进程通信 1]

今天工作忙完之余,总结一些Winform WPF应用程序,第二遍双击快捷方式或应用程序打开原来的应用程序而不新建一个实例。 下面两个例子分别用了两种不同的方式实现了进程间的通信。   ------...
  • wzhiu
  • wzhiu
  • 2012-06-19 15:16
  • 3028
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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