|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
. ^+ W i5 o6 D2 m5 T" n' u* I- x. o7 y7 p4 L3 i3 J: e
Dim x%, ct%# P7 L, r* ?& x$ j4 t9 e- w
3 S. R/ n. p1 [& n. x
StripPath$ = T$
9 m" y6 P3 r5 K5 b% H5 |0 ^% Q- E! P, {3 `3 s
x% = InStr(T$, "\")
4 w7 R8 Y" q3 e8 G8 C$ K/ W, Z9 s
Do While x%
6 v1 M3 u6 b( X$ i$ H, u7 {- L2 z) I p9 t9 |% h% k" z$ N* ?$ g, V& o
ct% = x%1 M! ~" F- n+ ]4 V. W9 Z
6 u6 ^ t9 [. k* L8 S% E; q
x% = InStr(ct% + 1, T$, "\")
5 j' B- A7 e" f. l! z2 T# f' r
, J3 d% L% @: x' y6 t2 |/ [Loop2 v# m2 r/ q( w
/ j& o& i/ @: d9 r. R9 C; [If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)+ G# Z; a- x' I5 W+ N; m! A) H
5 C% W1 D6 z# a* a2 b2 f! d- C
End Function0 M; b, s: ], r* o" e
4 |3 Y2 q! d5 X/ G例子：
! q5 R3 r1 \& C7 U% m7 Y! W e- t& l- Y9 W5 J) `2 K
File = StripPath("c:\windows\hello.txt"): c: [2 u( f' ?/ A) \* q
0 f0 o+ U L/ }: A; I5 z' |* z3 U
# b. k0 W4 v3 U$ W' \9 \从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主