|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自: 中国广东深圳
Function StripPath(T$) As String
$ ~. p- O2 a3 p; _5 c8 }/ o* m! C$ b! w$ E. r# I8 F+ u
Dim x%, ct%% b" c" b5 V& g6 c9 i9 _
5 G# J, L3 N; N! t3 n4 \6 yStripPath$ = T$4 ^& @5 a6 P, t d( U# d
# n9 \2 \" Q( ?2 x% o- W, fx% = InStr(T$, "\")
. k" f/ k3 ^# Z0 c) ^' G( X( Y2 z% r$ q# N
Do While x%5 C1 P$ l& y+ @3 H2 d7 R" j
4 y/ D* f% _0 |+ P8 {& K
ct% = x%5 K O( o( D g; q! m
8 E2 R% e" D8 o/ @& _$ z) W
x% = InStr(ct% + 1, T$, "\")
8 y5 N. C: c2 h# [/ H$ O" B! M3 g2 e
7 R& Z) y1 M- e) DLoop
- O+ G+ H8 X$ o" d1 z& b
) F$ P" M! i& R; D4 f3 N# i+ JIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
6 B) H4 b+ Q/ b. \% u& _0 i# _6 E. K1 a: G# n) X/ o. j. A) ] z
End Function& d. {5 ~4 l2 Q7 p3 w5 L5 E
" \' j( N. |% F9 E& `
例子:
% [ t% D7 @# O/ R4 K$ x7 w# \
6 G' X8 g9 [3 j4 j/ f2 g8 u xFile = StripPath("c:\windows\hello.txt")
6 X* F# d! G! A, U8 B. ^; F3 w
7 V) _& X' J, g' {% N# V% g2 K
- g: v+ F+ T" B9 e' p% q4 N从全路径中提取文件名,这是我找到的例子,具体行不行,楼主先研究下,我还不知道 |
评分
-
查看全部评分
|