按键精灵判断打开文件的数量

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 &"for %%a in ("& 有效盘符 &") do ( " & vbCrLf 

，bat = bat &" if exist %%a:\nul ( " & vbCrLf 

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