Private
Sub
Form_Load()
Dim
Path
As
String
Path =
"c:\windows\media\tada.wav"
MsgBox Path
Path = StrReverse(Split(StrReverse(Path), "\")(0))
End
''''''''sunasoft@hotmail.com
''''''''www.sezginweb.com