Hallo,
mein Problem is das ich bei einem FileDialog ne Fehlermeldung bekomme wenn ich nichts auswähle und auf abbrechen klick. ich bekomme den fehler:
„Die Methode ‚ShowOpen‘ für das Object ‚ICommonDialog‘ ist fehlgeschlagen.“
mein code :
Private Sub fb_opendialog895_Click()
On Error GoTo Err_fb_opendialog895_Click
Dim gCommonDialog As CommonDialog
Dim gInitDir As String
Dim gFileName As String
Set gCommonDialog = New CommonDialog
With gCommonDialog
.InitDir = gInitDir
.Filter = „All Files (*.*)|*.*|“
.CancelError = True
.ShowOpen
gFileName = .FileName
End With
Exit_fb_opendialog895_Click:
Exit Sub
Err_fb_opendialog895_Click:
gFileName = „“
MsgBox Err.Description
Resume Exit_fb_opendialog895_Click
Exit Sub
End Sub
was kann man da tun ?
1000 Dank