Programa para renombrar archivos
Estoy intentando realizar una pequeño programilla para renombrar archivos de imagenes(.jpg). El problema es me falta justo eso... necesito saber si se trata de una propiedad o qué es lo que necesito saber para renombrar un archivo de este tipo...
Muchas gracias
Muchas gracias
Hola,
Name "C:imagen.jpg" As "C:imagenRenombrada.jpg"
Si lo que quieres es cambiarle la extensión también puedes, pero no se cambiará el formato original de archivo.
Supongo que para el resto de tu programa utilizarás el filesystemobject....
Saludos
sdemingo
Name "C:imagen.jpg" As "C:imagenRenombrada.jpg"
Si lo que quieres es cambiarle la extensión también puedes, pero no se cambiará el formato original de archivo.
Supongo que para el resto de tu programa utilizarás el filesystemobject....
Saludos
sdemingo
Muchas gracias por ser tan rápido...
el problema es que de momento estoy un poco verde.... eso del filesystemobject... estuve leyendo algo pero no me entero demasiado... podrías enrollarte un poco más....
A lo mejor es más complicado de lo que me suponía....
gracias otra vez....
el problema es que de momento estoy un poco verde.... eso del filesystemobject... estuve leyendo algo pero no me entero demasiado... podrías enrollarte un poco más....
A lo mejor es más complicado de lo que me suponía....
gracias otra vez....
Dim fs as Object
Set fs = CreateObject("Scripting.FileSystemObject")
A través de controles DriveListBos y DirListBox, permites que el usuario selecciones del disco duro el archivo que quiere renombrar.
Te aseguras de que exista en ese mismo momento con el fs
If fs.FileExixts(rutaelegidaporelusuario) Then
Name rutaelegidoporelusuario AS nuevonombreseleccionado
Else
MsgBox "El fichero seleccionado no existe"
End If
Saludos
sdemingo
Set fs = CreateObject("Scripting.FileSystemObject")
A través de controles DriveListBos y DirListBox, permites que el usuario selecciones del disco duro el archivo que quiere renombrar.
Te aseguras de que exista en ese mismo momento con el fs
If fs.FileExixts(rutaelegidaporelusuario) Then
Name rutaelegidoporelusuario AS nuevonombreseleccionado
Else
MsgBox "El fichero seleccionado no existe"
End If
Saludos
sdemingo
