Dim dlg As CCommonDialogs
Set dlg = New CCommonDialogs
dlg.Init Me 'sätt ägarfönster. Detta måste anropas!
If dlg.ShowFolder = True Then
MsgBox dlg.Path
End If
#1090 - Ersättning för Common Dialog
| Sample: | CCommonDialogs.zip |
| Size: | 4,95 kB |
Dim dlg As CCommonDialogs
Set dlg = New CCommonDialogs
dlg.Init Me 'sätt ägarfönster. Detta måste anropas!
If dlg.ShowFolder = True Then
MsgBox dlg.Path
End If
| Sample: | CCommonDialogs.zip |
| Size: | 4,95 kB |