Renombrar ficheros
Desearía saber como se puede renombrar un grupo de ficheros con la misma extensión (.DER) de una misma carpeta todos al mismo tiempo y convertirlos en (.TXT).
Muchar gracias
Muchar gracias
1 Respuesta
Respuesta
1
Te paso un código de ejemplo:
Dim iFSO As Scripting.FileSystemObject
Set iFSO = New Scripting.FileSystemObject
Dim iDirectorio As Scripting.Folder
Set iDirectorio = iFSO.GetFolder("C:\Pmmax\DevStudio\VB\TodoExpertos\Rename")
Dim iArchivo As Scripting.File
For Each iArchivo In iDirectorio.Files
If UCase(Right(iArchivo.Name, 4)) = ".DER" Then
iArchivo.Name = Replace(iArchivo.Name, Right(iArchivo.Name, 4), ".txt")
End If
Next
Set iDirectorio = Nothing
Set iFSO = Nothing
Para correr este código tienes que añadir la siguiente referencia a tu proyecto:
Microsoft Scripting Runtime
Bueno, como veras, este ejemplo renombre todos los archivos del directorio
C:\Pmmax\DevStudio\VB\TodoExpertos\Rename
Con extension ".DER" a extension ".txt"
Tene en cuenta que ".DER" esta es mayusculas porque en la comparacion use UCase
Dim iFSO As Scripting.FileSystemObject
Set iFSO = New Scripting.FileSystemObject
Dim iDirectorio As Scripting.Folder
Set iDirectorio = iFSO.GetFolder("C:\Pmmax\DevStudio\VB\TodoExpertos\Rename")
Dim iArchivo As Scripting.File
For Each iArchivo In iDirectorio.Files
If UCase(Right(iArchivo.Name, 4)) = ".DER" Then
iArchivo.Name = Replace(iArchivo.Name, Right(iArchivo.Name, 4), ".txt")
End If
Next
Set iDirectorio = Nothing
Set iFSO = Nothing
Para correr este código tienes que añadir la siguiente referencia a tu proyecto:
Microsoft Scripting Runtime
Bueno, como veras, este ejemplo renombre todos los archivos del directorio
C:\Pmmax\DevStudio\VB\TodoExpertos\Rename
Con extension ".DER" a extension ".txt"
Tene en cuenta que ".DER" esta es mayusculas porque en la comparacion use UCase