|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
- g- K$ @8 U( _' R: |; Z5 I8 o5 b
Dim x%, ct%
+ }! x3 h1 P# L g8 v2 ?0 p* k2 \" K3 m" e' \
StripPath$ = T$# N1 ?, M S# h* I3 K
% W# i6 }. }+ K9 ox% = InStr(T$, "\")
1 U( d+ D, |! |( r6 u& t8 I6 `3 q" D6 u' Z2 c+ H; c' i2 i! e
Do While x%
, f) j. w! Z' N8 \1 L; q
! l# Y" ^7 \( H# J0 Kct% = x%9 [+ z; {8 v8 h/ y& N i* ]
. l. n9 W5 b5 Dx% = InStr(ct% + 1, T$, "\")' o* m% Y$ X5 | q
& v: |, w. |, A7 _7 `6 h* {) i
Loop6 c# j1 H8 M g+ K H* H4 v& f) p
+ \8 J, x5 w2 z) H
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1): Z% s8 h! b/ N1 ^: ]1 ]" x
0 J0 K2 k% {$ ?5 {0 N* P; E' g5 ^2 xEnd Function! b) F& `- N2 ?) h
A# L1 L3 V9 Y/ J+ k, y- e
例子：
! o3 {9 g% [2 ^, }7 w3 i0 `5 N3 u. o$ |
File = StripPath("c:\windows\hello.txt")1 f& p/ D$ B4 p8 o# P# Y1 n; ^
, [& I# o4 O3 I% @" P3 L
/ }. q$ }. A/ ~: Z& X从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主