'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"

'Rem EverythingAutoSetup.VBS 安装Everything的VBS脚本 2019年11月25日写的更多相关文章

  1. 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写

    /* 键盘和鼠标闲置超时时关闭显示器并锁定电脑桌面的AutoHotkey脚本 2019年11月24日写 在电脑桌面锁定时移动鼠标就会显示登录界面,此时即使超过电源设置的时间电脑也不会关闭显示器使得屏幕 ...

  2. 开机时自动启动的AutoHotkey脚本 2019年10月09日

    ;;; 开机时自动启动的AutoHotkey脚本 2019年10月09日;; http://www.autoahk.com/archives/16600; https://www.cnblogs.co ...

  3. 开机时自动启动的AutoHotkey脚本 2019年07月08日19时06分

    ;;; 开机时自动启动的AutoHotkey脚本;; 此脚本修改时间 2019年06月18日20时48分;; 计时器创建代码段 ------------------------------------ ...

  4. 根据随身固态U盘卷标搜索U盘盘符并打开文件的批处理脚本.bat 徐晓亮 595076941@qq.com 2019年12月19日6点50分

    @Echo offRem 根据随身固态U盘卷标搜索U盘盘符并打开文件的批处理脚本.batRem 徐晓亮 595076941@qq.com 2019年12月19日6点50分 Rem 此批处理脚本源代码的 ...

  5. 11月16日《奥威Power-BI基于SQL的存储过程及自定义SQL脚本制作报表》腾讯课堂开课啦

           上周的课程<奥威Power-BI vs微软Power BI>带同学们全面认识了两个Power-BI的使用情况,同学们已经迫不及待想知道这周的学习内容了吧!这周的课程关键词—— ...

  6. 2019年1月23日,好像是这个日子,RF发布了 1.7.3.1 支持python3.6以上了,安装成功。

    安装步骤:(win10 家庭版 64) 1.安装Python3.7.2,记得勾选添加Path 2.pip install robotframework 3.pip install wxPython 4 ...

  7. 亲测安装nginx1.8.1 日期2016年3月16日

    1.安装nginx tar zxvf nginx-1.8.1.tar.gz cd nginx-1.8.1 ./configure make make install /usr/local/nginx/ ...

  8. 2016年11月3日JS脚本简介数据类型: 1.整型:int 2.小数类型: float(单精度) double(双精度) decimal () 3.字符类型: chr 4.字符串类型:sting 5.日期时间:datetime 6.布尔型数据:bool 7.对象类型:object 8.二进制:binary 语言类型: 1.强类型语言:c++ c c# java 2.弱类型语

    数据类型: 1.整型:int 2.小数类型: float(单精度) double(双精度) decimal () 3.字符类型: chr 4.字符串类型:sting 5.日期时间:datetime 6 ...

  9. 新安装loadrunner无法录制脚本的原因之一及解决方案

    eg:IE浏览器 1.新安装的loadrunner录制脚本,一直是加载中的状态: 2.苦思冥想终于找到解决方案: 3.IE浏览器-->设置-->Internet选项 4."安全& ...

随机推荐

  1. 解析 Nebula Graph 子图设计及实践

    本文首发于 Nebula Graph 公众号 NebulaGraphCommunity,Follow 看大厂图数据库技术实践. 前言 在先前的 Query Engine 源码解析中,我们介绍了 2.0 ...

  2. 电容三点式振荡电路详解及Multisim实例仿真

    电容三点式振荡器也称考毕兹(Colpitts,也叫科耳皮兹)振荡器,是三极管自激LC振荡器的一种,因振荡回路中两个串联电容的三个端分别与三极管的三个极相接而得名,适合于高频振荡输出的电路形式之一.电容 ...

  3. Java 读取Word表格中的文本和图片

    本文通过Java程序来展示如何读取Word表格,包括读取表格中的文本和图片.下面是具体实现的步骤和方法. 1. 程序环境准备 代码编译工具:IntelliJ IDEA Jdk版本:1.8.0 测试文档 ...

  4. 14、WindowsServer修改NTP时间同步服务器

    1. 2. 3.

  5. 解决git同步每次都需要输入用户名、密码

    打开 git bash 执行命令: git config --global credential.helper store

  6. scRNAseq benchmark 学习笔记

    背景 把早年没填完的坑(单细胞测序的细胞类型鉴别)给重新拾起来 其Github描述的基本情况: 作者并不对单个分类器进行说明,统一包装在benchmark工程里,还建立了docker容器 但说明了在s ...

  7. Murmur3 Hash 128位java和C#方法

    java调用com.google.guava 引入依赖 <dependency> <groupId>com.google.guava</groupId> <a ...

  8. 整理!企业选择好用的CRM系统的要点(上)

    随着市场经济的发展,对任何行业的企业来说,客户都是非常重要的一个部分.CRM系统帮助企业做到以客户为中心,它可以根据客户的具体要求进行跟进和反馈,在很大程度上提高公司的客户服务水平和客户满意度,进而提 ...

  9. Kafka常用命令及详细介绍

    目录 常用操作 Sentry kafka 清理 Kafka 术语 Kafka 主题剖析 Kafka 生产者 kafka 消费者和消费组 一致性和可用性 写入处理 失败处理 Kafka 客户端一致性 文 ...

  10. SpringBoot:WebSocket使用Service层的方法

    方法一: 创建工具类 ApplicationContextRegister.java import org.springframework.beans.BeansException; import o ...