【分享】从一个全路径字符串中找到文件名,支持UNC路径(VB6.0)

马大哈

yd2l2d7x.bas (2.14 KB, 下载次数: 11204)

2009-1-31 16:37 上传

点击文件名下载附件
【分享】从一个全路径字符串中找到文件名,支持UNC路径(VB6.0)

<br/>
<div class="msgheader">QUOTE:</div><div class="msgborder"><font face="Verdana"><br/>
<p><font face="Verdana">debug.Print GetFileNameInPath("http://www.m5home.com/bbs/index.asp",False )<br/>返回:</font></p>
<p><font face="Verdana">index.asp</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">debug.Print GetFileNameInPath("D:\SysBack\我的程序\VB6.0\Bas\ModGetFileNameInPath.bas",True )<br/>返回:</font></p>
<p><font face="Verdana">ModGetFileNameInPath</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">debug.Print GetDirInPath("http://www.m5home.com/bbs/index.asp",False )<br/>返回:</font></p>
<p><font face="Verdana">bbs</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">debug.Print GetDirInPath("http://www.m5home.com/bbs/index.asp",True )<br/>返回:</font></p>
<p><font face="Verdana">http://www.m5home.com/bbs</font></p></font></div>