Estrapolare Path assoluta da un percorso file completo

[maui.maui]

Ho bisogno di un aiuto; posseggo un foglio excel ove in una colonna, in questo caso identificata con la colonna D, ho raccolto tuttle pat assolute relative a ciascun file
Es:
::::
d1 E:\Maui_Data\Pvt\Elysir\New_Version\Beta\Document.txt
d2 E:\Maui_Data\USB_Boot_Utility\lba.tar
::::
dn E:\Maui_Data\bash-203\loader.sh

Ora da questa situazione dovrei realizzare una macro in grado di aprire il file manager di windows, cosiddetto esplora risorse, in corrispondenza della path assoluta, a seconda di dove ho posizionato il cursore sulla cella, o addirittura sulla riga, cioe' a dire se il cursore si trova sulla cella d1, o anche se possibile sulla riga 1, cliccando il pulsante della macro dovrei aprire gestione risorse in corrispondenza della path scritta sulla corrispettiva colonna d, in questo caso E:\Maui_Data\Pvt\Elysir\New_Version\Beta\
In realta' come si nota la profondita' della path e' variabile 3 o 4 rami e anche piu' profonde.
Ho provato via vba usando la shell di windows cosiddetto cmd ad aprire il file manager usando tutta la path senza togliere l'ultima parte che rappresenta il nome file; ma il risultato e' che il file manager non mi apre la finestra con la lista files dentro a quella directory ma mi si posiziona direttamente a visualizzare ed es. il file txt se di file txt in quella determinata dir si tratta.
In sostanza devo ottenere una macro che ricavi la path escludendo l'ultima parte del percorso che rappresenta il momefile.
Questo e' quanto, vi ringrazio per l'aiuto che vorrete darmi.
saluti
Maui
maui.maui@libero.it

[By Sal]

Ciao Maui-maui, mi era stata fatta una richiesta simile, solo in modo inverso, cioè estrapolare il file alla fine della Path, come hai detto e un po difficile, non sapendo la lunghezza della Path, ma comunque ho ricavato questa:

Codice: Seleziona tutto

Sub nomeFile()
r = "C:\Documents and Settings\Utente\Desktop\Excel\Prova1.xls"
l1 = Len(r)
r1 = StrReverse(r)
For x = 1 To l1
  x1 = Mid(r1, x, 1)
  If x1 = "\" Then
    r2 = StrReverse(r2)
    Exit For
  End If
  r2 = r2 + x1
Next x
l2 = len(r2)
r2 = Mid(r2, 1, l2-4)
End Sub


con qualche modifica si può ottenere il discorso inverso:

Codice: Seleziona tutto

Sub NomePath()
R = "C:\Documents and Settings\Utente\Desktop\Excel\Prova1.xls"
l1 = Len(R)
R1 = StrReverse(R)
Rx = R
For x = 1 To l1
  x1 = Mid(R1, x, 1)
  If x1 = "\" Then
    r2 = x
    Exit For
  End If
Next x
Rx = Mid(Rx, 1, l1 - r2)
End Sub

Di cui "R" prende il nome completo Path, ed Rx ritorna la Path senza file,
Ciao By Sal

[Anthony47]

Ciao maui.maui e benvenuto nel forum.
In aggiunta alle informazioni gia' date da BySal, il mio suggerimento e' di inserire un hyperlink in ognuna delle celle.
Sul tuo foglio, assegna all' elenco contenente tutti i path il nome "Lista"; poi lancia la seguente macro:

Codice: Seleziona tutto

Sub SetHL()
For Each Cella In Range("Lista")
    HLink = Left(Cella.Value, InStrRev(Cella.Value, "\", -1, 1))
    ActiveSheet.Hyperlinks.Add Anchor:=Range(Cella.Address), Address:=HLink
Next Cella
End Sub

In questo modo potrai aprire explorer col click sulla cella.

Se vuoi adottare la soluzione macro, ricavi "la path escludendo l'ultima parte del percorso che rappresenta il momefile" (come da tua richiesta) con l' istruzione

Codice: Seleziona tutto

PathOnly = Left(Activecell.Value, InStrRev(Activecell.Value, "\", -1, 1))

Explorer lo lancerai con la funzione Shell, ma questo mi pare che lo sai gia'.

Ciao.