|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
/ f& m9 O- s9 B5 u- Y5 T# k9 U8 E0 Q+ U) a4 _! @5 ], d- k
Dim x%, ct%3 `9 N! d) @) s; \
4 m' c, n: m# f& H# `) \3 S
StripPath$ = T$3 n% u# N! h4 F, I9 s# N" }
) w7 I7 v' l8 gx% = InStr(T$, "\")) f/ \; d5 L4 a
' V) Y. S$ x4 f1 b, ~
Do While x%
# t$ ~0 `- l3 X3 E. p3 O
2 r: i8 E& e4 J- h* n8 @) V2 k% wct% = x%' `9 o* S: H% V1 I( e
/ \7 \+ V) J( w$ s: bx% = InStr(ct% + 1, T$, "\")
* h! H: w5 l+ a
0 Z- k/ G% d7 g# o) NLoop
# u) f$ W& ]/ M5 L% [/ S! @
* r6 P' t6 x; B/ r3 [If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
! u" }* d4 ^) n5 `1 p" C1 P+ @/ p, o! t* f9 ~& h8 Z/ D( s
End Function
' f" _! ~; y% d$ S2 {
4 H# g/ ?$ a4 T8 n3 D例子：
# e% T7 H' F% L8 X* o& p/ X1 p3 w+ r4 @5 x. ?9 P& |5 \! n0 A
File = StripPath("c:\windows\hello.txt")& p: W2 y6 S5 G5 m5 D$ O
% y6 j5 K O( a8 m+ U
" c* R0 h' U; j4 _% i! C, Y从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主