Public Class frmCorrectJPG
 
    Dim fbd As New FolderBrowserDialog With
        {.Description = "Ordner zur Entfernung illegaler JPEG-Extensions", _
          .ShowNewFolderButton = False}
 
    Dim WithEvents btnFolder As New Button With
        {.Parent = Me, .Top = 10, .Left = 10, .Width = 300, .Text = _
          fbd.Description}
 
    Private Sub btnFolder_Click(sender As Object, e As EventArgs) Handles _
      btnFolder.Click
 
        If fbd.ShowDialog = DialogResult.Cancel Then Exit Sub
 
        Me.Text = "Umbennennung im Ordner wird erledigt"
        Me.Refresh()
 
        Dim cnt As Integer
        For Each file As String
            In IO.Directory.EnumerateFiles(fbd.SelectedPath, "*.*", _
              IO.SearchOption.TopDirectoryOnly)
 
            If file.ToLower.EndsWith(" ofww") Then
                Dim fn As String = IO.Path.GetFileName(file)
                fn = fn.Substring(0, fn.Length - 5)
                Try
                    My.Computer.FileSystem.RenameFile(file, fn)
                    cnt += 1
                Catch ex As Exception
                    'was auch immer
                End Try
            End If
        Next file
 
        MsgBox(cnt.ToString & " Files sind umbenannt worden")
        Me.Text = Me.Name
    End Sub
 
End Class