Pues ya termine el programita me quedo a si:
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.
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:
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
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 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...
Autor
En línea
