Hallo!
ich möchte mittels MSComDlg.CommonDialog dateien auswählen.
mit dem von mir verwendeten code funktioniert das auch solange es sich nur um eine Datei handelt.
gibt es die möglichkeit durch parameter das auswählen mehrerer dateien des selben ordners, zB. durch gedrückt halten der Ctrl-Taste, zu ermöglichen?
hier mein, für eine datei, funktionierender code:
Function DateiAusOCX() As String
Dim CDLG As Object
Dim strFile As String
Set CDLG = CreateObject("MSComDlg.CommonDialog")
With CDLG
.DialogTitle = "Dateien wählen"
.Filter = _
"Import BDM Sheet|*.xls"
.ShowOpen
strFile = .FileName
End With
Set CDLG = Nothing
DateiAusOCX = strFile
End Function
der pfad wird in strFile gespeichert. hier sollten später, durch trennzeichen getrennt, mehrere dateipfade stehen.
Vielen Dank schonmal im voraus für Eure Hilfe,
Thorbrandt
Hallo,
ich habs gefunden. Man kanns über die Flags einstellen.
Danke!