|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
$ D) R' r8 P3 Q( q4 }8 f& q9 ]% e% l" A! L# b. Q
Dim x%, ct%; c; h |1 s( Y$ v! j
, a `+ d5 ^. N* A h4 FStripPath$ = T$
! |3 x; M5 O& D7 M' V
2 w' X3 M% k1 @3 M( ox% = InStr(T$, "\")
% v6 `0 D. d4 n- ~" _& d. ~: d7 h0 Q+ p6 x' v# {
Do While x%
6 Y. a* F1 L4 o3 k5 J! }! g/ ]( ^, X" C. K2 b7 u
ct% = x%* T. Q [) w- @1 ]+ g3 i
# z" p; I# ^: C; @5 A6 [; c
x% = InStr(ct% + 1, T$, "\")
- \/ R5 q, r% r- B* P# k O
& y4 X8 a5 {: H" h! d7 D5 B0 iLoop
* X' k4 ]1 f5 \. s& s( R. E4 e+ X' |- ?0 _- {2 _
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)8 T( }) ?, x6 ]
( Z$ W6 M; y- d! b) v
End Function
+ u9 r2 [# L$ S/ A/ t' x- h6 O X9 u' q. g6 O
例子：% c+ B$ N" K0 U5 y+ L% K3 X
3 H9 k- A) o0 T
File = StripPath("c:\windows\hello.txt")+ N* W( A9 Q( w
& A* i4 D# f5 f. v" [0 M& z; G) b5 t. g! Q3 n- I# t( k
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主