extract filename from commondialogbox?

[bengalliboy]

I have got the part working for filename info using the common dialogbox. When I retrieve file name from common dialoge box, it comes with the dir too. I just need to get the file name.

Msgbox "You selected" & Commondialogbox1.filename

Any suggestion?

 

[xlbo]

Can you give an example of the string you get - I'm sure there's a function to extract the filename using left/mid/right/find etc
Geoff

 

[scking]

Sure. Write a short function to strip out the filename. It's simple using InStr and Mid$ functions.

Steve King Growth follows a healthy professional curiosity

 

[rmikesmith]

bengalliboy,

Try this:

Msgbox "You selected" & Dir(Commondialogbox1.filename)

Hope this helps.

 

[simoncpage]

Try the following function....

----------------------------------
Function ExtractFileName(filespec) As String
On Error Resume Next

Dim x As Variant
x = Split(filespec, Application.PathSeparator)
ExtractFileName = x(UBound(x))

On Error GoTo 0

End Function
-----------------------------------
Simon

 

[rmikesmith]

simoncpage,

Is 'Split' a custom function or built-in? I can't seem to find this. Thanks.