|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String3 m, A6 i* B4 A m8 f; Q
& U9 G6 F( `0 f2 U
Dim x%, ct%
/ O! R* H8 O' s6 d/ ~, L1 n4 |& g6 v% C$ u% L. M9 V
StripPath$ = T$8 y) U8 o9 N, z& w4 t0 k
# c4 G; i6 ~. |5 M& A: \, ?- g8 X
x% = InStr(T$, "\")7 j, G9 n% S9 v% d+ L/ v* D4 |, A
1 U; }% g1 r" x
Do While x%+ J" ^+ d" l* t$ g' y& x
6 b1 H, H+ {8 V1 X2 g6 T& e* W
ct% = x%# g+ \. f$ Z3 E( E+ s9 V/ L2 \
; q9 L2 Z# ~% _' I O, ex% = InStr(ct% + 1, T$, "\")
& L- T4 V4 C3 c' R
4 d" l: Q2 i* LLoop: F+ E% h4 R$ X4 Q, ~* h* E. s
$ L; }0 W) K0 t
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)7 f2 U- Y( U) T3 ^& G& O2 q
/ X" K- [) S. g; r4 Z3 n% E
End Function3 x' d. H$ n% C# o: | ~7 d
# g* Z- u& E$ {" x. ?例子：" A0 A `& Y6 y$ \. N+ b- e# v
8 @( I4 N- Q+ @6 T& |
File = StripPath("c:\windows\hello.txt")
, j; @+ m6 B! y6 ~
( L, {7 O2 }: z: e& N' ~( Z9 K8 [+ ^+ V% z
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主