VB6:从文件路径获取文件夹名称的简便方法

Question

如果我有一个文件的完整路径:

eg. c:\files\file.txt

获取此文件的文件夹的最简单方法是 eg. c:\files\ 什么？

Answer 1

您可以InStrRev用于搜索\和Left$提取路径位:

filename = "c:\files\file.txt"
posn = InStrRev(filename, "\")
If posn > 0 Then
    pathstr = Left$(filename, posn)
Else
    pathstr = ""
End If

为了便于使用,我会使用它来创建一个函数:

Function pathOfFile(fileName As String) As String
    Dim posn As Integer
    posn = InStrRev(fileName, "\")
    If posn > 0 Then
        pathOfFile = Left$(filename, posn)
    Else
        pathOfFile = ""
    End If
End Function

Answer 2

使用FileSystemObject.GetParentFolderName(strFullFilePath)例如

  Dim strFullFilePath As String
  strFullFilePath = "c:\files\file.txt"

  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")

  MsgBox fso.GetParentFolderName(strFullFilePath)

注意这会返回c:\file而不是c:\file\