Hallo zusammen,
für eine VBA-Anwendung in ein CAD-System (Inventor) habe ich einen Common Dialog verwendet (siehe Code). Leider wird der Initialisierungspfad den ich im Code vorgebe von der Anwendung nicht verwendet, sondern der Pfad der letzten Inventor Abspeicherung (Inventor 11), wie kann ich das Problem lösen?
Sub CommandButton3_Click()
Dim BrowsePath As String
Dim OldPath As String
Dim OpenClick As Boolean
OldPath = Pfad_Init
With Me.cdlg3
.CancelError = True
OpenClick = Not .CancelError
.InitDir = OldPath
.filename = "_" 'important - "Open" click is not possible without any file name given
.Filter = "Verzeichnisse|*.NoFiles|All Files (*.*)|*.*"
.DialogTitle = "Pfad auswählen"
On Error GoTo CancelClick
.ShowOpen
OpenClick = True
CancelClick:
'OpenClick is still "Not .CancelError" (mostly False), if the error occured
End With 'Me.cdlg1
If OpenClick Then
BrowsePath = CurDir + "\"
Else
ChDir OldPath ' important, because the current path changes automatically while browsing
BrowsePath = OldPath
End If
Label5.Caption = BrowsePath
End Sub
|