Busque la parte del directorio (menos el nombre del archivo) de una ruta completa en el acceso 97

Question

Por diversas razones, estoy atrapado en Access 97 y necesito obtener solo la ruta de acceso de una ruta de acceso completa.

Por ejemplo, el nombre

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

debe convertirse en

c:\whatever dir\another dir\ 

Este sitio tiene algunas sugerencias sobre cómo hacerlo: http://www.ammara.com/access_image_faq/parse_path_filename.html

pero parecen más bien horrible. Debe haber una mejor manera, ¿verdad?

Answer 1

Eso es todo. No hay una función mágica incorporada ...

Answer 2

Siempre he usado el FileSystemObject para este tipo de cosas. Aquí hay una pequeña función de envoltura que utilicé. Asegúrese de hacer referencia al Microsoft Scripting Runtime.

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

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

La función Dir devolverá sólo la parte del archivo de la ruta completa. Currentdb.Name se usa aquí, pero podría ser cualquier cadena de ruta completa.

Answer 4

Si solo necesita la ruta del MDB actualmente abierto en la IU de acceso, le sugiero que escriba una función que analice CurrentDB.Name y luego almacene el resultado en una variable estática dentro de la función. Algo como esto:

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 

Esto tiene la ventaja de que solo recorre el nombre una vez.

Por supuesto, solo funciona con el archivo que está abierto en la interfaz de usuario.

Otra forma de escribir esto sería el uso de las funciones previstas en el link dentro de la función anterior, así:

Public Function CurrentPath() As String 
    Static strPath As String 

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

Esto hace que la recuperación de la trayectoria de corriente muy eficiente mientras que la utilización de código que puede ser usado para encontrar la ruta para cualquier nombre de archivo/ruta.

Answer 5

Esto parece funcionar. Lo anterior no aparece en 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

Pruebe esta función:

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

Si no desea eliminar la última barra invertida "\" al final de la ruta de la carpeta, cambiar la última línea con esto:

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

Ejemplo:

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

da:

C: \ Users \ Corrección Christos \ Desktop \ LAT analizadores de señal \ 1

o

C: \ Users \ Corrección Christos \ Desktop \ LAT analizadores de señal \ 1 \

en el segundo caso (tenga en cuenta que hay una barra invertida al final).

Espero que ayude ...

Answer 7

Utilice estos códigos y disfrútelo.

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 

Y aquí se puede llamar a la función:

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

Answer 8

se puede hacer algo tan simple como: Left(path, InStrRev(path, "\"))

Ejemplo:

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