AW: Dateien kopieren
15.11.2009 10:34:47
Josef
Hallo Karsten,
auf die harte Tour würde ich es so machen. (der Zielordner wird einfach gelöscht und neu angelegt)
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim strSrcFolder As String, strTgtForlder As String
strSrcFolder = "E:\Temp\alt"
strTgtForlder = "E:\Temp\neu"
CopyFolder strSrcFolder, strTgtForlder, True
End Sub
Private Function CopyFolder(ByVal strSourceFolder As String, ByVal strTargetFolder As String, Optional deleteMissing As Boolean = False) As Long
Dim objFSO As Object
CopyFolder = -1
On Error GoTo ErrExit
Set objFSO = CreateObject("Scripting.FileSystemObject")
If deleteMissing Then objFSO.DeleteFolder (strTargetFolder), True
CopyFolder = objFSO.CopyFolder(strSourceFolder, strTargetFolder)
ErrExit:
Set objFSO = Nothing
End Function
Gruß Sepp