.InitialView = msoFileDialogViewList
07.03.2021 21:55:41
Sonnenpeter
Sub DateiAuswählenDialog()
Dim DateiAnzahl As Long
With Application.FileDialog(msoFileDialogOpen) '### Öffnen des Dateidialogfensters ###
.Title = "Mein Dialog"
'.AllowMultiSelect = False
.AllowMultiSelect = True
.ButtonName = "Auswählen"
.Filters.Clear
.Filters.Add "Alles (*.*) ", "*.*", 1
.Filters.Add "Musik-Dateien", "*.mp3*", 2
.Filters.Add "Excel-Dateien", "*.XL*", 3
.Filters.Add "Word-Dateien", "*.do*", 4
.FilterIndex =2
.InitialFileName = "C:\"
.InitialView = msoFileDialogViewLargeIcons
'.InitialView = msoFileDialogViewLargeIcons geht nicht
.Show
For DateiAnzahl = 1 To .SelectedItems.Count
MsgBox .SelectedItems(DateiAnzahl)
Next DateiAnzahl
End With
End Sub
Ist es normal das .InitialView nicht funktioniert?
Besten Dank im Voraus, für evtl. Hilfe.
Gruß Peter