【分享】从一个全路径字符串中找到文件名,支持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> </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> </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> </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>
页:
[1]