|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String
! ?3 C, \% F& ], r. R+ ~* L, H. b2 s$ O2 y% b0 R. D
Dim x%, ct%$ ~' m! S5 H; P9 |1 Z' l6 ?9 U
" \) s5 r3 q. X2 z1 h+ x5 kStripPath$ = T$( l9 H' a8 K, \/ ]3 T7 y, d. n+ t' {4 M
) U: R% S7 F! ~
x% = InStr(T$, "\")0 l Q( X1 J/ n. E: `6 V
. u4 h( I* Q2 G/ U' \6 \' ]
Do While x%$ z E/ @& _4 n- p
/ @4 Q2 i# Z" {' F
ct% = x%
$ ^% w# w9 d$ T. f
3 J) C) x* Y$ h5 K0 Hx% = InStr(ct% + 1, T$, "\")
d' ^, I& {$ s, w% [" ^; n: B* d4 ~: @, c% ~2 b
Loop5 Q* M# J# j& ^: v$ Y
/ U& @; e5 R1 n' s+ S% ?0 d! @If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1) k. P2 g" v: y! g2 M" F
4 J% e" F' o' a; S" T, _ zEnd Function
& p5 s4 e. o2 m
1 G: b# |7 c4 x4 b" U5 h例子:
3 w7 l! P' k2 O/ }) B5 u. h5 n4 f6 U- g4 |, L
File = StripPath("c:\windows\hello.txt")8 G& |5 F( \9 d
. p. R% `- Q: l+ ]7 t
& h; T- }# ~+ `" u从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|