删除excel 2010 vba中的文件然后文件夹

Question

我正在尝试删除目录中的文件，如果用户提示的答案为no则删除目录。在Lleno 下方，但我在excel 2010 vba行收到语法错误。谢谢你:)。

For

当我逐步执行代码时，目录由一个看似正确的变量设置。

Answer 1

您需要使用DIR并循环遍历文件：

这将列出文件夹中的文件：

Sub MyFileStuff()
Dim MyFile As String, MyFolder As String
MyFolder = "N:\"
MyFile = Dir(MyFolder & "*.*")
Do Until MyFile = ""
    MsgBox MyFile
    MyFile = Dir
Loop
End Sub

你可以修改它来杀死文件而不是msgboxing它。