'Rem EverythingAutoSetup.VBS 安装Everything的VBS脚本 2019年11月25日写 'Rem Everything是voidtools开发的一款本地NTFS文件和文件夹名称搜索工具 'Rem Everything基于名称快速定位本地NTFS文件和文件夹。 'Rem Everything不具有MasterSeeker的索引完成前抢先式显示部分搜索结果的能力 'Rem http://www.autoahk.com/archives/16500 'Rem https://www.cnblogs.com/delphixx/p/11927002.html 'Rem https://gitee.com/weiyunwps618/codes/kuapc0qgdmibsz1e53olv49 'Rem https://www.voidtools.com/zh-cn/ 'Rem https://www.xyboot.com/ 'Rem 请确保此VBS脚本所在文件夹存在Everything.exe和Everything.lng这两个文件 'Rem 安装Everything的VBS脚本 'Rem 为何不使用AutoHotkey 'Rem 因为没有安装AutoHotkey的电脑无法运行AHK脚本 'Rem 因为EXE文件容易被杀毒软件误删 'Rem 新建文件夹D:\DIYTOOLS\Everything 'Rem 之所以把绿色免安装软件分类保存在D:\DIYTOOLS\ 'Rem 是为了兼容“杏雨梨云USB维护系统2019中秋版之国庆更新” 'Rem 推荐使用uTools管理电脑中的快捷方式 dim fso,fld Set fso=CreateObject("Scripting.FileSystemObject") if fso.folderExists("D:\DIYTOOLS\Everything") Then 'MsgBox "文件夹已经存在" else set fld = fso.createfolder("D:\DIYTOOLS\Everything") End If 'Rem 复制文件到D:\DIYTOOLS\Everything文件夹 parentfolder = "D:\" sourcefile = createobject("Scripting.FileSystemObject").GetFolder(".").Path&"\everything.exe" targetfolder = parentfolder & "DIYTOOLS" & "\" & "Everything"& "\" set objshell = createobject("shell.application") set objfolder = objshell.nameSpace(parentfolder) set so=createobject("scripting.filesystemobject") if IsExitAFile("D:\\DIYTOOLS\\Everything\\Everything.exe") Then 'DeleteAFile("D:\\test.tst") else fso.getfile(sourcefile).copy(targetfolder) End If sourcefile = createobject("Scripting.FileSystemObject").GetFolder(".").Path&"\everything.lng" if IsExitAFile("D:\\DIYTOOLS\\Everything\\Everything.lng") Then 'DeleteAFile("D:\\test.tst") else fso.getfile(sourcefile).copy(targetfolder) End If Function IsExitAFile(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") if fso.fileExists(filespec) Then IsExitAFile=True else IsExitAFile=False End If End Function 'Rem 在桌面和开始菜单新建文件D:\DIYTOOLS\Everything\Everything.exe的快捷方式 Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\Everything.lnk") oShellLink.TargetPath = "D:\DIYTOOLS\Everything\Everything.exe" oShellLink.Arguments = " " '程序的参数 oShellLink.WindowStyle = 1 '参数1默认窗口激活,参数3最大化激活,参数7最小化 oShellLink.Hotkey = "F8" '快捷键 oShellLink.IconLocation = "D:\DIYTOOLS\Everything\Everything.exe, 0" '图标 oShellLink.Description = "Everything搜索本地文件" '备注 oShellLink.WorkingDirectory = "D:\DIYTOOLS\Everything\" '起始位置 oShellLink.Save '创建保存快捷方式 'Rem 运行Everything set shell=CreateObject("WScript.shell") shell.Run "D:\DIYTOOLS\Everything\Everything.exe"
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
你的代码一直是这么高深啊!不好测试,希望能看到你详细的说明!
最好有个是视频就更加完美了
好的,谢谢指教,在今后发布文章时改进一下,不断提高,不断改进,不断测试,不断优化。
写好代码后一头雾水,暂时没有测试,没有优化,没有改进, 为了防止丢失代码,暂存一下,同时,
也是发送给大家参考一下,学习一下,探讨一下,科研一下。
以前的电脑文件有点乱,现在正在仔细整理中。
我常用的伍个电子文件保存位置如下:
电脑文件保存位置1: 小米10Pro_12GB+512GB自带的相册
(一刻相册、时光相册、微云网盘、百度网盘、天翼网盘等同时实时自动备份安卓手机相册中的照片)
电脑文件保存位置2: 有道云笔记(用腾讯QQ账号登录,
日常记录今后可能会全文搜索的信息)
电脑文件保存位置3: 腾讯微云网盘(用腾讯QQ账号登录,
日常记录所有办公文档docx,表格xlsx,图片jpg,
用腾讯微云同步助手实时备份到本地磁盘)
电脑文件保存位置4: 奥睿科2259RU3磁盘阵列盒(两块2.5英寸7毫米厚的机械硬盘
(请不要使用固态硬盘,请不要使用固态硬盘)组建RAID1镜像阵列,
实时镜像阵列防止磁盘损坏引起的文件丢失,
每天用RAID管理软件检查硬盘健康状况和RAID1镜像阵列健康状态,
及时发现损坏的磁盘,及时复制抢救数据,及时更换损坏的磁盘)
电脑文件保存位置5:各类网络云存储网盘(拖放一下让他自己慢慢上传,
经常上传备份已经整理好的文件,经常上传,永久备份,
腾讯微云、百度网盘、天翼云盘、和彩云、115、曲奇云盘、坚果云、微盘等等)