Move all folders in desktop folder?

[dcer]

I got this problem that i allways throw all my downloaded files to the desktop, and then some day i just move it all to one folder.

What i would like is a program that moves all folders and files(moving the files aint a problem) to D:\Desktop\

What i've tried so far:

#Include <File.au3>

#Include <Array.au3>

FileMove(@DesktopDir & "\*.", "D:\Desktop files",9)

$FileList=_FileListToArray(@DesktopDir, "*", 2)

DirMove($FileList, 1)

[blademonkey]

Uses/Makes a Safelist. Maybe you wouldnt want to move all items. ya know?

#Include <File.au3>
#Include <Array.au3>
$sTarget = "c:\stuff"
$fSafe = "safelist.txt"
if FileExists($sTarget)<> 1 then dircreate($sTarget)
if FileExists($fSafe)<> 1 then FileWriteLine(@scriptdir & "\" & $fSafe,"")  
dim $akeepondesktop 
_FileReadToArray(@scriptdir & "\" &$fSafe,$akeepondesktop)

$FileList=_FileListToArray(@DesktopDir, "*")
for $x = 1 to ubound($FileList)-1
    if _ArraySearch($akeepondesktop,$FileList[$x])=-1 then DirMove(@DesktopDir & "\"& $FileList[$x],$sTarget ,1)
Next

[dcer]

Thansk... even though don't need the save file, so i've just added a FileDelete line for the savelist

[blademonkey]

nice. let me know ifyou add anymore features. turns out to be pretty useful.