CommonDialog

pierovb

il 03 mar 2022, 20:03

7 risposte

pierovb

Utente Attivo

Iscritto da: nov, 2021

Messaggi:: 160

CommonDialog

03 mar 2022, 20:28

Buonasera
Esiste un metodo per riportare una commondialog al percorso iniziale.
MI spiego meglio.
Carico la path di un file in una textbox

[CODE]
With CommonDialog1
    .CancelError = False
    .FileName = ""
        .InitDir = "I:\PippiPappo"
        .Filter = "File sistema (*.mdb)|*.mdb"
    .ShowOpen
    .DialogTitle = "Selezionare il file"
     txtPathSelezionato.Text = .FileName
 End With

A questo punto quando provo ad riusare la commondialog per aprire un altro file
punta inesorabilmente sul percorso precedentemente selezionato.

Ho provato inserendo nell'evento Change della textbox il seguente codice


With CommonDialog1
    .CancelError = False
    .FileName = ""
    .InitDir = "C:\CartellaDatabase"
    End With

sperando di reimpostare il percorso ,ma non funziona.
Esiste una specie di refresh che azzera il percorso all'interno della commondialog ?
O meglio una routine dove posso reimpostare il percorso ?
Grazie

7 Risposte

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: CommonDialog
04 mar 2022, 08:24
Non puoi assegnare la InitDir quando ti serv
P
pierovb
Utente Attivo
Iscritto da
nov, 2021
Messaggi:
160
Re: CommonDialog
04 mar 2022, 09:02
Oregon
Non puoi assegnare la InitDir quando ti serve?
credo sia questa la tua risposta.
Il problema è che eseguo una serie di operazioni sempre con lo stesso percorso,
purtroppo l'ultima va a pescare un database da un percorso diverso e a quel punto
salta tutto perché anche i percorsi inseriti nelle rispettive textbox non vengono più riconosciuti.
ho provato ad azzerare e impostare un nuovo percorso dopo aver assegnato alla textbox
il filename, ma niente!!!
```
   With CommonDialog1
    .CancelError = False
    .FileName = ""
        '.InitDir = "I:\EasyStorageBCC"
        .Filter = "File sistema (*.mdb)|*.mdb"
    .ShowOpen
    .DialogTitle = "Selezionare il file"
     txtPathSelezionato.Text = .FileName
    
           .FileName = ""
           .InitDir = Text1.Text
End With
```
Potrei usare i controlli Drive-Dir_File, che non creano problemi,ma non sono immediati (per l'utente) come la commondialog .
Non so proprio come uscirne.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: CommonDialog
04 mar 2022, 09:59
Non dico alla fine. Ma passare il path che ti serve dall'esterno e assegnarlo alla initdir prima di usare il controllo
P
pierovb
Utente Attivo
Iscritto da
nov, 2021
Messaggi:
160
Re: CommonDialog
04 mar 2022, 10:10
Scusami, ma non ho capito.

Il path che mi serve

intendi quello con il quale eseguo tutte le operazioni prima di usare la commnodialog ?

e come fare a
passare il path che ti serve dall'esterno a assegnarlo alla intDir prima di usare il controllo
?
Alka
Utente Famoso
Iscritto da
nov, 2014
Messaggi:
3318
Re: CommonDialog
04 mar 2022, 11:49
pierovb ha scritto:
e come fare a
passare il path che ti serve dall'esterno a assegnarlo alla intDir prima di usare il controllo
?
Probabilmente si sta riferendo al fatto che devi impostare InitDir alla directory di partenza che desideri prima di chiamare ShowOpen.

Ogni volta che l'utente conferma la scelta, il valore di InitDir va successivamente riletto e memorizzato per poter essere reimpostato nuovamente sulla CommonDialog prima di invocare di nuovo ShowOpen.

Ciao!
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: CommonDialog
04 mar 2022, 12:21
Scusa Piero ma è semplice, dai.

Imposta la InitDir prima di usare il controllo con il path che ti serve al momento, che sia I:... o C:....
P
pierovb
Utente Attivo
Iscritto da
nov, 2021
Messaggi:
160
Re: CommonDialog
04 mar 2022, 16:13
Se uso :
```
.InitDir = App.Path &  "\Cartelladatabase"
```
si pianta sull'ultimo path

se invece uso
```
.InitDir = "C:\CartellaDatabase"
```
anche se apro un percorso diverso torna al path iniziale

Devi accedere o registrarti per scrivere nel forum

7 risposte