Aprire cartella da vba non funziona

di fabionik2004 il
18 risposte
Utente Attivo
Iscritto da
set, 2011
Messaggi
196
Ciao a tutti,

ho un Command Button che apre una cartella ed ha sempre funzionato. Ma da oggi apre una cartella diversa rispetto a quella che in realtà gli é indicata.

Non ho modificato niente al codice.
pth = Application.CurrentProject.Path & "\Cartella\"
MsgBox (pth)
VBA.Shell "EXPLORER " & pth, vbMaximizedFocus
Ha sempre funzionato aprendo la cartella corretta.
Ho messo anche una msgbox per verificare che il percorso sia caorretto ed in effetti lo é.
Ma la cartella che viene aperta é Documenti, non capisco il motivo

Qualche idea?

18 Risposte

  • Avatar di muttley005
    Utente Attivo
    Iscritto da
    apr, 2015
    Messaggi
    360
    Application.FollowHyperlink pathFile
    edit: la gestione errori è ben accetta
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Mancano gli apici...!
    Prova così
    
VBA.Shell ("EXPLORER " & """ & Application.CurrentProject.Path & "\Cartella\" & """, vbMaximizedFocus)
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951

    muttley005 ha scritto:

    Application.FollowHyperlink pathFile
    edit: la gestione errori è ben accetta
    Temo non vada con le Cartelle, nemmeno con la gestione errori
  • Avatar di muttley005
    Utente Attivo
    Iscritto da
    apr, 2015
    Messaggi
    360

    @Alex ha scritto:

    muttley005 ha scritto:

    Application.FollowHyperlink pathFile
    edit: la gestione errori è ben accetta
    Temo non vada con le Cartelle, nemmeno con la gestione errori
    questa volta ... insisto
    l'ho appena provato e da me funziona 
    Application.FollowHyperlink pathFile, , True, False
    (W10pro 64b con Access 2013 32b non so se incida)
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Dettagliamo l'anomalia...
    In finestra immediata non funziona: 
    ?Application.FollowHyperlink Application.CurrentProject.Path
    Da VBA si effettivamente, non so perchè ma mi ha ingannato la prova in GTRL+G.
  • Avatar di muttley005
    Utente Attivo
    Iscritto da
    apr, 2015
    Messaggi
    360

    @Alex ha scritto:

    Dettagliamo l'anomalia...
    In finestra immediata non funziona: 
    ?Application.FollowHyperlink Application.CurrentProject.Path
    Da VBA si effettivamente, non so perchè ma mi ha ingannato la prova in GTRL+G.
    questo lo ignoro
  • Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi
    2250

    @Alex ha scritto:

    In finestra immediata non funziona: 
    ?Application.FollowHyperlink Application.CurrentProject.Path

    muttley005 ha scritto:

    questo lo ignoro
    C'è un punto interrogativo di troppo all'inizio. Non voglio infierire.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951

    Philcattivocarattere ha scritto:

    C'è un punto interrogativo di troppo all'inizio. Non voglio infierire.
    Assolutamente NO, leggi BENE ho detto in Finestra immediata..., e non voglio infierire.
  • Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi
    2250

    @Alex ha scritto:

    Assolutamente NO, leggi BENE ho detto in Finestra immediata..., e non voglio infierire.
    Avevo letto giusto e le prove sono state fatte dalla finestra immediata.
    Il punto interrogativo non è la "stampa" nella finestra immediata di un risultato di qualcosa?
    A cosa serve davanti ad Application.FollowHyperlink che nel caso specifico in cui si va ad aprire una cartella? Ma penso in generale per FollowHyperlink.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Phil ... dalla finestra immediata se non metti il [?]
    come fai a provare lwnchiamate a metodi Nativi come Followhyperlink o Costruiti(come le Function)...?

    Serve il [?]

    Siccome mi pare osservazione strana quanto banale forse fraintendo il senso...
  • Avatar di fratac
    Molto attivo
    Iscritto da
    lug, 2022
    Messaggi
    707
    Ciao.

    Hai fatto la prova mettendo il nome esteso dell'indirizzo, invece che recuperarlo in automatico dall'indirizzo del progetto?
  • Utente Attivo
    Iscritto da
    set, 2011
    Messaggi
    196
    Raga non vi arrabbiate il codice che ho postato qui funziona, ma nel codice che effettivamente utilizzo c'era una virgola dopo "cartella, che non so da dove sia saltata fuori
  • Avatar di fratac
    Molto attivo
    Iscritto da
    lug, 2022
    Messaggi
    707

    fabionik2004 ha scritto:

    Raga non vi arrabbiate il codice che ho postato qui funziona, ma nel codice che effettivamente utilizzo c'era una virgola dopo "cartella, che non so da dove sia saltata fuori

    Non ti preoccupare. Di solito errori del genere fanno perdere settimane di notte insonni.
    Tu hai perso solo un paio di giorni.
    Metti comunque una gestione degli errori.
    Molte volte evitano situazioni di questo genere.
    Quello che non capisco è il perchè non ti abbia dato percorso inesistente.
  • Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi
    2250

    @Alex ha scritto:

    Phil ... dalla finestra immediata se non metti il [?]
    come fai a provare lwnchiamate a metodi Nativi come Followhyperlink o Costruiti(come le Function)...?
    Non lo so @Alex, non so cosa risponderti se non a colpi di screenshot (su Windows10 Pro - Access2016 32bit) di un database vuoto.



    Una funzione Test1 creata ad arte


    Funzione Test2 sempre creata per l'occasione

    (segue un altro post perché troppe immagini non ci stanno)
Devi accedere o registrarti per scrivere nel forum
18 risposte