'查找电脑文件,包括同名不同盘,不同目录Private Sub CommandButton1_Click()Dim i&, irow&, k&, j&, fso As Object, drs As Object, dr As Objectirow = Range("A65536").End(xlUp).RowFor i = 1 To irow
Set fso = CreateObject("Scripting.FileSystemObject")
Set drs = fso.Drives
On Error GoTo err1
k = 2
For Each dr In drs
...
|