正确使用GetFolder获取SaveToFile的路径

Question

我正在尝试使用GetFolder（）来获取可以使用“保存到文件”保存的文件路径，并且不断出现运行时错误3004写入文件失败，问题是该文件仍然保存，但是它保存在外部路径应该从getfolder指向的文件夹。我用getfolder抓取的文件夹在我的文档文件中名为Test。创建的文档将以相同的名称显示在测试文件夹旁边，而不是内部。说到它是如何命名的，它具有要测试的文件的名称，在我想要的名称之前，因此该文件名为TestNameIWant，对此我可以做些什么？

Dim BaseDirectory As String
BaseDirectory = GetFolder()
If (BaseDirectory = vbNullString) Then
MsgBox "No Folder Selected" < vbExclamation, "Error"
End If
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "iso-8859-1"
objStream.Write("Testing" & vbLf)
projectName = "NameIwant"
FullPath = BaseDirectory & projectName & ".xml"
objStream.SaveToFile FullPath, 1
objStream.Close

我希望文件保存到特定位置，并且不断出现运行时错误3004写入文件失败。