<font color=green>' alle JPGs eines Ordners kopieren</font>
Dim sFile As String
Dim sPath As String
 
<font color=green>' Pfad zum Wechseldatenträger</font>
sPath = "h:\"
 
sFile = Dir$(sPath & "*.jpg")
While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    FileCopy sPath & sFile, "d:meine jpgs\" & sFile
  End If
  sFile = Dir$
Wend