|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String
+ D; ^# F" {" S2 u* n- ^# [+ O; x
Dim x%, ct%
" d5 r @+ W; G* z6 L7 M# G4 C% u# O
, B" D( C* Z' R; \StripPath$ = T$6 f% C' K8 v8 W; q: a
0 N, O$ n* `5 @. O- P4 L5 g
x% = InStr(T$, "\")3 O, p. o: s( Z* D) V- ^) c4 s
. }" N0 A: g {, @Do While x%
/ T4 c0 \7 q6 y. w$ k) v( b1 q( r& n) h, v/ f k$ z+ {( Y: J" A
ct% = x%" G4 E+ f/ Y) a6 [3 I
1 E, L* E; Y2 }, u: i1 rx% = InStr(ct% + 1, T$, "\")3 @( ~7 }/ s# W& Z2 Z, z* N
4 i/ @* X+ O4 f! s; X8 i* G% b: r
Loop4 s# p4 g, ~3 W& _$ F
, g, F% R: x+ DIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
' ]: H; D: e# e% ^/ d) I9 U7 B1 r5 `$ }) \ J6 i. J- {+ K4 {
End Function
6 _' g* o" W3 U7 W* Q
4 t$ l1 M" g$ }' I1 X例子:
0 m8 u+ u* `3 M$ W" o; _7 I( ~0 _! Y4 ^( g( i
File = StripPath("c:\windows\hello.txt")( b% L" |7 Q2 N
8 Q# T" W( q$ i: o8 t
7 ^2 E; d% r! e6 B: V4 A. O从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|