说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

从全路径名中提取文件名 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
从全路径名中提取文件名 -VB资料
Function StripPath(T$) As String
Dim x%, ct%
StripPath$ = T$
x% = InStr(T$, "\")
Do While x%
ct% = x%
x% = InStr(ct% + 1, T$, "\")
Loop
If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
End Function
例子:
File = StripPath("c:\windows\hello.txt"

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘