File open dialog in windows 7

jeg ved ikke lige helt om jeg forstår dig korrekt, men hvis du skal kunne vælge en fil kan du bruge:
Shell.BrowseForFolder
http://msdn.microsoft.com/en-us/library/bb774065(VS.85).aspx

Rasmus

Hej,

Tak for hurtigt svar

Ja, men hvis jeg peger på en fil med denne kode, fejler den og siger at filen ikke er fundet. Kan kun få den til at virke hvis jeg peger på en mappe.
Jeg har brug for et retur svar med hele sti og fil navn

***************************

dim objShell, objFolder
   
set objShell = CreateObject("shell.Application")
set objFolder = objshell.BrowseForFolder(0, "Example", &H4000, 17)
   
if (not objFolder is nothing) Then
MsgBox objFolder.Title                   
end if
   
Set objFolder = Nothing
set objShell = Nothing
***************************

Hmm, det virker ikke så nemt. Jeg får samme fejl her, har kun brugt BrowseForFolder til mappe men den burde også kunne vælge filer, det virker dog mere som en teoretisk egenskab.

Andre der har en kommentar...?