GBKEE

¦^´_ 3# a_peter
¸Õ¸Õ¬Ý

1. 'UBound ¨ç¼Æ¶Ç¦^ Long­È, ªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ
   
2. Option Explicit
   
3. Sub Ex()
   
4.     Dim a As String, s As Variant
   
5.     a = "C:\test\short.txt"
   
6.     s = Split(a, "\")
   
7.     MsgBox s(UBound(s))
   
8. End Sub

½Æ»s¥N½X