Public Class Form1
    Private zähler As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        On Error GoTo err
        For Each file As String In My.Computer.FileSystem.GetFiles(Me.Text)
			zähler += 1
			Dim newname As String
			For x As Integer = file.Length To 1 Step -1
				If Mid(file, x, 1) = "\" Then
					newname = Mid(file, x - 1)
					Exit Sub
				End If
			Next
			newname = Mid(newname, 3)
			For x As Integer = 1 To newname.Length
				If Mid(newname, x, textbox1.TextLength) = textbox1.Text Then
					Mid(newname, x, textbox1.TextLength) = ""
				End If
			Next
			My.Computer.FileSystem.RenameFile(file, newname)
		Next
		Exit Sub
err:
		openfiledialog1.ShowDialog()
		Me.Text = openfiledialog1.SelectedPath
	End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
		openfiledialog1.ShowDialog()
		Me.Text = openfiledialog1.SelectedPath
    End Sub
End Class