<strong>
Dim
fd
As
FileDialog
Dim
file
As
String
Set
fd = Application.FileDialog(msoFileDialogOpen)
With
fd
</strong>
<strong> .AllowMultiSelect =
False
.Title =
"Zieldatei wählen..."
</strong>
<strong> .Filters.Clear
</strong>
<strong> .Filters.Add
"Textdatei"
,
"*.txt"
, 1
.Filters.Add
"Alle Dateien anzeigen"
,
"*.*"
, 2
</strong>
<strong>
If
.Show = -1
Then
file = .SelectedItems(1)
Else
file =
""
End
If
End
With
Set
fd =
Nothing
</strong>