Добрый день. :laugh:
Уже голову себе сломал. =))))
Необходимо убрать с рабочего стола все ярлыки кроме нужных, в отдельную папку.
Проблема!!! Скрипт работает только с системного диска.
Проблема!!! Незнаю как его остановить. (все копирует и ждет :whistle
Скрипт писал не с 0. За основу взял Help
Уже голову себе сломал. =))))
Необходимо убрать с рабочего стола все ярлыки кроме нужных, в отдельную папку.
Проблема!!! Скрипт работает только с системного диска.
Проблема!!! Незнаю как его остановить. (все копирует и ждет :whistle
Скрипт писал не с 0. За основу взял Help
Код:
; Shows the filenames of all files in the current directory
$search = FileFindFirstFile("*.*")
DirCreate(@DesktopDir & "\Ярлыки\")
; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
Global $Yar_Data = _
StringSplit( _
"Mozilla Firefox.lnk|Mozilla Firefox.lnk|Mozilla Firefox.lnk", "|")
While 1
$file = FileFindNextFile($search)
If $file <> $Yar_Data Then
FileCopy( @DesktopDir & $file, @DesktopDir & "\Ярлыки\" & $file, 1 )
EndIf
WEnd
; Close the search handle
FileClose($search)