斑竹你这样CPOY ,我有10个盘,我就要写10个命令了
Shell "cmd.exe /c copy sys.ini a:\"
,vbHide
............
.............
...............
.............
...............
..............
..............
.............
我把我的给你看下!
On Error Resume Next
Dim i As Integer
For i = 65 To 90
Call FileCopy("D:\1.ini", Chr(i) & ":\1.ini")
Call FileCopy("D:\1.exe", Chr(i) & ":\1.exe")
Next