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