VB获取全路径中各组成部分

尝试用网上推荐的FilesystemObjefct来获取全路径中的文件夹路径,不过最终发现.这个对象只对文件夹路径生效.不能使用含有文件扩展名的路径.

使用这个对象前需要添加对象引用才可以使用 在菜单的工程->引用–>找到Microsoft scripting runtime

dim fso as object, strFolder as object
set fso = createobject(“scripting.filesystemobject”)
set strFolder = fso.getfolder(“C:\Windows\System32\abc.dll”)
msgbox strFolder.path

第二种方法是 left(strPt,instrrev(strPt,”\”)),用instrrev先查找路径的最右侧查找\后面的字符有多少个.返回的值在给left.left将文件和扩展名去除后获得文件夹的路径,但是如果你需要文件和扩展名那么这个需要更改.同时查找了很多资料.于是看到了这个方法.发现很全面.于是在下面的博客找到了代码.

‘====================获取路径名各部分:  如： c:\dir1001\aaa.txt

‘============获取路径路径   c:\dir1001\

Public Function GetFileName(FilePathFileName As String) As String   ‘获取文件名  aaa.txt   

    On Error Resume Next

    Dim i As Integer, J As Integer

    i = Len(FilePathFileName)

    J = InStrRev(FilePathFileName, “\”)

    GetFileName = Mid(FilePathFileName, J + 1, i)

End Function

”===========获取路径路径   c:\dir1001\

Public Function GetFilePath(FilePathFileName As String) As String ‘获取路径路径   c:\dir1001\

    On Error Resume Next

    Dim J As Integer

    J = InStrRev(FilePathFileName, “\”)

    GetFilePath = Mid(FilePathFileName, 1, J)

End Function

‘===========获取文件名但不包括扩展名  aaa

Public Function GetFileNameNoExt(FilePathFileName As String) As String  ‘获取文件名但不包括扩展名  aaa

    On Error Resume Next

    Dim i As Integer, J As Integer, k As Integer

    i = Len(FilePathFileName)

    J = InStrRev(FilePathFileName, “\”)

    k = InStrRev(FilePathFileName, “.”)

     If k = 0 Then

       GetFileNameNoExt = Mid(FilePathFileName, J + 1, i – J)

    Else

      GetFileNameNoExt = Mid(FilePathFileName, J + 1, k – J – 1)

    End If

 

End Function

 

‘＝＝＝＝==＝ ‘获取扩展名  .txt

Public Function GetFileExtName(FilePathFileName As String) As String   ‘获取扩展名  .txt

    On Error Resume Next

    Dim i As Integer, J As Integer

    i = Len(FilePathFileName)

    J = InStrRev(FilePathFileName, “.”)

    If J = 0 Then

      GetFileExtName = “.txt”

    Else

      GetFileExtName = Mid(FilePathFileName, J, i)

    End If

End Function