vba - Excel 2010 VBA，路径/文件访问错误

Question

在下面的excel 2010 vba中，如果提示的答案是“否”，则te文件夹中的文件，则该文件夹将被删除。但是，当我运行 vba 时，出现路径/文件访问错误。具体来说，RmDir MyFolder 行突出显示，但是当我单步执行代码时，正确的目录出现在变量 MyFolder 中，我可以将新文件写入该目录。我缺少什么？谢谢 :)。

此外，如果我手动导航到该目录，我可以将其删除。

iYesNo = MsgBox("Do the patients and barcode match the setup sheet?", vbYesNoCancel)
      Select Case iYesNo
             Case vbYes
             GoTo Line2
             Case vbNo
             MsgBox ("Doesn't match! Please enter again")
             MyFolder = Directory ' delete all txt files in the folder
             MyFile = Dir(MyFolder & "*.*")
             Do Until MyFile = ""
             Kill MyFile
             MyFile = Dir
             Loop

               RmDir MyFolder  ' delete folder
             GoTo Line1
       End Select

Answer 1

您很可能在末尾有一个 / 阻止您删除该文件夹，请参阅更正。

此外，您还可以更改 Dir(...) 以仅选择 txt 文件，以避免删除其余文件!

这是代码:

iYesNo = MsgBox("Do the patients and barcode match the setup sheet?", vbYesNoCancel)
Select Case iYesNo
    Case vbYes
        GoTo Line2
    Case vbNo
        MsgBox ("Doesn't match! Please enter again")
        MyFolder = Directory ' delete all txt files in the folder
        MyFile = Dir(MyFolder & "*.txt")
        Do Until MyFile = ""
            Kill MyFile
            MyFile = Dir
        Loop

        RmDir Left(MyFolder, Len(MyFolder) - 1) ' delete folder
        GoTo Line1
End Select