[vb6] split함수 본문

[PL]/VB & VB.NET

[vb6] split함수

객과 함께. 2012. 10. 3. 00:17

dim  strName as string

 

private sub command1_click()

      dim strFileName as string

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

      Text1.text = strFileName

end sub