Dim SourcePath, DestinationPath
    
SourcePath = "D:\Work"
DestinationPath = "D:\Exchange\backup"

Directory(SourcePath, DestinationPath)
WScript.Quit

Sub Directory(SPath, DPath)
	
    Dim Dir As Boolean, f, fso, sf1, sf2, newName, CntFiles, CntFolders, ii, Msg
    Dim wshShell	' Scripting Shell Environment
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set wshShell = WScript.CreateObject("WScript.Shell")
    Set f = fso.GetFolder(SPath)
    CntFolders = f.SubFolders.Count
    ii =  0 
    For Each sf1 In f.SubFolders
        ii = ii +  1 
        newName = DPath + "\" + sf1.Name
        If fso.FolderExists(newName) = False Then
            fso.CreateFolder (newName)
        End If
        Dir = Directory(SPath + "\" + sf1.Name, DPath + "\" + sf1.Name)
        If ii >= CntFolders Then Exit For
    Next
    CntFiles = f.Files.Count
    ii =  0 
    For Each sf2 In f.Files
        ii = ii +  1 
        newName = DPath + "\" + sf2.Name
        On Error GoTo ErrorHandler
        If fso.FileExists(newName) = True Then
           If FileDateTime(newName) < FileDateTime(SPath + "\" + sf2.Name) Then
		wshShell.Run "xcopy " + SPath + "\" + sf2.Name + " " + DPath + "\" + sf2.Name + " /I/E/C/D/Y"
           End If
        Else
            wshShell.Run "xcopy " + SPath + "\" + sf2.Name + " " + DPath + "\" + sf2.Name + " /I/E/C/D/Y"
        End If
        If ii >= CntFiles Then Exit For
    Next
    Set fso = Nothing
    Set f = Nothing
    Set sf1 = Nothing
    Set sf2 = Nothing
    
    Exit Sub
    
ErrorHandler:
    Msg = "newName = " + newName + "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr( 13 ) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext

    Resume Next
End Sub

'Проверка количества свободного места на диске

set fso = WScript.CreateObject("Scripting.FileSystemObject")
set WSHShell = WScript.CreateObject("WScript.Shell")

'Диск G - содержит архив
free =  FormatNumber(fso.GetDrive("G").FreeSpace,  0 )
WSHShell.Popup("На диске G осталось " + free + " байт")