Скрипт на удаление файла/ярлыка

CreatoR · 29 Янв 2011

renom [?]

Возникла проблема с удалением папок

А как связаны папки с данной темой?

В чем ошибка?

В том что не нужен там *:

Код:

DirRemove("C:\Test")

это удалит папку C:\Test и всё что в ней находится.

renom · 29 Янв 2011

CreatoR сказал(а):
renom [?]

Возникла проблема с удалением папок

Нажмите, чтобы раскрыть...

А как связаны папки с данной темой?

В чем ошибка?

Нажмите, чтобы раскрыть...

В том что не нужен там *:

Код:

DirRemove("C:\Test")

это удалит папку C:\Test и всё что в ней находится.

Ну тема же про удаление...решил новую не создавать,а в старой написать.
То что удалит папку test и всё то,что в ней содержится - это я знаю,но надо бы,чтобы папка test осталась.

kaster · 29 Янв 2011

renom

{OverQuoteWarn}

madmasles · 29 Янв 2011

renom
Если в папке C:\Test нужно удалить только папки, а файлы оставить, то, как написал Medic84:

Код:

#include <File.au3>

$sPath = 'C:\Test'
$iNoDel = 0
$aDirDel = _FileListToArray($sPath, '*', 2)
If Not @error Then
	For $i = 1 To $aDirDel[0]
		If Not DirRemove($sPath & '\' & $aDirDel[$i], 1) Then
			$iNoDel += 1
		EndIf
	Next
	If $iNoDel Then
		MsgBox(64, $sPath, 'Удалено папок: ' & $aDirDel[0] - $iNoDel & @LF & _
				'Не удалено папок: ' & $iNoDel)
	Else
		MsgBox(64, $sPath, 'Удалено папок: ' & $aDirDel[0])
	EndIf
Else
	Switch @error
		Case 1
			MsgBox(16, 'Error', 'Нет такой папки: ' & $sPath)
		Case 4
			MsgBox(16, 'Error', 'В папке ' & $sPath & ' нет подпапок')
	EndSwitch
EndIf

А если нужно просто очистить эту папку от всего содержимого, то:

Код:

$sPath = 'C:\Test'
DirRemove($sPath, 1)
DirCreate($sPath)

CreatoR · 29 Янв 2011

renom [?]

тема же про удаление

Удаление файла/ярлыка... это не значит что удаление чего либо. Получается с таким же успехом можно писать в этой теме про удаление пункта в ListView, удаление скрипта, удаление программ и т.д.?

надо бы,чтобы папка test осталась

Т.е нужно что-то типа DirEmpty?

Код:

_DirEmpty("C:\Test")

Func _DirEmpty($sDir)
	DirRemove($sDir, 1)
	DirCreate($sDir)
EndFunc

renom · 30 Янв 2011

Спасибо,то что нужно.

ol1o · 10 Фев 2011

Кстати говоря. в windows'е 2 рабочего стола, твой и all users.

`p r o x y · 11 Фев 2011

renom

Предупреждение За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

С уважением, Модератор форума.

{TopicSolvedInfo}

sov44 · 4 Янв 2012

Re: Придумываем названия тем для новичков

Нашел аналогичную (на мой взгляд) тему, но тема закрыта, вопрос разместить не могу.
Суть вопроса: Необходимо удалить ярлыки и папку с ярлыками из панели быстрого запуска Windows 7. Скрипт почему то не работает :(

Код:

FileDelete("%AppData%\Microsoft\Internet Explorer\Quick Launch\Shows Desktop.lnk")
FileDelete("%AppData%\Microsoft\Internet Explorer\Quick Launch\Window Switcher.lnk")
DirRemove("%AppData%\Microsoft\Internet Explorer\Quick Launch\User Pinned", 1)

Zaramot · 4 Янв 2012

Re: Придумываем названия тем для новичков

Попробуй так:

Код:

FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Shows Desktop.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\Window Switcher.lnk")
DirRemove(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned", 1)

CreatoR · 5 Янв 2012

Re: Придумываем названия тем для новичков

Zaramot и Александр
Вам предупреждение.
Данная тема не для решения вопросов, а для придумывания названия тем если не заметили.

От вас ожидалось придумать название, а не давать решения проблеме в данной теме.

sov44 · 5 Янв 2012

Re: Придумываем названия тем для новичков

CreatoR, похожую тему я нашел(см. мой первый пост). Переместите туда посты или подскажите название новой темы. :smile:

kaster · 5 Янв 2012

Re: Придумываем названия тем для новичков

Тему разблокировал, сообщения перенес туда
Zaramot, sov44, тема с названиями не для решения проблем. придерживайтесь регламента, пока устное предупреждение

sov44 · 5 Янв 2012

Zaramot, скрипт по физическому удалению файлов сработал, но
после перезагрузки ярлыки по умолчанию ( IE, Windows media, Проводник) из из папки User Pinned на панели быстрого запуска остались :(
Подскажите, как их открепить\удалить средствами AutoIt?

joiner · 5 Янв 2012

у меня работает вот это ( на семерке)

Код:

FileDelete('C:\Users\??????\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\skype.lnk')

sov44 · 5 Янв 2012

Александр, скрипт удаления "обычных" ярлыков подсказал Zaramot, после перезагрузки они удаляются, а вот удалить ссылки на ярлыки по умолчанию ( IE, Windows media, Проводник ) из папки User Pinned на панели быстрого запуска (папка User Pinned с ярлыками удалена) не получается. Возможно где то нужно править реестр.
Иными словами ярлыки из панели быстрого запуска ссылаются на папку User Pinned, а самой папки User Pinned в системе нет. :wacko:
хелп! :wall_brake:

joiner · 6 Янв 2012

нашел на oszone скрипт, который, как я понял, делает то, что нужно. к сожалению я плохо знаю ObjCreate...
как этот скрипт перевести на язык AutoIT?

Medic84 · 6 Янв 2012

Код:

$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace("C:\Users\Medic84\Desktop")
$objFolderItem = $objFolder.ParseName("The Bat! PRO.lnk")
$colVerbs = $objFolderItem.Verbs
For $objVerb in $colVerbs
    If StringReplace($objVerb.name, "&", "") = "Pin to Taskbar" Then $objVerb.DoIt
    If StringReplace($objVerb.name, "&", "") = "Unpin from Taskbar" Then $objVerb.DoIt
    If StringReplace($objVerb.name, "&", "") = "Закрепить программу в панели задач" Then $objVerb.DoIt
    If StringReplace($objVerb.name, "&", "") = "Изъять программу из панели задач" Then $objVerb.DoIt
    If StringReplace($objVerb.name, "&", "") = "Закрепить на панели задач" Then $objVerb.DoIt
    If StringReplace($objVerb.name, "&", "") = "Открепить от панели задач" Then $objVerb.DoIt
Next

Как прикрутить другие папки и имена, наверное додумаешься =)

Medic84 · 6 Янв 2012

Код:

$objShell = ObjCreate("Shell.Application")
$colVerbs = $objShell.Namespace("C:\Users\Medic84\Desktop").ParseName("The Bat! PRO.lnk").Verbs
For $objVerb in $colVerbs
	$str = StringReplace($objVerb.name, "&", "")
    If  $str = "Pin to Taskbar" or $str = "Unpin from Taskbar" or $str = "Закрепить программу в панели задач" or _
	$str = "Изъять программу из панели задач" or $str = "Закрепить на панели задач" or $str = "Открепить от панели задач" Then $objVerb.DoIt
Next

Уменьшенная версия :smile:

Для создания функции из данной штуки :whistle:

joiner · 6 Янв 2012

в принципе двойное действие в одном скрипте. он и добавляет ярлык в панель быстрого запуска , а если ярлык уже есть то удаляет

Код:

$objShell = ObjCreate("Shell.Application")
$colVerbs = $objShell.Namespace("C:\Program Files (x86)\Skype\Phone").ParseName("skype.exe").Verbs
For $objVerb in $colVerbs
    $str = StringReplace($objVerb.name, "&", "")
    If  $str = "Pin to Taskbar" or $str = "Unpin from Taskbar" or $str = "Закрепить программу в панели задач" or _
    $str = "Изъять программу из панели задач" or $str = "Закрепить на панели задач" or $str = "Открепить от панели задач" Then $objVerb.DoIt
Next

Автор темы	Похожие темы	Форум	Ответы	Дата
S	Нужен скрипт с окнами GUI	Покупка/продажа, поиск услуг	0	19 Ноя 2024
S	Всем привет! Вопрос. Где скачать скрипт едитор?	Общение	1	5 Окт 2024
N	Скрипт autoit вылетает через пол часа работы	Общие вопросы по AutoIt	8	1 Сен 2024
O	Самоудаление скрипта	Общие вопросы по AutoIt	3	13 Май 2021
P	авто удаление скрипта	Общие вопросы по AutoIt	3	1 Май 2013

Скрипт на удаление файла/ярлыка

Must AutoIt!

Новичок

Мой Аватар, он лучший самый

Модератор

Must AutoIt!

Новичок

Новичок

«Улыбайтесь, господа!»

Новичок

I ♥ AutoIt

Must AutoIt!

Новичок

Мой Аватар, он лучший самый

Новичок

Модератор

Новичок

Модератор

Омега

Омега

Модератор