Unfortunately, I am facing the same problem and this solution does not work with Outlook, I get an error although the office library is included in the reference. I read that FileDialog does not work in outlook. Any ideas?
Quote Originally Posted by Ken Puls View Post
ROFL!

uksrogers, that is EXACTLY what I am looking for! I tend to miss the obvious somtimes.

Here it is:
[vba]Sub test()
Dim sFile As Variant
Dim lngcount
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\My Documents\"
.Show
For lngcount = 1 To .SelectedItems.Count
sFile = .SelectedItems(lngcount)
Next lngcount
End With
Debug.Print sFile
End Sub[/vba]

Thank you!