[VB6] Rinominare una grande mole di file

[Artemio]

ciao a tutti, ho una cartella piena di mp3 archiviati in cartelle, e dovrei rinominarli tutti secondo un certo criterio. vorrei chiedervi un consiglio su come, per prima cosa, far trovare al programma gli mp3 all'interno delle cartelle (avevo pensato a FSO, ma dovete rinfrescarmi un po la memoria perchè e da 3-4 mesi che non metto più le mani su vb) e ,come seconda cosa, rinominarli seconcondo il percorso in cui si trovano (l'unico problema in questo secondo punto è rinominarli, il resto vien da sè).
spero mi possiate aiutare...
aspetto una vostra risposta
grazie in anticipo. ciao :master:

[Boolean]

con il FileSystemObject è fattibile...

definisci un oggetto Folder, un oggetto File, e fai un ciclo For Each File in Folder.Files

Boolean

[Artemio]

ciao grazie per la risposta, mi spiace darti ancora fastidio, ma non mi potresti far vedere un piccolo esempio? il problema è che non ricordo proprio come usare fso.
E poi per quanto riguarda la parte del rinominare, si puo fare anche quello con fso?

[oregon]

Originariamente inviato da Artemio
E poi per quanto riguarda la parte del rinominare, si puo fare anche quello con fso?

Beh ... e' proprio quello che ti ha appena detto ...

[XWolverineX]

Ma perchè FSO non è trovato dall'IntelliSense?

[oregon]

Ma tu hai referenziato FSO?

[XWolverineX]

Mmm...non lo so
Però anche se non è mostrato dall'IntelliSense funziona lo stesso.

[oregon]

Ovviamente ... l'intellisense e' un aiuto ... non ha nulla a che fare con il funzionamento del codice ...

Se usi FSO creando un oggetto con la CreateObject, ovviamente l'intellisense non puo' funzionare ... se includi il riferimento, allora l'intellisense avra' tutte le informazioni necessarie al proprio funzionamento ...

[Artemio]

credevo che quello che mia consigliato boolean servisse solo per trovare i vari file. credevo esistesse una funzione tipo file.rename... comunque sono sempre in cerca di un piccolo esempio...
grazie per la risposta comunque oregon

[Boolean]

in pratica quello che ti ho detto a parole non è altro che codice...

innanzi tutto se non vuoi usare il Late Binding, referenzia la libreria:

windows script host object model

in un nuovo form metti una ListBox

e usa questo codice

Private Sub Form_Load()

Dim fso As FileSystemObject                 'istanzio il FileSystemObject
Dim fld As Folder                           'istanzio l'oggetto cartella
Dim fil As File                             'istanzio l'oggetto file

Set fso = New FileSystemObject
Set fld = fso.GetFolder("E:\My Music\MP3")  'imposto la cartella in cui cercare
For Each fil In fld.Files                   'per tutti i files nella cartella
    List1.AddItem fil.Name                  'carica il nome del file nella ListBox
Next fil
        
End Sub

come vedi non dovevi far altro che trasferire in codice quello che ti avevo detto a parole... l'esempio era tutto lì....

per rinominare il file usa la proprietà Name dell'oggetto File.

e premi F1 per maggiori e dettagliate informazioni...

Boolean