ubiquitour.com

¿Cómo renombrar múltiples archivos con una fecha utilizando Visual Basic?

Microsoft publica el lenguaje de programación de Visual Basic como parte de la suite de desarrollo Visual Studio. Entre sus muchos usos es permitir a los usuarios automatizar las tareas repetitivas, simples en sus ordenadores que de lo contrario tienen que realizar a mano. Una tarea tan común es cambiar el nombre múltiples archivos, que casi todos los usuarios de computadoras ha tenido que hacer al menos una vez, incitando a muchos a preguntarse si existe una mejor manera.

Instrucciones

1 Crear un nuevo proyecto en Visual Basic haciendo clic en "File"--> "Proyecto nuevo". El nombre "Renombrar por lotes."

2 Utilice su ratón para arrastrar dos componentes al formulario desde el cuadro de herramientas: un "botón" y un "OpenFileDialog." El "botón" se añadirá a la forma y el "OpenFileDialog" a una pequeña caja gris por debajo de su forma.

3 Haga clic en el "OpenFileDialog1." En la ventana Propiedades, cambie la propiedad "Multiselect" a "true". Esto le permite seleccionar más de un archivo.

4 Haga doble clic en el "Button1" en el formulario. Esto abre el código de ese botón dentro de una subrutina denominada "Button1_Click".

5 Pegar lo siguiente en la subrutina "Button1_Click":

OpenFileDialog1.ShowDialog()

Dim files As String() = OpenFileDialog1.FileNames()

Dim currentDate As String = My.Computer.Clock.LocalTime.Date.Year & My.Computer.Clock.LocalTime.Date.Month & My.Computer.Clock.LocalTime.Date.Day

For Each f As String In files

Dim filename As String = f.Substring(f.LastIndexOf("\") + 1, f.Length - f.LastIndexOf("\") - 1)

My.Computer.FileSystem.RenameFile(f, currentDate & "." & filename)

Next

Esto muestra al usuario un cuadro de diálogo de selección de archivo de Windows y le permite seleccionar los ficheros. A continuación, crea una cadena de fecha. Por último, pasa a través de cada archivo, uno por uno y añade la fecha al principio del nombre del archivo.