see folderlist() UDF

for each $folder in folderlist('e:\data')
shell 'cmd /c xcopy '+$sourcedir+' e:\data\'+$folder+'\data\netscape /d /e /c /y /h /r'
next
_________________________
How to ask questions the smart way <-----------> Before you ask