junio 13, 2023
Ejemplo de código ne Visual Basic para modificar nombres de archivos contenidos en una carpeta.
Diseño del Formulario:
Objetos | Propiedades |
Form | Nombre: Form1 |
Button | Nombre: browseButton |
ListBox | Nombre: filesListBox |
FolderBrowserDialog | Nombre: FolderBrowserDialog1 |
Imports System.IO
Public Class Form1
Private Sub browseButton_Click(sender As Object, e As EventArgs) Handles browseButton.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Dim folder As New DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim nomArchivo As String
For Each file As FileInfo In folder.GetFiles()
nomArchivo = file.Name
nomArchivo = nomArchivo.Replace(".sql", "x.sql")
'MsgBox(nomArchivo)
My.Computer.FileSystem.RenameFile(FolderBrowserDialog1.SelectedPath & "\" & file.Name, nomArchivo)
'filesListBox.Items.Add(file.Name)
filesListBox.Items.Add(FolderBrowserDialog1.SelectedPath & "\" & nomArchivo)
Next
End If
End Sub
End Class