|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String) Z' `& c$ S7 c+ }% t" C2 b0 O! D
0 T* r* T% s. U; ^Dim x%, ct%1 o9 V) E$ L& W
. Z8 J) t- h- e n; jStripPath$ = T$+ l4 {+ w7 J6 M- k
( d' J2 p6 `/ V, t6 ~- @* Q( i
x% = InStr(T$, "\")
2 h. h4 x0 S6 V7 A \/ c2 n% E0 k+ T* ?
Do While x%! n& s' ~1 C/ Y6 _" v9 F" G
+ O3 m5 l2 x: {+ z3 }ct% = x%* c9 q& z) ~' V2 s# A
' p/ f! K3 |- x6 s: D" D% i
x% = InStr(ct% + 1, T$, "\")! j; R' e* T f' L
( o8 |$ g& G+ ]9 H, g" r) @/ f
Loop! [' ~( V, |4 G4 U8 l( T
& r4 H& p, s( f: w) SIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)# L+ S+ J$ r# `3 s7 r) ~5 A/ v% l
- V3 S# T/ L! s4 \/ m f8 {End Function
5 P' e1 r9 a3 |' V+ {, P& q% H- `* a6 V3 v" D* U6 x. c: X
例子：
% {2 w8 V- D `0 i8 H
( S9 o+ }5 E9 PFile = StripPath("c:\windows\hello.txt")+ Y8 q' T' a# v9 v. p
a- g! k: P* ?: ]$ S
" J; a' y. }/ ?9 r- z- h$ e* y( ~& R从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主