vba - una - obtener ruta de carpeta c#

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

Question

Por varias 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

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 bastante horribles. Debe haber una mejor manera, ¿verdad?

Answer 1

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

Answer 2

left (currentdb.Name, instr (1, currentdb.Name, dir (currentdb.Name)) - 1)

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

Answer 3

Siempre usé 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 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 abierto en la interfaz de usuario.

Otra forma de escribir esto sería usar las funciones proporcionadas en el enlace dentro de la función anterior, por lo tanto:

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 ruta actual sea muy eficiente mientras se utiliza el código que puede usarse 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

Prueba 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, cambie 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 / Christos / Desktop / LAT Analyzers Corrección de señal / 1

o

C: / Users / Christos / Desktop / LAT Analizadores Corrección de señal / 1 /

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

Espero que ayude...

Answer 7

Usa estos códigos y disfrútalo.

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í puedes 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

Puedes hacer algo simple como: Left(path, InStrRev(path, "/"))

Ejemplo:

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