Trovare la directory dato il percorso completo di un file

questa piccola procedura ci permette di ottentere la directory dato un percorso completo. Ad es. dato c:\users\pippo\file.txt verrà restituito c:\users\pippo

 

Private Function getBaseName(PATH As String) As String
Dim t As String
Dim p As Long
p = InStr(1, StrReverse(PATH), "\")
If p = 0 Then
Err.Raise vbObjectError + 5500, "getBaseName", "Il percorso fornito ('" & _
            PATH & "') non è un percorso valido"
End If
getBaseName = Mid(PATH, 1, Len(PATH) - p)
End Function

 

 

Ultimo aggiornamento (Domenica 11 Novembre 2007 02:50)