Как отобразить тот или иной диск, когда в открытых диалогах не найден ранее выбранный путь?

Question

ИСПОЛЬЗОВАНИЕ VB 6

Мой код.

CommonDialog1.DialogTitle = "Open File"
CommonDialog1.Filter = "Database (1.mdb) |1.mdb"
CommonDialog1.FilterIndex = 1
CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowOpen
If Err Then
    MsgBox "Select Database"
    Exit Sub
End If

Я использую открытый диалог в моем проекте. Когда я запускаю проект, я выбираю файл из удаленной системы.

Предположим, что если удаленная система недоступна, в следующий раз, когда я выберу диалоговое окно открытия, в диалоговом окне открытия должен отобразиться диск c

.

Теперь он отображает папку моего проекта, он должен отображать диск c

Как написать код для этого условия?

Требуется справка по коду VB6.

Answer 1

Это решит то, что вы спрашиваете:

Чтобы получить FileSystemObject, необходимо добавить ссылку в свой проект в «Среду выполнения сценариев Microsoft».

Dim fs As New FileSystemObject
Dim currentDir As String
currentDir = fs.GetParentFolderName(CommonDialog1.FileName)
If fs.FolderExists(currentDir) Then
    CommonDialog1.InitDir = currentDir
Else
    CommonDialog1.FileName = ""
    CommonDialog1.InitDir = "C:\"
End If

EDIT:
Вы также должны установить CommonDialog1.FileName = ""

Answer 2

Ответ, который вы ищете, находится на сайте VBCity Пример кода позволяет вам делать именно то, что вы просите.