Variablen
Appdata = wshshell.ExpandEnvironmentStrings("%APPDATA%") 
dim ziel(4)
 
ziel(0) = Appdata
ziel(1) = ziel(0) &"\Sun\"
ziel(2) = ziel(1) &"Java\"
ziel(3) = ziel(2) &"Deployment\"
ziel(4) = ziel(3) &"security\"                                
checkfile = ziel(4) &"copy.log"                            
 
'object.CopyFile ( source, destination[, overwrite] )
Dim i
For i = lbound(ziel) To ubound(ziel)
    If Not fs.FolderExists(ziel(i)) Then fs.CreateFolder(ziel(i)
Next
FileCheck

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell