Rinominare n-esimo carattere in una lista di file in una directory

[zorro77]

Salve a tutti
ho la necessità di rinominare dei file all'interno di una specifica directory.
I file nella rirectory hanno tutti la stessa lunghezza, e a me interessa cambiare per esempio solo il terzo carattere da sinistra di tutti i file, lasciando tutto il resto inalterto?
Come posso fare? come si fa a sapere quanti file ho in una directory per effettuare un ciclo for su tutti i file?

[oregon]

Usa

1) la funzione Dir$ per vedere quali file ci sono in una cartella.

2) l'istruzione Mid$ per modificare il carattere

3) l'istruzione Name per rinominare il file

[zorro77]

1) la funzione Dir$ per vedere quali file ci sono in una cartella.

sto scrivendo in questo modo

Dim NomeFile As String
Dim NuovoFile As String  
NomeFile = Dir$(TempPath & "\*.*")
          
Do
    If NomeFile <> "" Then
        NuovoFile = NomeFile
        Mid$(NuovoFile, 7, 1) = valcmbSession
        Call getRename(NomeFile, NuovoFile)         
    Else
         Exit Do
    End If
    Dir$
 Loop

però mi effettua un ciclo infinito e mi da errore, perchè rimane sempre sul primo file, infatti in NomeFile c'è sempre lo stesso

[oregon]

Il ciclo corretto e'

    NomeFile = Dir$("C:\*.*")
          
    Do While Len(NomeFile)
        ' Qui fai quello che serve con NomeFile
        
        NomeFile = Dir$
    Loop

[zorro77]

Grazie mille oregon!!!