|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String
" C' a* w2 |8 ~2 p5 n& G+ U* r4 c" C; Q1 r/ e
Dim x%, ct%
% M4 m9 [# o: X, R& L9 F( h, E
StripPath$ = T$
. J! c8 E# M1 ]. [6 P, i1 _; w5 d9 T: X
x% = InStr(T$, "\")
/ w; B& j, o( N$ O6 f% y( @' I m. {# V8 h* ]5 j
Do While x%
$ q. d9 ~5 C0 j0 x4 T i0 f3 Q. R# E8 _. S1 } D. U0 N/ ]6 ~
ct% = x%) ?, Z% e N3 n1 S" W: K( G
* t# V- G3 s* x) L+ k; V: Rx% = InStr(ct% + 1, T$, "\")
3 R7 K3 t4 g- Q6 t! n6 H6 v" `: L: W. E9 B. P7 c* J* |% l) ^% d
Loop
3 O; w9 a4 S. E) E# t0 f' h% ]
# x B3 e; l l& eIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
' }. e, e8 i/ ~) R5 Z" B2 E! Y/ U2 }& C
]- R1 I# Z+ F3 P6 F3 kEnd Function6 l) k, g. b9 }6 x w
! C, d5 w, U" ^8 _- I8 _% r例子:& p2 ^& D4 o) h
5 l+ C/ A& x! P+ @File = StripPath("c:\windows\hello.txt")0 n7 [( \( S5 H5 ` [8 A6 Y
# Z0 v8 d4 F' x* u2 O f1 y/ N" d" d/ ]
从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|