Option Explicit 

Dim objArgs

Set objArgs = WScript.Arguments

If objArgs.Count <> 2 Then

   WScript.Echo "Chybi parametry: 1. parametr je zdrojova slozka, 2. parametr cilova, pouzijte absolutni cesty!"

Else

   CleanFolder objArgs(1)

   FileCopy objArgs(0), objArgs(1) 

End If

Sub CleanFolder(path)

   Dim fso

   Set fso = CreateObject("Scripting.FileSystemObject")

   If Right(path, 1) = "\" Then

      ' Delete Folder nesnasi \ na konci

      path = Left(path, Len(path)-1)

   End If      

   If fso.FolderExists(path) Then

      fso.DeleteFolder(path)

   End If

   fso.CreateFolder(path)

End Sub

Sub FileCopy(fromFolder, toFolder)

    Dim winShell     

    Set winShell = CreateObject("Shell.Application")

    Dim folder     

    Set folder = winShell.NameSpace(toFolder)

    folder.CopyHere fromFolder, 0 

End Sub