Forum Navigation
Por favor, Accede o Regístrate para crear mensajes y debates.
En este ejemplo vamos a renombrar imagenes dentro una carpeta específica
#1 · 16 de noviembre de 2024, 13:50
Imports System.IO
Public Class MainForm
Dim Contador As Integer
Private Sub btnRenombrar_Click(sender As Object, e As EventArgs) Handles btnRenombrar.Click
If txtNombre.Text = "" Then
MsgBox("Escriba un nombre primero")
Else
For Each LogFile In Directory.GetFiles(Application.StartupPath & "")
If File.Exists(LogFile) Then
If Path.GetExtension(LogFile).ToLower() = ".jpg" Then
If LogFile = (txtNombre.Text & "-" & Contador & ".jpg") Then
Else
File.Move(LogFile, txtNombre.Text & "-" & Contador & ".jpg")
Contador = Contador + 1
End If
End If
End If
Next
End If
End Sub
End Class