vbscript overwrite error 70

[The_ALL]

Ciao,
quando eseguo questo file la prima volta, mi copia i file dalla sorgente alla destinazione correttamente, ma quando lo eseguo la seconda volta mi da errore 70 autorizzazione negata

dovrebbe semplicemente sovrascrivere i file ma non lo fa, perche?
ecco il codice

Set fso = CreateObject("scripting.FileSystemObject")
set vm = fso.Getfolder("\\server\test")
For Each subdir in vm.SubFolders
set vm = fso.Getfolder("\\server\test\" & subdir.name)
	For Each file in vm.files
	fso.CopyFile "\\server\test\" & subdir.name & "\" & file.name, "d:\test\" & subdir.name & "\" & file.name,TRUE
	next
next

wscript.echo "Fine Copia"

[The_ALL]

Ho capito il motivo:questione di attributi dei file.
L'istruzione copyfile() copia i file esattamente come sono,quindi anche se sono in sola lettura o nascosti.
Ho aggiunto 4 righe al codice per modificare l'attributo dei file copiati in modo che possano essere sovrascritti.

Rimetto il codice completo se a qualcuno puo' interessare

Set fso = CreateObject("scripting.FileSystemObject")
set vm = fso.Getfolder("\\server\test")
For Each subdir in vm.SubFolders
set vm = fso.Getfolder("\\server\test\" & subdir.name)
	For Each file in vm.files
	fso.CopyFile "\\server\test\" & subdir.name & "\" & file.name, "d:\test\" & subdir.name & "\" & file.name,TRUE
	set vmf = fso.getfile("d:\test\" & subdir.name & "\" & file.name)
	   if vmf.Attributes AND 1 then
	   vmf.Attributes = vmf.Attributes - 1
	   end if 
	next
next
wscript.echo "Fine Copia"