
primero se usa el botón examinar para indicarle donde se encuentras los archivos a trabajar y también en un textbox pongo la cantidad de archivos que son y en una lista el nombre de los archivos.
Código
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim resultado As System.Windows.Forms.OpenFileDialog resultado = New System.Windows.Forms.OpenFileDialog() Dim cadena As String Dim a As Integer Dim Archivo As String resultado.ShowDialog() 'obtenemos la ruta de los archivos y la guardamos en un textbox TextBox2.Text = IO.Path.GetDirectoryName(resultado.FileName) 'le indicamos el path que queremos y lo garda en un textbox ContadorDeArchivos = My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories) 'nos devuelve la cantidad de archivosy los muestra en un textbox TextBox3.Text = CStr(ContadorDeArchivos.Count) 'obtenemos solo el nombre de los archivos For i = 0 To TextBox3.Text - 1 cadena = ContadorDeArchivos.Item(i) a = cadena.LastIndexOf("\") If a <> -1 Then Archivo = cadena.Substring(a + 1, cadena.Length - a - 1) End If ListBox1.Items.Add(Archivo) Next End Sub
Luego en otro textbox le indicas la frase que quieres eliminar del nombre de los archivos y le das click en el botón eliminar que seria a si:
Código
con esto eliminas la frase que pusiste en el textbox, pero la eliminas de la lista. despues se reemplaza el nombre de la siguiente manera con el botón Reemplazar nombres:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frase As String i = 0 frase = TextBox1.Text For i = 0 To TextBox3.Text - 1 ListBox1.Items(i) = ListBox1.Items(i).replace(TextBox1.Text, "") Next End Sub
Código
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click i = 0 For i = 0 To TextBox3.Text - 1 ' Poner el nuevo nombre My.Computer.FileSystem.RenameFile(ContadorDeArchivos.Item(i), ListBox1.Items(i)) Next MsgBox("Nombres cambiados correctamente") End Sub
y eso es todo...

