Imports System.IO
Public Class Form1
    Private sFolder As String = "D:\JT-Test\VRML_neu"
    Private sPattern As String = "*.png"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Show()
        showImages()
    End Sub
 
    Sub showImages()
        imgList.Images.Clear()
        lvwFiles.Items.Clear()
 
        Dim n As Integer = 0
        For Each sFile In Directory.GetFiles(sFolder, sPattern)
            imgList.Images.Add(Path.GetFileName(sFile), Image.FromFile(sFile))
            lvwFiles.Items.Add(Path.GetFileName(sFile), n)
 
            n += 1
        Next
    End Sub
 
    Private Sub cmdMerge_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdMerge.Click
        lvwFiles.Items.Clear()
        imgList.Images.Clear()
        Dim sDateien As New Collections.ArrayList()
        For Each sFile As String In Directory.GetFiles(sFolder, sPattern)
            sDateien.Add(sFile)
        Next
        Dim iCount As Integer = sDateien.Count
        Dim n As Integer = 0
        While n < iCount
            Dim sDatei1 As String = sDateien(n)
            Dim sInhalt1 As String = File.ReadAllText(sDatei1)
            Dim m As Integer = 0
            While m < iCount
                Dim sDatei2 As String = sDateien(m)
                If sDatei1 <> sDatei2 Then
                    lstAusgabe.Items.Insert(0, Path.GetFileName(sDatei1) & _
                      "<->" & Path.GetFileName(sDatei2))
                    Application.DoEvents()
                    Dim sInhalt2 As String = File.ReadAllText(sDatei2)
                    If sInhalt1 = sInhalt2 Then
                        lstAusgabe.Items.Insert(0, "gleich")
                        Application.DoEvents()
                        File.Move(sDatei2, "D:\JT-Test\VRML_neu\Test\" & _
                          Path.GetFileName(sDatei2))
                        sDateien.Remove(sDatei2)
                        iCount = sDateien.Count
                        m -= 1
                    End If
                End If
                m += 1
            End While
            n += 1
        End While
        showImages()
    End Sub
End Class