[vb6] split함수

dim  strName as string

 

private sub command1_click()

      dim strFileName as string

       strFileName = StrReverse$(split(StrReverse$(strName), "\")(0))

      Text1.text = strFileName

end sub