Das kopieren von einem Ordner zum anderen, inkl. Unterverzeichnisse
klappt mit diesem Code hervorragend! Allerdings werden alle DLL
Dateien im ersten Unterverzeichnis von C.\Adr nicht mit kopiert.
Woran kann das das liegen? Die Sicherung erfolgt auf einem
Netzlaufwerk, auf dem vollen Zugriff besteht. Das kuriose dabei, mit
einer gewöhnlichen Batch-Datei in Form von „xcopy…“ läuft die
Sicherung ohne Probleme ab.
Betriebsystem: Windows NT
WSH Version: 5.6 Build 6914
Option Explicit
’ Konstanten für COPYHERE-Methode
Const FOF_SILENT = &H4 'Keine Fortschrittsanzeige
Const FOF_NOCONFIRMATION = &H10 'Dateien überschreiben(„Ja zu
Allen“)
Const FOF_NOCONFIRMMKDIR = &H200 'Verzeichnisse ohne Nachfrage
erzeugen
Const FOF_NOERRORUI = &H400 'Keine Fehleranzeige
Dim oSHA, oZiel, oQuelle, sQuelle, sZiel, fofFlags
Set oSHA = CreateObject („Shell.Application“)
'Verzeichnisse
sQuelle = „C:\Adr“ sichern
sZiel = „L:\LBIV\ID\Scipio\Stielow“ 'Ordner muss existieren
'Shell-Objekte
Set oZiel = oSHA.NameSpace(sZiel)
Set oQuelle = oSHA.NameSpace(sQuelle).Items
'Kopieren
'BITADDITION:
fofFlags = FOF_NOCONFIRMATION OR FOF_NOCONFIRMMKDIR
oZiel.CopyHere oQuelle, fofFlags
Vielen Dank und Gruß
Klaus