Nel senso che lo vai cercare tramite un Find nella proprietà Text... ;D
Non è proprio quello che cerco, poiché facendo:
Dialog.Filter = ["*.xxx", "*.yyy"]
Print Dialog .Filter.Find("*.yyy")
in console ottengo la posizione del valore presente nell'array da me richiamato; in questo caso sarebbe: 1 .
Vuoi conoscere l'indice del valore selezionato, oppure il valore stesso?
...«la seconda che hai detto !»
Credo però di non aver compreso bene la tua domanda...
In pratica vorrei che, quando nella finestra scelgo il tipo di estensione, apparisse nell'altro campo della finestra, dedicato all'immissione del nome del file, l'estensione di volta in volta prescelta.
Fino ad ora ho trovato solo questo modo:
......
Dialog.Filter = ["*.xxx", "File XXX", "*.yyy", "File YYY"]
Dialog.Path = "/un_percorso_qualsiasi/*.xxx"
If Dialog.SaveFile() Then Return
......
Alla prima apertura della finestra di dialogo è impostata l'estensione .xxx, e conseguentemente nel relativo campo del nome del file appaiono i caratteri: *.xxx.
Noto che cambiando nel Combo il tipo di file, e quindi di estensione (nell'esempio: .yyy), nel relativo campo del nome del file appaiono i caratteri attinenti all'altra estensione *.yyy . Mi sembra, però, che non funziona con il metodo .OpenFile.
.... ritorno su questa mia precedente discussione ritenendo di aver finalmente risolto così:
Private percorso As String
Public Sub Form_Open()
percorso = "*.*"
End
Public Sub Button1_Click()
With Dialog
.Filter = ["*." & File.Ext(percorso), "File "])
If OpenFile() Then Return ' oppure ".SaveFile"
percorso = .Path
..........
End With
End