|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
4 z2 D, F! f( Q7 o) q, q, ?3 O( [/ p& l* W
Dim x%, ct%* e! U$ D8 |$ x3 a# }
! i& R$ n# R8 ?2 C) N' ~& f5 v) g
StripPath$ = T$! M% ]) M0 m& A) x& _* O; R
& W8 v2 o3 M7 j/ b3 t- ^4 Qx% = InStr(T$, "\")/ s1 [/ g+ w" V5 R& _" ?
" J6 T6 j% p8 [
Do While x%
4 f) o5 B1 P. }5 \
6 [1 X" p! b# M5 @$ W; c1 Vct% = x%& a/ d7 ^" A( v3 D
& |, n2 ]3 W2 `! Q$ Kx% = InStr(ct% + 1, T$, "\")2 R4 u2 f* l' [% V3 I! V! z
# M4 ]9 t5 ^0 l- t G# g
Loop' _0 S. f1 n; y/ ^
, i6 t2 l% {# M" SIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
0 z; M) r/ p! O% @4 x& x) K; J
0 E' _9 q- `' ]' e8 XEnd Function
( ^( D6 N; p/ o" T6 f2 n: h4 }1 t6 r ~9 F8 |' ?
例子：- C, d v( b7 S0 b
3 [; j& }: O% X
File = StripPath("c:\windows\hello.txt")! L# p- g d* p
2 e& x4 e1 g8 `- Z
: b' v) T' k0 I从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主