Sub FileDialog_FilePicker01()
'ab Version 2000:
Dim strFile As String
With Application.FileDialog(1) '1=Open; 2=SaveAs; 3=FilePicker; 4=FolderPicker
.AllowMultiSelect = False
.InitialFileName = "n:\test\*.*"
.InitialView = 2 '1=Liste; 2=Details; 3=properties; 4=Preview; 5=Thumbnail; 6=LargeIcons; _
7=SmallIcons
If .Show = -1 Then
strFile = .SelectedItems(1)
MsgBox strFile 'ausgewählte Datei
End If
End With
End Sub
Gruß
Rudi