|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
1 X# a" `" ^& V& _% A6 g4 }& G8 h* N: V
Dim x%, ct%' O6 U) O/ \1 E' s7 w8 ^& Q; t
) T9 @9 }$ N6 E
StripPath$ = T$0 |; p; r- _6 V+ M ~9 d. K) p
2 { p) ~0 A. o0 Z. A" E5 j7 U& wx% = InStr(T$, "\")
) P m0 Z2 q, V$ c1 v Z# z( a, L. b
Do While x%. `8 r2 `& e/ T9 p4 i
: Z7 |' `0 F4 |. R7 Ect% = x%
5 v$ }% Q6 |% i) F) R
F+ P4 _% j. \0 v; _" gx% = InStr(ct% + 1, T$, "\")
# V/ h* K2 T( x; S% h/ g6 b9 x, ~9 p9 Q, p( l+ f( _5 Y% h9 o
Loop, |! [; v: d/ M# t0 o6 ?
* O4 J6 a; A6 T0 z, y, H# {. u
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
5 I& O9 e" K7 H0 j2 P) { H, H. d0 H A9 Q! U% k; t
End Function
; Y" p: d: I' P; N
( ~3 k) I- t6 p8 K. W3 _; k' x例子：& g$ m+ S+ D# ^! b4 j; {" ~
% e- M8 j+ I! K0 W; ]+ e
File = StripPath("c:\windows\hello.txt") Z" a% Q' o8 A2 P
6 S- K6 y8 ~$ ]
( z9 `. U x8 e6 M
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主