carpetas directorios

Public Function get_fecha(ByVal f As String) As String
        Dim t As FileInfo = New FileInfo(f)
        Return t.Directory.Parent.Parent.ToString & t.Directory.Parent.ToString & t.Directory.Name
    End Function