file copy via vbs

Hej,
Har nedstående script. Men det fejler hvis filen/mappen findes i forvejen eller der ikke er nogen filer til kopiering.
Kan man lave det anderledes, så det ignorer dette ?
vh thjoe

Set fso = CreateObject("Scripting.FileSystemObject")
dato = Replace(Date(),"-","")
fso.createfolder "c:\" & dato
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\*.gif" , "c:\" & dato