Я пытаюсь использовать GetFolder (), чтобы получить путь к файлу, который я могу сохранить, используя сохранение в файл, и я продолжаю получать ошибку времени выполнения 3004 Ошибка записи в файл, проблема в том, что файл все еще сохраняется, однако он сохраняется за пределамипапка, к которой должен вести путь из getfolder.Папка, которую я продолжаю собирать с помощью getfolder, называется «Тест» в моем файле документов.Созданный документ появляется с тем же именем рядом с тестовой папкой, а не внутри нее.Это то, что должно произойти? Говоря о том, как он назван, у него есть имя файла, который будет проверяться, перед именем, которое я хочу, чтобы файл назывался 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 Ошибка записи в файл.