'**************************************   Deklarationen
Dim lsarr_Fol() As DirectoryInfo
Dim lsRoor as String = "C:\Uploadverzeichnis"
 
lsarr_Fol = New System.IO.DirectoryInfo(lsRoot).GetDirectories()
 
        If lsarr_Fol.Length > 0 Then
 
            '**********************************   Windowsprozesse ausführen
            Application.DoEvents()
 
            '**********************************   Dateien verschieben
            If GoFileMove(lsFehler) = False Then
                      Messagebox.Show(Fehlermeldung)
            End If
 
        End If