|
|
发表于 2010-6-18 21:26:55
|
显示全部楼层
来自： 中国广东深圳
Function StripPath(T$) As String
7 I+ a: b- j6 ]( E( X8 `" A0 e |9 D/ ]3 n% T% @# O
Dim x%, ct% ^/ r1 r' K* c! d3 s
) j/ N2 H: [' Q% i9 R1 f
StripPath$ = T$
9 [/ q* T) E( f! O' F/ k
; o- t4 M' @3 Z$ N% ?* @+ Mx% = InStr(T$, "\")
! u; e7 ~: F) H) ~& S+ O6 S
0 r0 H4 p' L) {# S, ?8 r* N0 gDo While x%
7 U, }; L7 W2 r; n, _6 v! E! |5 E6 p+ H7 U
ct% = x%
! r D: R+ A1 o5 F# E9 r* O& `; a, z2 B4 m
x% = InStr(ct% + 1, T$, "\")
/ n5 s) H, {% I3 A( D
! [& I# g/ [+ X- xLoop
) U! w& D4 ^ m2 P$ R* Y
6 n* r6 U. W! O* qIf ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)) U- a* l ^8 t& j5 j
5 ?! b( c( Z# M9 T. P6 W+ F1 y
End Function
& n+ Z. Y6 A% R, J9 `0 Z$ \8 I7 t; ^) a! S4 i
例子：4 H9 [ m# ]! f& b0 u$ i. N
' O Q u" J! y+ h" \' UFile = StripPath("c:\windows\hello.txt")0 x# S# n# u T' ?
1 w0 K f! ^$ ]3 e- p! {1 u, E L' w! {* Z- u) G b
从全路径中提取文件名,这是我找到的例子，具体行不行，楼主先研究下，我还不知道 |
评分
-
查看全部评分
|
楼主