file - Excel 宏 - 移动文件（修复代码）

Question

我有这个代码：

Sub MoveFiles()
Dim d As String, ext, x
Dim srcPath As String, destPath As String, srcFile As String
srcPath = "C:\test\"
destPath = "C:\test2\"
ext = Array("*.csv", "*.xls")
For Each x In ext
d = Dir(srcPath & x)
    Do While d <> ""
        srcFile = srcPath & d
        FileCopy srcFile, destPath & d
        Kill srcFile
        d = Dir
    Loop
Next
End Sub

但它会删除 srcPath 中的每个文件。我只需要它来删除 activeworkbook.name 而不是每一个。我想了这个代码好一个小时，无法弄清楚如何让它不循环并且仍然做它应该做的事情。

我很感激这方面的一些帮助

Answer 1

如果您只想杀死一个特定的文件，那么为什么要使用一个循环来杀死其迭代中的每个文件呢？

如果你想杀死一个特定的文件并且仍然循环，那么你需要添加一个“if”子句，比如：

if srcFile = activewindow.name then
    kill
else
    do nothing
end if

还是我误会了你？