How to get part of filename?

[Zoticos]

I'm trying to get a part of a filename read into strings.

Sample filename:

\BryceCanyon\canon-picture001-roll-nr3__07-13-2010_08-15-43.jpg

I need to read three different parts of the filename into three strings.

like,

Dim picnr As String ' picture001
Dim picdate As String ' 07-13-2010
Dim pictime As String ' 08-15-43


Thanks for any help!

 

[Warship]

Sub test()

Dim picnr As String ' picture001
Dim picdate As String ' 07-13-2010
Dim pictime As String ' 08-15-43

Dim fName As String

fName = "\BryceCanyon\canon-picture001-roll-nr3__07-13-2010_08-15-43.jpg"

picnr = Split(fName, "-")(1)
picdate = Split(fName, "_")(2)
pictime = Split(Split(fName, "_")(3), ".")(0)

MsgBox picnr & " // " & picdate & " // " & pictime

End Sub

 

[Zoticos]

Hi Warship,

Thanks for your help!
Worked great!

Zoticos