VB6: moyen facile d'obtenir de dossier nom de chemin d'accès

Si j'ai le chemin d'accès complet d'un fichier:

eg. c:\files\file.txt

Quelle serait la meilleure façon d'obtenir le dossier de ce fichier: eg. c:\files\ ?

Réplique exacte de la comment faire pour extraire le répertoire à partir d'un chemin d'accès au fichier string
Double Possible de Comment faire pour extraire le répertoire à partir d'un chemin d'accès au fichier de la chaîne?

OriginalL'auteur Craig Johnston | 2011-03-21

  1. 7

    Utilisation FileSystemObject.GetParentFolderName(strFullFilePath) par exemple 

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

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

  MsgBox fso.GetParentFolderName(strFullFilePath)

    Cette remarque renvoie c:\file plutôt que c:\file\

    Je sais que c'est probablement un innocent accident, mais vous avez posté un double question et puis rapidement répondu à votre propre question: et la solution dans votre réponse est similaire à cette réponse à la double question. Je ne suis pas vous accuse de quoi que ce soit sournoise, je suis sûr que c'était accidentel (la double question avait une terrible titre), mais on devrait fermer à cette question.

    OriginalL'auteur Craig Johnston

  2. 6

    Vous pouvez utiliser InStrRev pour la recherche de la \, et Left$ pour extraire le chemin de bits:

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

    Je voudrais faire une fonction d'elle pour la facilité d'utilisation:

    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

    OriginalL'auteur paxdiablo

  3. 1
    ' GetFilenameWithoutExtension:  Return filename without extension from complete path
Public Function GetFilenameWithoutExtension(path As String) As String
    Dim pos As Integer
    Dim filename As String
    pos = InStrRev(path, "\")
    If pos > 0 Then
        filename = Mid$(path, pos + 1, Len(path))
        GetFilenameWithoutExtension = Left(filename, Len(filename) - Len(Mid$(filename, InStrRev(filename, "."), Len(filename))))
    Else
        GetFilenameWithoutExtension = ""
    End If
End Function

' GetFilenameWithExtension: Return filename with extension from complete path
Public Function GetFilenameWithExtension(path As String) As String
    Dim pos As Integer
    pos = InStrRev(path, "\")
    If pos > 0 Then
        GetFilenameWithExtension = Mid$(path, pos + 1, Len(path))
    Else
        GetFilenameWithExtension = ""
    End If
End Function


' GetDirectoryFromPathFilename: Return directory path contain filename
Public Function GetDirectoryFromPathFilename(path As String) As String
    Dim pos As Integer
    pos = InStrRev(path, "\")
    If pos > 0 Then
        GetDirectoryFromPathFilename = Left$(path, pos)
    Else
        GetDirectoryFromPathFilename = ""
    End If
End Function

    OriginalL'auteur Joaquinglezsantos