|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String
0 |& t% ?" O8 v% B: n2 F6 K7 {6 z, M! X" R! b2 ]2 \+ ^1 [
Dim x%, ct%( l9 @# r6 o3 n+ b" i+ Z7 N: e
+ g! d1 C, K; w8 E4 {
StripPath$ = T$3 G. i$ O5 N; o0 Q' o+ Q
* \7 m, R' l4 q- H
x% = InStr(T$, "\")
- k# c% Y* k% e- b5 A
) c7 T0 r, ?0 YDo While x%
$ O: V4 s+ Z) f- i
3 i. ?9 R+ Y; U7 ]7 q+ ?ct% = x%# ^1 N3 [1 F6 n: l$ ?. k& u
0 \4 {! ] H; U' }& H9 k" F J7 x* ?x% = InStr(ct% + 1, T$, "\")
* C& S0 ^7 \2 X
' B# V1 k3 h- l/ T# x$ z. JLoop
R* Y* {* a# m4 R& }1 M+ O/ T, X: |7 H( n! s: d
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)/ p7 _5 z, R; S9 ]$ p
" ~( n% h- b- U9 { D6 ]9 AEnd Function
& w' O' Q% D% \, K4 C1 l# Y: S( A- n4 s7 o
例子:9 g6 E) W' m6 l9 b
. Z& G6 A: ^8 _/ h
File = StripPath("c:\windows\hello.txt")2 N& e1 [/ C7 f0 N% D
- P, c4 N' ~, P3 N7 ^% M/ k& U4 k% F# j+ f( D
从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|