[RESOLVED] How to get the filename

[matrik02]

I have textbox with file location

C:\Documents and Settings\fauzul\Desktop\PSM\Final\PNT.TIN.

How to get the filename only without extension?

I want to get PNT only

[Hack]

Do you want PNT or PNT.TIN?

[matrik02]

I want to get "PNT" only.

[Hack]

Private Sub Command1_Click()
Dim arrFileName() As String
Dim arrFile() As String
Dim strFileName As String
strFileName = "C:\Documents and Settings\fauzul\Desktop\PSM\Final\PNT.TIN"
arrFileName = Split(strFileName, "\")
'MsgBox arrFileName(UBound(arrFileName))
arrFile = Split(arrFileName(UBound(arrFileName)), ".")
MsgBox arrFile(0)
End Sub

[matrik02]

It work, Thank you