Hi,
noch ein Problem.
Wie kann ich mehrere Dateien von einem Verzeichnis ins andere Kopieren? Habe mal was versucht, aber dies geht nicht.
Hier mein Versuch:
Sub DateiKopieren()
Dim sQuelle$, sZiel$, sDatei$
sQuelle = "c:\"
sZiel = "c:\test\"
sDatei = "*.txt"
If Dir(sZiel & sDatei) = "" Then
FileCopy sQuelle & sDatei, sZiel & sDatei
MsgBox "Datei wurde kopiert!"
Else
MsgBox "Datei war schon vorhanden!"
End If
End Sub