[VBA]Estrarre dal percorso il nome DB in uso (era:percorso del database in Access)

[cicciobombo]

Ho trovato una routine per avere in una variabile il percorso del file.mdb che sto utizzando, ma, con questa routine mi da compreso anche il nome del file.
Vorrei , se qualcuno ce l'ha una routine che

prende solo il nome del percorso e non il nome del file.
Grazie in anticipo...

Luisa

[Libera75]

Originariamente inviato da cicciobombo
Ho trovato una routine per avere in una variabile il percorso del file.mdb che sto utizzando, ma, con questa routine mi da compreso anche il nome del file.
Vorrei , se qualcuno ce l'ha una routine che

prende solo il nome del percorso e non il nome del file.
Grazie in anticipo...

Luisa

potresti sottrarre alla stringa il nome del file.mdb dopo che ha girato la tua routine :master:

[ladyBlu]

Originariamente inviato da cicciobombo
Ho trovato una routine per avere in una variabile il percorso del file.mdb che sto utizzando, ma, con questa routine mi da compreso anche il nome del file.
Vorrei , se qualcuno ce l'ha una routine che

prende solo il nome del percorso e non il nome del file.
Grazie in anticipo...

Luisa

che linguaggio usi?

ti invito a ripassare il regolamento (lo trovi a questo link: < QUI >) con particolare attenzione alla sezione relativa ai titoli delle discussioni: IL LINGUAGGIO CHE SI UTILIZZA DEVE ESSERE SEMPRE SPECIFICATO PRIMA DI TUTTO NEL TITOLO!!!

[cicciobombo]

IO ho già questa routine:

Dim percorso As String
Dim db As Database
percorso = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))


ma nella variabile percorso mi prende anche il nome del db e io vorrei solo il percoorso..
Ciao

[cicciobombo]

scusate non lo sapevo...

[ladyBlu]

Originariamente inviato da cicciobombo
scusate non lo sapevo...

ti informo anche di un'altra cosa: per il VisualBasic esiste il forum apposito: < QUI >

Devi specificare anche la versione di VB perchè nel subforum si tratta di VB6, VB.Net, VBA e .NetFramework.

Per questa volta ti sposto io, in futuro fai più attenzione.
Grazie e buona permanenza

[Libera75]

Originariamente inviato da cicciobombo
IO ho già questa routine:

Dim percorso As String
Dim db As Database
percorso = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))


ma nella variabile percorso mi prende anche il nome del db e io vorrei solo il percoorso..
Ciao

guarda che l'ho provata la tua routine e funziona :master: in percorso c'è solo il percorso senza il nome del db

[cicciobombo]

no mi prende anche il nome del db.
e non so come fare a toglierlo..
Ciao

[ladyBlu]

Originariamente inviato da Libera75
guarda che l'ho provata la tua routine e funziona :master: in percorso c'è solo il percorso senza il nome del db

anche a me funziona correttamente.


Luisa, sei sicura di aver controllato bene il valore della variabile percorso?

[ladyBlu]

Originariamente inviato da cicciobombo
no mi prende anche il nome del db.
e non so come fare a toglierlo..
Ciao

mi sembra molto strano, ma se lo dici tu...


senti, prova questa routine che ho scritto io:

Private Sub Comando1_Click()
    Dim strPercorso As String
    DividiNomePercorsoFile strPercorso
    MsgBox strPercorso
End Sub
Private Sub DividiNomePercorsoFile(ByRef strPerc As String)
    
    Dim intPos As Integer
    Dim intLunghStringa As Integer
    Dim intIndice As Integer
    Dim strValore As String
 
    Const strSeparatore = "\"
    
    strValore = CurrentDb.Name
    intLunghStringa = Len(CurrentDb.Name)
    
    intIndice = 1
    
    ' Cicla la stringa del percorso
    Do Until intLunghStringa = 0
        ' Cerca nella stringa del percorso il backslash
        intPos = InStr(1, strValore, strSeparatore, vbTextCompare)
        ' Se la posizione è maggiore di zero 
        '   si tratta ancora della directory
        If intPos > 0 Then
 
             strPerc = strPerc & Left(strValore, intPos)
             strValore = Right(strValore, Len(strValore) - intPos)
             intLunghStringa = Len(strValore)
             intIndice = intIndice + 1
 
        Else ' Si tratta del nome del file
 
             strNome = strValore
             intLunghStringa = 0
 
        End If
 
    Loop
        
End Sub