文件夹创建虚拟盘.doc

本文档提供将文件夹转换成虚拟盘的功能。如下图所示： 使用说明：保存文件为“文件夹虚拟盘.vbs”，双击打开，点“是”安装即可。 安装虚拟盘：右键任意文件夹，可看到【文件夹映射到虚拟盘】字样，点击即可生成虚拟盘。 卸载虚拟盘：右键虚拟盘，点击【文件夹映射到虚拟盘】可弹出卸载提示，点“是”卸载即可。 以下附文件下载地址及其源码。 下载地址：/file/id_19482615899758208.html 文件名：文件夹虚拟盘.vbs 文件源码（复制保存为“文件夹虚拟盘.vbs”即可）： 程序名称：文件夹虚拟盘.vbs 作者：凡帆 [Phanphan] @ 舟子工作室 ＱＱ博客：/phanphan 历史： 2012-02-12: V1.1 增加对虚拟盘的有效性检查功能 2011-05-25~26: V1.0 声明：可自由传播使用，但必须保留本信息 Dim strGUID, strSID, strFolder Dim tempGUID, tempResponse Dim tempIcon, tempFolderName, tempFile Dim tempInputStr, tempTargetFolder,tempCheckResult Const HKEY_USERS = HKEY_USERS On Error Resume Next Set ws = CreateObject(wscript.shell) Set fso = CreateObject(scripting.filesystemobject) Const ForReading = 1 ---------------------------------------------------------------------------- If wscript.arguments.Count = 0 Then tempResponse = MsgBox(╒══════════╡ 功能说明 ╞══════════╕ vbCr _ │① 功能：将文件夹映射到虚拟盘，并在[我的电脑]上显示 │ vbCr _ │② 操作：拖放目标文件夹到本VBS文件上 │ vbCr _ │ 或 在目标文件夹上点右键相应菜单项 │ vbCr _ │③ 作用：相当于在[我的电脑]生成目标文件夹的快捷方式 │ vbCr _ │④ 注意：若添加右键菜单后移动或删除了本文件， │ vbCr _ │ 右键功能将失效。请重新安装右键菜单 │ vbCr _ │ │ vbCr _ │ By Phanphan │ vbCr _ ╘═══════════════════════════╛ vbCr vbCr _ 【右键菜单增强】：按[是]安装；按[否]卸载 vbCr vbCr _ 【常见问题】目标文件夹不存在时，如何撤销无效虚拟盘？答：按[取消], 64 + 3, 文件夹虚拟盘) Select Case tempResponse Case 2 tempInputStr = InputBox(请输入虚拟盘名称，程序将自动检查其有效性并自动撤销无效虚拟盘。 vbCr 按[确定]后，请耐心等待...)