|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
2 T2 B1 G! Q7 _1 l( ?( c. `* S
5 a) \" ~3 r% I- d' eDim x%, ct%2 @8 Q! u7 J" }5 ]" e* e! i( Y+ u
9 o: B& q" X/ {# k* v ZStripPath$ = T$, j9 L3 K5 `4 M) m. Z( S+ T
+ M& [7 f7 Y# m' z5 s& a
x% = InStr(T$, "\")
" B: n: W+ K& \! X. r! M& X" B: r+ Q$ B5 J
Do While x%8 U3 x" H4 \/ o" Q
* A% x$ R1 Y& T" b1 Z( y" s
ct% = x%8 ` o4 p2 f' O& B t
, e8 Y V% p+ i% q3 E7 px% = InStr(ct% + 1, T$, "\")1 A- A5 y' T1 q3 W+ w2 J7 t2 m
& d1 f& F5 e7 j1 M2 Z7 E
Loop
1 ]. w' [, I* T2 E% D+ v, J" h- a" {
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)3 S0 V& q& Z: S' [( H. U
& Q6 ^5 }! G9 ?. q- g1 q/ J
End Function
4 v! l) R$ i' ?% j4 g) i/ ~+ A* r- R. k- x! g4 x) P7 d1 H5 f' V
例子：* X" U3 _; i1 Y, _& o
% V& Z" b E9 c& {# V RFile = StripPath("c:\windows\hello.txt")
; t; |3 T3 C. g$ {' X' {" y
! o- ? t% g _
% q6 s6 V9 t+ x$ y/ l3 v从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主