Option Explicit
Dim ctr, intReturn, objShell, strCommand
Set objShell = CreateObject("WScript.Shell")
ctr = 0
strCommand = "copy c:\*.txt \\server\share\copyfolder"
Do
ctr = ctr + 1
intReturn = objShell.Run(strCommand, , True)
WScript.Sleep 30000
Loop Until ctr = 2880