|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
- j, `3 o1 G& L; j; W
3 @# A% q. p" Y m3 xDim x%, ct%- v* b/ ^0 |8 L+ r3 K
A# P; I, X* y
StripPath$ = T$
) d. ?, Z( `" M* T% f0 C5 L; U, K$ k% `' c# E9 V
x% = InStr(T$, "\")0 B) p6 ?# u0 ~4 p# Z" k; P
: O: z' w. R7 \3 w
Do While x%1 l/ t) S& L: X
, c5 c u6 \4 r1 u% Qct% = x%
2 J# M4 V v/ l% f" f! @
4 t) z/ H+ p) v: P- Jx% = InStr(ct% + 1, T$, "\")7 r* B! G w! y1 f( M9 J/ Q1 \" V
" @1 y1 F9 L) |6 l- Y7 C
Loop4 I" K' O3 ~" _5 W z& ]/ P8 t& b: r9 E0 M
8 w: J- B+ I' k& \+ QIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)( R1 t) e/ u8 G! B- H8 i. I
' K z( s# e+ l) ]/ d
End Function
3 T. h3 o5 k' O) N: A* B9 N$ [% O% J; s/ B& n+ n
例子：, A/ I9 |* Y/ b! n% ?) Y
' Y! M! `3 L7 Q- e( ]% v) z
File = StripPath("c:\windows\hello.txt")
: y" A( s8 A5 f) C, ?% }: `/ k! D1 J- Q* V- s
( y* a- ^# k: E# b- {1 r: v
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主