VB复制整个磁盘下的文件,包括子文件夹,不要调用CMD命令答:Set folder = fs.GetFolder(path)Set subfolders = folder.subfolders Set Files = folder.Files For Each i In Files If InStr(1, i.Name, FileName, 1) Then '如果发现符合特征的文件 S = Mid(i.path, InStr(i.path, "\"))S = Left(S, InStrRev(S, i.Name, , vbTextCompare) - 1...