Set objFSO = CreateObject("Scripting.FileSystemObject")

'Delete all Files in quick Launch
Set Fldr = objFSO.GetFolder("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\")
For Each File In Fldr.Files
 file.delete
Next


'Copy my files to quick Launch
Set Fldr = objFSO.GetFolder("C:\proj\Quick Launch\")
For Each File In Fldr.Files
 file.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\")
Next