Dim sFiles() As String
Dim sPath As String
Dim nCount As Long
Dim nBytes As Currency
Dim i As Long
Dim sDestPath As String
Dim sFolder As String
 
' alle ZIP-Files im angegebenen Ordner inkl. Unterordner ermitteln
sPath = "Dein_Ordner"
VBEx_AppendSlash sPath
nCount = VBEx_FileCount(sPath, 1, "*.zip", nBytes)
If nCount >= 0 Then 
  ReDim sFiles(nCount)
  nCount = VBEx_FileList(sPath, 1, "*.zip", sFiles(), nBytes)
 
  ' Zielverzeichnis
  sDestPath = "d:\myfolder"
  VBEx_AppendSlash sDestPath
 
  ' Dateien verschieben
  For i = 0 To nCount
    ' ggf. Unterordner anlegen
    sFolder = VBEx_GetPathFromFile(sDestPath & sFiles(i))
    If Not VBEx_FolderExists(sFolder) Then
      VBEX_MakeDir sFolder
    End If
 
    ' Datei Verschieben
    FileCopy sPath & sFiles(i), sDestPath & sFiles(i)
    Kill sPath & sFiles(i)
  Next i
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de