将初始打开目录设置为具有给定名称的文件夹

For X = 65 to 90
   rVal = Dir(chr(X) & ":\Mypath\MyFile.ext")
   If rVal  "" Then
     X = 91
   End If
Next X

For X = 67 to 69
   rVal = Dir(chr(X) & ":\Mypath\MyFile.ext")
   If rVal  "" Then
     X = 70
   End If
Next X

'Display an open dialog, adds selected files to an array
Private Function GetFiles() As Variant
  'Stores the object created by the CommonDialog class
  Dim myOpen As CommonDialogProject.CommonDialog
  Set myOpen = CommonDialogProject.Init 'Create the object
  
  myOpen.DialogTitle = "Select drawings" 'Change the title
  myOpen.Filter = "AutoCAD Drawing files (*.dwg)|*.dwg|" & _
                          "AutoCAD Drawing template files (*.dwt)|*.dwt"
    myOpen.DefaultExt = "dwg"
  'Set flags to limit behavior of the dialog box
  myOpen.Flags = OFN_ALLOWMULTISELECT + _
                 OFN_EXPLORER + _
                 OFN_FILEMUSTEXIST + _
                 OFN_HIDEREADONLY + _
                 OFN_PATHMUSTEXIST
  For GetFiles = 67 To 69
   rVal = Dir(Chr(GetFiles) & ":\Drawings")
   If rVal  "" Then
     GetFiles = 70
   End If
Next GetFiles

Private Function FindPath (ByVal path As String) As String
Dim X As Integer
For X = 67 to 69
   rVal = Dir(Chr(X) & ":" & path & "\*.*")
   If rVal  "" Then
     FindPath = Chr(X) & ":" & path
     X = 70
   Else
     FindPath = "C:"
   End If
Next X
End Function

MyOpen.InitDir = FindPath ("path\to\files\no\leading\or\trailing\backslashes")

Option Explicit
Public Function Init() As CommonDialog
Set Init = New CommonDialog
End Function
Private Function FindPath(ByVal path As String) As String
Dim X As Integer
For X = 67 To 69
   rVal = Dir(Chr(X) & ":" & path & "\*.*")
   If rVal  "" Then
     FindPath = Chr(X) & ":" & path
     X = 70
   Else
     FindPath = "C:"
   End If
Next X
End Function