Finden Sie den Verzeichnisteil (abzüglich des Dateinamens) eines vollständigen Pfades in Access 97

Question

Aus verschiedenen Gründen bin ich in Access 97 stecken und muss nur den Pfad Teil eines vollständigen Pfades erhalten.

Zum Beispiel der Name

c:\whatever dir\another dir\stuff.mdb 

c:\whatever dir\another dir\ 

Diese Seite werden sollte hat einige Vorschläge, wie man es tun: http://www.ammara.com/access_image_faq/parse_path_filename.html

Aber sie scheinen ziemlich scheußlich. Es muss einen besseren Weg geben, oder?

Answer 1

Das ist es. Es gibt keine magische eingebaute Funktion ...

Answer 2

Ich verwendete immer das FileSystemObject für diese Art Sache. Hier ist eine kleine Wrapper-Funktion, die ich benutzt habe. Achten Sie darauf, die Microsoft Scripting Runtime zu verweisen.

Function StripFilename(sPathFile As String) As String 

'given a full path and file, strip the filename off the end and return the path 

Dim filesystem As New FileSystemObject 

StripFilename = filesystem.GetParentFolderName(sPathFile) & "\" 

Exit Function 

End Function 

Answer 3

links (currentdb.Name, Instr (1, currentdb.Name, dir (currentdb.Name)) - 1)

Dir Die Funktion wird nur die Datei Teil des vollständigen Pfad zurückzukehren. Currentdb.Name wird hier verwendet, aber es könnte eine vollständige Pfadzeichenfolge sein.

Answer 4

Wenn Sie nur den Pfad der derzeit in der Access-Benutzeroberfläche geöffneten MDB benötigen, würde ich vorschlagen, eine Funktion zu schreiben, die CurrentDB.Name analysiert und das Ergebnis anschließend in einer statischen Variablen in der Funktion speichert. So etwas wie das:

Public Function CurrentPath() As String 
    Dim strCurrentDBName As String 
    Static strPath As String 
    Dim i As Integer 

    If Len(strPath) = 0 Then 
    strCurrentDBName = CurrentDb.Name 
    For i = Len(strCurrentDBName) To 1 Step -1 
     If Mid(strCurrentDBName, i, 1) = "\" Then 
      strPath = Left(strCurrentDBName, i) 
      Exit For 
     End If 
    Next 
    End If 
    CurrentPath = strPath 
End Function 

Dies hat den Vorteil, dass es nur den Namen einmal durchläuft.

Natürlich funktioniert es nur mit der Datei, die in der Benutzeroberfläche geöffnet ist.

Ein anderer Weg, dies zu schreiben wäre, die Funktionen an den link innerhalb der Funktion oben so zu nutzen:

sehr effizient den Strompfades Abrufen

Public Function CurrentPath() As String 
    Static strPath As String 

    If Len(strPath) = 0 Then 
    strPath = FolderFromPath(CurrentDB.Name) 
    End If 
    CurrentPath = strPath 
End Function 

Dies macht während Code verwendet wird, die für die Suche verwendet werden kann, der Pfad für einen beliebigen Dateinamen/Pfad.

Answer 5

Dies scheint zu funktionieren. Das oben genannte gilt nicht in Excel 2010.

Function StripFilename(sPathFile As String) As String 
'given a full path and file, strip the filename off the end and return the path 
Dim filesystem As Object 

Set filesystem = CreateObject("Scripting.FilesystemObject") 

StripFilename = filesystem.GetParentFolderName(sPathFile) & "\" 

Exit Function 

End Function 

Answer 6

Versuchen Sie, diese Funktion:

Function FolderPath(FilePath As String) As String 

    '-------------------------------------------------- 
    'Returns the folder path form the file path. 

    'Written by: Christos Samaras 
    'Date:   06/11/2013 
    '-------------------------------------------------- 

    Dim FileName As String 

    With WorksheetFunction 
     FileName = Mid(FilePath, .Find("*", .Substitute(FilePath, "\", "*", Len(FilePath) - _ 
        Len(.Substitute(FilePath, "\", "")))) + 1, Len(FilePath)) 
    End With 

    FolderPath = Left(FilePath, Len(FilePath) - Len(FileName) - 1) 

End Function

Wenn Sie den letzten Backslash nicht entfernen? „\“ Am Ende des Pfads des Ordners, die letzte Zeile mit diesem ändern:

FolderPath = Left(FilePath, Len(FilePath) - Len(FileName))

Beispiel:

FolderPath("C:\Users\Christos\Desktop\LAT Analysers Signal Correction\1\TP 14_03_2013_5.csv") 

gibt:

C: \ Benutzer \ Christos \ Desktop \ LAT Analysatoren Signalkorrektur \ 1

oder

C: \ Benutzer \ Christos \ Desktop \ LAT Analysatoren Signalkorrektur \ 1 \

im zweiten Fall (beachten Sie, dass es am Ende einen Backslash gibt).

Ich hoffe es hilft ...

Answer 7

Verwenden Sie diese Codes und genießen Sie es.

Public Function GetDirectoryName(ByVal source As String) As String() 
Dim fso, oFolder, oSubfolder, oFile, queue As Collection 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set queue = New Collection 

Dim source_file() As String 
Dim i As Integer   

queue.Add fso.GetFolder(source) 'obviously replace 

Do While queue.Count > 0 
    Set oFolder = queue(1) 
    queue.Remove 1 'dequeue 
    '...insert any folder processing code here... 
    For Each oSubfolder In oFolder.SubFolders 
     queue.Add oSubfolder 'enqueue 
    Next oSubfolder 
    For Each oFile In oFolder.Files 
     '...insert any file processing code here... 
     'Debug.Print oFile 
     i = i + 1 
     ReDim Preserve source_file(i) 
     source_file(i) = oFile 
    Next oFile 
Loop 
GetDirectoryName = source_file 
End Function 

Und hier können Sie rufen Funktion:

Sub test() 
Dim s 
For Each s In GetDirectoryName("C:\New folder") 
Debug.Print s 
Next 
End Sub 

Answer 8

Sie etwas Einfaches wie tun können: Left(path, InStrRev(path, "\"))

Beispiel:

Function GetDirectory(path) 
    GetDirectory = Left(path, InStrRev(path, "\")) 
End Function