VB6 elaborare tutti i files di una cartella

[Claudik]

Salve ,
qualcuno mi sa dire come posizionarmi su una cartella ed elaborare le centinaia di files txt che contiene ?
Non ho bisogno di usare funzioni come CommonDialog e similari , sia perchè non sono adatte e sia perchè nel form non è necessario evidenziare la cartella e/o i files.
Devo fare tutto a programma e cartella e files devono essere di default.

Grazie

[MANDRAKE]

Per scorrere il contenuto di una cartella potresti usare File System Object (FSO)
vai in menù progetto => riferimenti cerca e spunta Microsoft Scripting Runtime

poi fai qualcosa tipo questo
Sub ParserFile ()
Dim objFSO As New FileSystemObject
Dim oFile as File
Dim oFiles as Files
Dim FileNameString as string
Set oFiles = objFSO.GetFolder("devi mettere il percorso della tua cartella").Files

For Each oFile In oFiles
'trovi i nomi dei file presenti nella cartella
FileNameString= oFile.name
' poi metti il codice che ti serve

Next

Set oFile = Nothing
Set oFiles = Nothing
End Sub

Non sò nel concreto cosa devi fare ma una volta preso il percorso intero puoi aprire e leggere rinominare copiare muovere il file

ciao

[Claudik]

Grazie Mandrake , anche io stavo pensando allo FSO e già avevo abilitato la Microsoft Scripting Runtime , però non sapevo come usarlo in pratica. Tu mi hai dato un grosso aiuto anche se mi rimane il dubbio su come devo referenziare il percorso.
Forse così : (???)
Così : Set oFiles = objFSO.GetFolder."C:\Documents and Settings\Utente\Mia Cartella".Files
oppure è sbagliato come credo ?
Sempre grazie , ciao

[Claudik]

ahhhhh forse volevi dire :

Set oFiles = objFSO.GetFolder("C:\Documents and Settings\Utente\Mia Cartella").Files

?????????????

[MANDRAKE]

così

se la tua cartella si trova in c:\cartella\claudik
devi mettere

Set oFiles = objFSO.GetFolder("c:\cartella\claudik").Files

ciao

[Claudik]

Grazie Mandrake , gentilissimo