Question

按键精灵怎么进行条件判断啊？

Answer 1

1、TracePrint "开始"，TracePrint 全盘搜索文件("1.txt")'根据返回值 自行编写判断。

2、Function 全盘搜索文件(文件名)，Dim fso, fw, bat, fr, wsh, 有效盘符。

3、有效盘符 = 获取存在磁盘()，Set fso = CreateObject，If fso.FileExists("全盘搜索.txt") Then fso.DeleteFile ("全盘搜索.txt")。

4、Set fw = fso.OpenTextFile("全盘搜索.bat", 2, True)。bat = "@echo off " & vbCrLf。

5、bat = bat &"set ""FileName=" & 文件名 & """ " & vbCrLf ，bat = bat &"echo 正在搜索，请稍候... " & vbCrLf。

6、bat = bat &" if /i ""%%~nxb"" equ ""%FileName%"" ( " & vbCrLf 。bat = bat &" echo.%%b >> 全盘搜索.txt )))) " & vbCrLf 。