接收到的运行时错误58文件已经存在

Question

我不断收到

  

“已存在运行时错误58文件”

当尝试运行以下代码时。我已经检查了两次和三次，文件肯定不存在。

我首先运行另一个宏，该宏为我提供了要在其中创建此新文件夹的文件夹的位置。该位置显示在ActiveWorkbook.Sheets(1).Range("A1")中。 Master File是我要创建的新文件夹的名称。

Sub CreateFolder

Dim Bname As String
Bname = ActiveWorkbook.Sheets(1).Range("A1").Text & "\Master File"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "Bname"

End Sub

我也尝试了以下方法：

Sub CreateFolder

Dim Bname As String
Bname = ActiveWorkbook.Sheets(1).Range("A1").Text & "\Master File"
MkDir "Bname"

End Sub

Answer 1

您创建文件夹“ Bname”，而不是“ .. \ Master File”。请勿在变量周围使用引号。

fso.CreateFolder Bname