|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String$ o; j! H1 S( m5 d: D7 J! `
, }! m$ r6 D8 x! l
Dim x%, ct%
/ T* i/ w: R6 ]" C8 N3 e" R7 E0 M& s% b7 y I3 d
StripPath$ = T$4 H: o. p7 ^: S3 B8 N: V, {9 t3 O
2 W5 ~: E, r: P6 y/ t$ Yx% = InStr(T$, "\")* O% F) m) o* i9 w8 |- ?" i( _" d
. R; O# ~# \1 ~" b& sDo While x%8 f. E+ [, o5 C( P7 P8 }/ D
9 O' J3 p3 z; s$ Lct% = x%
7 q3 Q% h; J3 U1 H( Z* V
1 g6 g! A* K8 h, f8 kx% = InStr(ct% + 1, T$, "\")
: f9 _: Y. L J; J4 r3 J$ Z! j$ e" ~! V* ]+ b
Loop G) W( w+ D& v( {) V8 V) i! v, v
2 |! ]7 c3 E5 TIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
6 W0 J6 T+ ]7 X' m
% O' E$ o8 z0 I6 n3 ^! dEnd Function8 ~# v3 F& ^ W: w; G5 v
* [# X) s- A0 F A/ j
例子:& n/ d. K& r5 h) D m$ V; l5 j9 U; ?
# L K5 g2 i9 c y0 N
File = StripPath("c:\windows\hello.txt")
3 g. |; i& e$ a g& O, ?3 b0 K0 W- a$ t( _( p" L
7 q M) P, l1 o4 ^: I
从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|