Renombrar toda una carpeta

[kawakami]

Hola, mi preguna es.. si yo tengo una carpeta con 200 archivos y quiero renombrarlos con el numero de la variable del ciclo q recorre la carpeta (q no se como hacer para q recorra la carpeta) como hago?

[Insomnia]

Hola

Creo que la forma más sencilla es utilizando Scripting Runtime, que tienes que añadirlo en las Referencias. Luego añades el siguiente código:

Código vb:

Dim FS As New FileSystemObject
Dim Carpeta As Folder
Dim Archivo As File
 
Set Carpeta = FS.GetFolder("d:\prueba")
 
For Each Archivo In Carpeta.Files
    List1.AddItem Archivo.Name
Next Archivo
 

En el ejemplo defino la carpeta D:\Prueba como carpeta a explorar, luego recorro los archivos de la carpeta añadiendo su nombre a un list.

Supongo que lo podrás adaptar el código fácilmente a tus necesidades.

--Saludos--