Reg Twk To Transfer Desktop Icons To Quicklaunch

[gelome]

hi people...i was wondering how do itransfer the desktop icons to the quicklaunch as i do not want any application desktop icons...i prefer to launch the programs via the quicklaunch. the only icon i want on the desktop is the my computer icon.

i have googled a lot on the above mentioned subject both on the www and msfn forums to no avail..

[gunsmokingman]

Here A Vbs Script That Will Move The ShortsCut From The Desktop

And Place Them In The QuickLauch. It Also Deletes Files In Temp

Dim Act : Set Act = WScript.CreateObject("WScript.Shell")

Dim UP : UP = Act.ExpandEnvironmentStrings("%UserProfile%")

Dim Shell : Set Shell = CreateObject("Shell.Application")

Dim ReFLDR: Set ReFLDR = CreateObject("Scripting.FileSystemObject")

On Error Resume Next

Dim objFolder : Set objFolder = Shell.NameSpace(UP & "\Application Data\Microsoft\Internet Explorer\Quick Launch\")

Wscript.sleep 300

if not objFolder is nothing Then : objFolder.MoveHere(UP & "\Desktop\*.lnk") : End If

Wscript.sleep 300

ReFLDR.deletefolder ( UP & "\Local Settings\Temp\*.tmp")

ReFLDR.deletefolder ( UP & "\Local Settings\Temp\*")

ReFLDR.deletefile ( UP & "\Local Settings\Temp\*.*")

Act.Popup "Completed" , 3, "Gsm Move ShortCuts", 0 + 64

Edited March 3, 2006 by gunsmokingman

[durex]

or if your more of a batch guy...

@echo off
MOVE /Y "%ALLUSERSPROFILE%\Desktop\*.*" "%USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch"

MOVE /Y "%USERPROFILE%\Desktop\*.*" "%USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch"

Just copy the following into notepad, save it as <whatever>.cmd and it will move any folders / files / shortcuts from your desktop to your Quick Launch

[batman75]

thank you durex

[gelome]

thanks guys...really appreciate that...will give both those sols a try.

[druiddk]

Thank you durex this helped me :-)