vb如何从全路径中获取文件名

来源：百度知道 编辑：UC知道 时间：2024/05/11 02:18:41
比如"C:\windows\text.txt"怎样用vb获得其文件名text.txt呢？
高级一点，如何从.m3u文件获取文件名列表那？我们知道.m3u文件其实就是许多全路径，怎样用list控件来获取呢？如text.txt
text1.txt
text2.txt
请各位回答，知道多少答多少就可以了。

把以下代码复制到代码窗口, 要获取文件名时, 用这样的语句:
msgbox GetPathFromFileName("C:\windows\text.txt")

代码如下:
'****************************************************************************************************
'函数: GetPathFromFileName
'作用: 从完整路径获取 文件名
'输入: 完整路径, 目录分隔符
'返回: 文件名(带扩展名)
Public Function GetPathFromFileName(ByVal strFullPath As String, Optional ByVal strSplitor As String = "\") As String
GetPathFromFileName = Left$(strFullPath, InStrRev(strFullPath, strSplitor, , vbTextCompare))
End Function