[VB5] Caricare una combo con i nomi dei file

[vr-claudio]

Ciao carissimi, tempo vi chiesi di aiutarmi con un problema per riempire tramite un pulsante i nomi (e non i testi) in una combo, purtroppo mi ritrovo ancora a sottoporvi lo stesso problema.
Io adotto questo sistema per salvare il testo di una text in una cartella specifica:
Private Sub Command1_Click()
Dim FileNum As Integer
Dim FileName As String
'Percorso, nome della cartella e del file (da inserire in Form1.Text1.Text & ".txt"):
FileName = "C:\Documents and _
Settings\Claudio\Desktop\SaveTestoEmail\Testo\" & Form1.Text2.Text & ".txt"
FileNum = FreeFile()
Dim strCL1 As String
strCL1 = Form1.Text1.Text
Open FileName For Output As #FileNum
Write #FileNum, strCL1
Close #FileNum
Svuota
End Sub

...e fin qui tutto bene.
Ma come faccio a caricare una combo1 tramite un command2 dei nomi dei file salvati?
E poi, come faccio a vedere il testo salvato nella text1 cliccando sul nome del file caricato nella combo?

Grazie e vi chiedo la cortesia di aiutarmi, è molto importante!!

[oregon]

Mi sembra che una risposta tu l'abbia avuto in

http://forum.html.it/forum/showthrea...hreadid=892537

[vr-claudio]

Si hai ragione, ma purtroppo non funziona, altrimenti non avrei fatto la identica domanda
Claudio

[oregon]

Che vuol dire "non funziona"?

Hai errori ? Malfunzionamenti ?

Dovrebbe essere il codice corretto per leggere i dati ...

[mgmg]

Se ho capito bene devi caricare nella combobox tutti i file che sono presenti nella directory:

Private Sub Command1_Click() 
Percorso = "C:\Documents and _ 
Settings\Claudio\Desktop\SaveTestoEmail\Testo\"
combo1.Clear
x = Trim(Percorso & "*.txt")
y = Dir(x)
Do Until y = ""
    Combo1.AddItem y, i
    y = Dir
    i = i +1 
Loop
End Sub

Ciao

[vr-claudio]

Ti faccio sapere al piu' presto? Nel frattempo ti ringrazio tantissimo
Claudio

[vr-claudio]

Ciao carissimo, ho provato a fare come mi dicevi ed andata alla
GRANDE, ti volevo ringraziare tantissimo e chiederti l'ultima cortesia.
Ora che la combo è caricata, quale codice devo inserire per visualizzare il contentuto di un eventuale file.txt nella text1 che clicco nella combo stessa.
Spero di essermi spiegato abbastanza bene

ANCORA INFINITE GRAZIE!!!!!!!!!!
Claudio

[mgmg]

Quello che ti ha scritto GudFella nel precedente post è corretto, devi solo da adattarlo (previsto in un combo anzichè un un text box)
L'evento potrebbe essere :

Private Sub Combo1_Click(Index As Integer)
    If Combo1.Text = "" Then
       MsgBox "Attenzione selezionare File!!", VbExclamation, "Avvertenza"
       exit Sub
    End If

    Open Combo1.Text For Input Access Read Lock Read As #1
    Do While Not EOF(1)
        Line Input #1, str
        Text1.Text = Text1.Text & str
    Loop
    Close #1
End Sub

Se nella combo è presente solo il nome invece di fare la open di combo1.text dovrai :
FileName = "C:\Documents and _
Settings\Claudio\Desktop\SaveTestoEmail\Testo\" & Combo1.Text

Ciao

[vr-claudio]

Ciao carissimo
ho provato e mi da errore:
Errore di run-time "53"
Nome o numero file non trovato!

Fammi capire, l'"Open Combo1.Text......" non dovrebbe avere il nome
del file dove pesca il testo?

Grazie mille

[oregon]

Probabilmente devi indicare tutto il percorso in cui il file si trova ...