Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для gregaz

Пользователь


Сообщения: 88
Благодарности: 19

Профиль | Отправить PM | Цитировать


Можно сделать такой скриптик : (для 1- й задачи)

Код: Выделить весь код
#Include<File.au3>

$sFolderName="i386"
$sFileName="filterpipelineprintproc.dll"
$aDrive= DriveGetDrive( "all" )

For $i=1 To UBound($aDrive)-1
	$aFolderList=_FileListToArray($aDrive[$i], "*", 2)
	If Not IsArray($aFolderList) Then ContinueLoop
	For $j=1 To UBound($aFolderList)-1
		$aChildFolderList=_FileListToArray($aDrive[$i] & "\" & $aFolderList[$j],$sFolderName, 2); !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		If Not IsArray($aChildFolderList) Then ContinueLoop
		For $k=1 To UBound($aChildFolderList)-1
			$aFileList=_FileListToArray($aDrive[$i] & "\" & $aFolderList[$j] & "\" & $aChildFolderList[$k] , $sFileName, 1)
			If Not IsArray($aChildFolderList) Then ContinueLoop
			For $jk=1 To UBound($aFileList)-1
				$sFindedFolder=$aDrive[$i] & "\" & $aFolderList[$j] & "\" &   $aChildFolderList[$k]
				$sFindedFile=$aFileList[$jk]
				$iMsg=MsgBox(4,'Удаляемая папка',"Файл :" & $sFileName & @CRLF & "Найден в папке : " &   $sFindedFolder & @CRLF & "Удалить папку ?")
				;If $iMsg=6 Then FileRecycle ( $sFindedFolder ); даление
			Next
		Next
	Next
Next
Sorry, надо внутрь вставить еще 1 цикл для удаления (поправил)
Туда же потом вставить и 2-задачу (если подходит скрипт)

Код: Выделить весь код
$aFileList=_FileListToArray(@TempDir, "dd_, ASPNETSetup_, Microsoft*.*", 1)
If Not IsArray($aFileList) Then ContinueLoop
_ArrayDisplay($aFileList)
For $i=1 To UBound($aFileList)-1
	MsgBox(4,'Найденный файл',$aFileList[$i])
	;FileRecycle ( $aFileList[$i] );
Next

Последний раз редактировалось gregaz, 22-10-2010 в 21:40.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:09, 22-10-2010 | #2