Combobox associata a directory

[Robyn69]

salve a tutti
non riesco ad associare una combobox

nella combo ho inserito tre voci

pippo
ciccia
lella

e nel path delle directory ci sono tre cartelle con lo stesso nome

vorrei che quando clicco sulla combobox ed attivo pippo
nella filelistbox si visualizzi il contenuto della cartella pippo e cosi per le altre
e nel visualizzare il contenuto posso impostare anche l'estensione
visto che la filelistbox (essendo la stessa per tutte le cartelle)mi serve anche x visualizzare piu di un tipo di file
e possibile?

[yyzyyz]

nn sono sikuro di aver capito , prova questo esempio, ciao

Private Sub Combo1_Click()
Dim cartella As String
    cartella = Combo1.Text
    File1.Path = "C:\" & cartella
End Sub

Private Sub Form_Load()

Combo1.Clear
Combo1.AddItem "windows"
Combo1.AddItem "programmi"
   
End Sub

[Robyn69]

il codice l'ho inserito ma non fa nulla

l'ho controllato più volte ma non va e nemmeno mi da l'errore

cmq mi rispiego

la combo dovrebbe assegnare il percorso della cartella corrispondente

es.
Assegno le combo

Combo1.AddItem "Pippo"
Combo1.AddItem "lella"
quando seleziono pippo (da Combobox)
nella filelistbox mi deve leggere il contenuto di c:\pippo

[yyzyyz]

strano :master: a me funziona benissimo, ke no ha il componente filelistbox ? File1 ?

ps. controlla bene , magari hai scritto male,,, dalla fretta.

[Robyn69]

allora una cosa strana succede

se copio il tuo codice cosi come l'hai fatto
nei rispettivi campi del codice
mi funge

se' cambio solo il "C:\" in "d:\" (e sostiduendo i nomi nella combo)

perche il mio drive e D:

mentre se lascio tutto come hai fatto tu funziona

non funziona e mi da impossibile trovare il percorso ma le cartelle ci sono
il percorso per intero e
D:\menufile\pippo oppure
D:\menufile\lella

ps
ho come assegno l'estensione se dovessi riuscire a farlo funzionare dopo & cartella & *.exe

[oregon]

Non ho capito nulla ... specialmente la questione dell'assegno ...

[Robyn69]

il codice da voi fatto
funziona bene
però siccome ho il path del drive su d:\ invece di c:\
dal codice sostituisco c in d e cambio i nomi della combo, qui già non mi funziona piu dandomi l'errore 76 e vi assicuro che le cartelle ci sono

la questione dell'assegnare il modo di visualizzare i file nella filelistbox.
perchè ogni volta che clicco sulla combo vado a selezionare la cartella con dentro dei file
di tipo exe per es.
mentre nell'altra cartella ci sono le gif
non so se sono stato chiaro spero di si

in pratica ho una maschera con dentro

image.picture
filelist
ed una combobox
la combo deve selezionarmi le cartelle
e la filelist visualizzarne il contenuto

[oregon]

Originariamente inviato da Robyn69
il codice da voi fatto
funziona bene
però siccome ho il path del drive su d:\ invece di c:\
dal codice sostituisco c in d e cambio i nomi della combo, qui già non mi funziona piu dandomi l'errore 76 e vi assicuro che le cartelle ci sono

Scusa ... ma se dici che in D:\ stai provando le cartelle

D:\menufile\pippo
D:\menufile\lella

e' ovvio che, se nella combo inserisci solamente il nome dell'ultima cartella

pippo
lella

nel codice devi indicare la radice completa, ovvero

File1.Path = "D:\menufile\" & cartella

Originariamente inviato da Robyn69
la questione dell'assegnare il modo di visualizzare i file nella filelistbox.
perchè ogni volta che clicco sulla combo vado a selezionare la cartella con dentro dei file
di tipo exe per es.
mentre nell'altra cartella ci sono le gif
non so se sono stato chiaro spero di si

in pratica ho una maschera con dentro

image.picture
filelist
ed una combobox
la combo deve selezionarmi le cartelle
e la filelist visualizzarne il contenuto

Scusa ... ma continuo a non comprendere. Esprimi il concetto con delle frasi di senso compiuto, altrimenti non so cosa dirti ...

[yyzyyz]

spero di aver tradotto bene

Dim path_drive As String
Dim cartella As String
Private Sub Combo1_Click()
    cartella = Combo1.Text
    
    Select Case cartella
        Case "windows"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.bmp"
        
        Case "programmi"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.exe"
    End Select
End Sub

Private Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(File1.Path & "\" & (File1.FileName))
End Sub

Private Sub Form_Load()
path_drive = "c:\"
Combo1.Clear
Combo1.AddItem "windows"
Combo1.AddItem "programmi"
   
End Sub

[Robyn69]

     Private Sub Combo1_Click()
Dim path_drive As String
Dim cartella As String
    path_drive = "C:\MenuFile"   'ho provato anche a mettere solo C:
    cartella = Combo1.Text
    File1.Path = "C:" & cartella
    End Sub

Private Sub Form_Load()
    Dim path_drive As String
    Dim cartella As String
    path_drive = "C:\Menufile"   'ho provato anche a mettere solo C:
Combo1.Clear
Combo1.AddItem "Antivirus"
Combo1.AddItem "Audio"
cartella = Combo1.Text
       Select Case cartella
        Case "Antivirus"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.txt"
         Case "Audio"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.exe"
        End Select
        End Sub

ora avviando il programma la combo si svuota e fin qui ok
selezionando una voce (es.Audio)
la filelist mi visualizza il contenuto e anche qui ok
ma se clicco di nuovo sulla combo per selezionare un altra voce (es.antivirus)
mi da l'errore 76
questo perchè il file1.path e attivo sul percorso completo della cartella audio cioe
c:\menufile\audio giusto?
e quindi quando clicco di nuovo sull'altra voce mi da l'errore
dovrei svuotare il file1.path ogni volta che clicco giusto