Помогите доработать скрипт авто очищения рабочего стола

#include <Encoding.au3>
run('cmd.exe')
WinWaitActive('C:\Windows\system32\cmd.exe')
send('cd/')
send('{enter}')
send('cd Users\Vadim\Desktop')
send('{enter}')
send('dir > C:\Users\Vadim\Desktop\DirDesktop.txt')
send('{enter}')
send('exit')
send('{enter}')
run('notepad.exe')
$file = FileOpen("C:\Users\Vadim\Desktop\DirDesktop.txt", 0)
If $file = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
	EndIf
  $sumline = 0
 While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    $sumline = $sumline + 1
	wend 
$i = 0
While $i <> $sumline
       $line = FileReadLine($file, $i)
       If @error = -1 Then ExitLoop
	   $reselt = _Encoding_CyrillicTo1251($line)
       WinActive('Безымянный — Блокнот')
	   send($reselt)
	   send('{enter}')
	   $i = $i + 1
WEnd
FileClose($file)
winclose('Безымянный — Блокнот')
WinwaitActive('Блокнот')
send('{enter}')
WinwaitActive('Сохранить как')
send('{backspace}')
send('{backspace}')
send('{backspace}')
send('{backspace}')
send('{backspace}')
send('{backspace}')
send('Результат.txt')
send('{enter}')

$Dir = @DesktopDir & "\" ;путь к папке для поиска
$search = FileFindFirstFile($Dir & "*.lnk")

If $search = -1 Then 
    MsgBox(48, "Инфо", "Ярлыки не найдены")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop		
	ConsoleWrite($Dir & $file & @CRLF)    
WEnd

FileClose($search)

#include <file.au3>

$file = _FileListToArray(@DesktopDir)
For $i=1 To $file[0]
	FileDelete(@DesktopDir&'\'&$file[$i])
Next

#include <file.au3>

$file = _FileListToArray(@DesktopDir)
For $i=1 To $file[0]
   If StringRight ($file[$i],4)=".lnk" then FileDelete(@DesktopDir&'\'&$file[$i])
Next