[VB6] Caricare nomi di file in ComboBox e operazioni correlate

[LleoBasic]

Ho un Problema!

Ho inserito questo codice nel programma!

Dim folder As Object
Set folder = FSO.GetFolder(FRN & "\codici\")
Dim File As Object
For Each File In folder.Files
If Right$(File, 4) = ".txt" Then
CmbVouc.AddItem Split(File, "\")(8)
End If
Next


Ma se cambio cartella ... mi esce un altra stringa....
es(C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\c odici\prova.txt) se metto (8) mi esce prova.txt ... ma se lo sposto in (C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\d bp\dbp\codici\prova.txt) mi esce dpb... come faccio a impostare sempre la fine?? Grazie!

[alka]

Originariamente inviato da LleoBasic
Ma se cambio cartella ... mi esce un altra stringa....

Un'altra stringa... rispetto a quale?

Originariamente inviato da LleoBasic
es(C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\c odici\prova.txt) se metto (8) mi esce prova.txt ... ma se lo sposto in (C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\d bp\dbp\codici\prova.txt) mi esce dpb... come faccio a impostare sempre la fine?? Grazie!

Ok, ora ridillo in italiano...... :berto:

[oregon]

Con tutta la buona volonta' ... non ci ho capito nulla ...

[LleoBasic]

Mi spiego meglio ... allora ho questo percorso... C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\c odici\prova.txt

Dovrei caricare i file contenuti in codici se sono txt e quindi ho messo questo codice...

Dim folder As Object
Set folder = FSO.GetFolder(FRN & "\codici\")
Dim File As Object
For Each File In folder.Files
If Right$(File, 4) = ".txt" Then
CmbVouc.AddItem Split(File, "\")(8) End If
Next

e in questo modo ... mi carica nella combo tutti i file di testo contenuti nella cartella codici ... es prova.txt , prova2.txt etc...

Invece se sposto il tutto in ...

C:\Documents and Settings\HP_Administrator\Documenti\database\dbp\s postato\rimosso\codici\prova.txt

Invece di caricarmi nella combo tutti i file di testo mi carica per ogni file di testo presente nella cartella solo "rimosso"...

Chiaro ora?

al posto di (8) per far caricare sempre la parte finale?? Grazie

[oregon]

Non usare direttamente la Split nella AddItem con l'indice fisso (8).

Assegna il risultato della Split ad un vettore e nella AddItem utilizza la Ubound(vettore) al posto dell'indice ...

[LleoBasic]

Mi puoi scrivere il codice che dovrei mettere! Grazie!

[oregon]

Originariamente inviato da LleoBasic
Mi puoi scrivere il codice che dovrei mettere! Grazie!

Non puoi tentare di scriverlo tu e magari si vede cosa non va ?

[LleoBasic]

Ok...

[LleoBasic]

è Corretto?

Dim fold As Object
Set fold = FSO.GetFolder(RFT & "cod")
i = 0
ran = Split(File, "\")
For i = 0 To UBound(ran)
For Each File In fold.Files
If Right$(File, 4) = ".ini" Then
Combo4.AddItem ran
End If
Next
Next

[oregon]

Tu lo provi il codice quando lo scrivi?