GetOpenFilename : dir & filename

[Bob Beattie]

Hi all,

Using the GetOpenFilename command, is there an easy way to extract the
directory part to a string and the filename to another string?

Cheers,
Bob.

 

[Steve Garman]

Hi all,

Using the GetOpenFilename command, is there an easy way to extract the
directory part to a string and the filename to another string?

Cheers,
Bob.

Sub test()
Dim whole$, folder$, fname$, pos%
whole$ = Application.GetOpenFilename
pos% = InStrRev(whole$, "\")
folder$ = Left$(whole$, pos%)
fname$ = Mid$(whole$, pos% + 1)
MsgBox folder$ & vbLf & vbLf & fname$
End Sub

 

[Bob Beattie]

Hi Steve,

Thanks for your help..

Bob.