excel 2010 vba，path/文件访问错误

在下面的excel 2010 vba如果提示的回答是否则te文件夹中的文件，那么该文件夹将被删除。 但是，我运行vba时遇到了path/file access error 。 具体来说， RmDir MyFolder行是突出显示的，但是当我逐步浏览代码时，正确的目录出现在variablesMyFolder ，我可以将新文件写入目录。 我错过了什么？ 谢谢 ：）。

另外，如果我手动导航到目录，我可以删除它。

 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(...)只selecttxt文件，以避免删除其余的文件！

这里是代码：

 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