[решено] Замена батника на AutoIt

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

Можно сделать такой скриптик : (для 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

gora · Конфигурация компьютера

gregaz, не работает.
Сейчас ищет папку X:\i386\filterpipelineprintproc.dll, а надо X:\YYYYYYYYYYYYYYYY\i386\filterpipelineprintproc.dll, где YYYYYYYYYYYYYYYY папка с неизвестным (произвольным) именем.

gregaz · Отправлено: **21:33, 22-10-2010** | #4

Поправил вроде.
Так будет еще проще и быстрее

Код:

#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
			$sFindedFile = FileFindFirstFile($aDrive[$i] & "\" & $aFolderList[$j] & "\" & $aChildFolderList[$k] & "\" & $sFileName)  
			FileClose($sFindedFile)
			If $sFindedFile =-1 Then ExitLoop
			$sFindedFolder=$aDrive[$i] & "\" & $aFolderList[$j] & "\" &   $aChildFolderList[$k]
			$iMsg=MsgBox(4,'Удаляемая папка',"Файл :" & $sFileName & @CRLF & "Найден в папке : " &   $aDrive[$i] _ 
				& "\" & $aFolderList[$j] & "\" & $aChildFolderList[$k] & @CRLF & "Удалить папку ?"    & @CRLF &  $aDrive[$i] & "\" & $aFolderList[$j])
			;If $iMsg=6 Then FileRecycle ( $aDrive[$i] & "\" & $aFolderList[$j] ); при удалении   расскомментировать
		Next
	Next
Next

gora · Конфигурация компьютера

Цитата gregaz:

Кстати удаление лучше вынести из цикла ? »

Первая часть работает. Правда из поста 2. Из поста 4 не работает: (Error: "ExitLoop/ContinueLoop" statements only valid from inside a For/Do/While loop.)
Аналогичная ошибка и во второй задаче.
Назначение цикла (For $jk=1) мне не очень ясно, т.к., нужно удалять только одну папку (второй такой быть не может) и она уже определена вне этого цикла ($aDrive[$i] & "\" & $aFolderList[$j])

gregaz · Отправлено: **23:26, 22-10-2010** | #6

Цитата gora:

Назначение цикла (For $jk=1) мне не очень ясно, т.к., нужно удалять только одну папку »

Действительно .Это осталось от 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
		$sFindedFile = FileFindFirstFile($aDrive[$i] & "\" & $aFolderList[$j] & "\" & $aChildFolderList[1] & "\" & $sFileName)  
		FileClose($sFindedFile)
		If $sFindedFile =-1 Then ExitLoop
		$sFindedFolder=$aDrive[$i] & "\" & $aFolderList[$j] & "\" &   $aChildFolderList[1]
		$iMsg=MsgBox(4,'Удаляемая папка',"Файл :" & $sFileName & @CRLF & "Найден в папке : " &   $aDrive[$i] _ 
			& "\" & $aFolderList[$j] & "\" & $aChildFolderList[1] & @CRLF & "Удалить папку ?"    & @CRLF &  $aDrive[$i] & "\" & $aFolderList[$j])
		If $iMsg=6 Then FileRecycle ( $aDrive[$i] & "\" & $aFolderList[$j] ); при удалении   расскомментировать
	Next
Next

Код:

 
$aFileList=_FileListToArray(@TempDir, "dd_, ASPNETSetup_, Microsoft*.*", 1)
If Not IsArray($aFileList) Then Exit
_ArrayDisplay($aFileList)
For $i=1 To UBound($aFileList)-1
	MsgBox(4,'Найденный файл',$aFileList[$i])
	;FileRecycle ( $aFileList[$i] );
Next

И такой вариант :

Код:

 
#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
		$sFindedFolder = FileFindFirstFile($aDrive[$i] & "\" & $aFolderList[$j] & "\" & $sFolderName) 
		FileClose($sFindedFolder)
                        If $sFindedFolder = -1 Then ContinueLoop
		$sFindedFile = FileFindFirstFile($aDrive[$i] & "\" & $aFolderList[$j] & "\" & $sFolderName& "\" & $sFileName)
		FileClose($sFindedFile)
		If $sFindedFile =-1 Then ContinueLoop
		$sFindedFolder=$aDrive[$i] & "\" & $aFolderList[$j]
		$iMsg=MsgBox(4,'Удаляемая папка',"Файл :" & $sFileName & @CRLF & "Найден в папке : " &   $aDrive[$i] _ 
			& "\" & $aFolderList[$j] & "\" & $sFolderName & @CRLF & "Удалить папку ?"    & @CRLF &  $aDrive[$i] & "\" & $aFolderList[$j])
		If $iMsg=6 Then FileRecycle ( $aDrive[$i] & "\" & $aFolderList[$j] ); при удалении   расскомментировать
	Next
Next

gora · Конфигурация компьютера

Цитата gregaz:

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

Не работает. Добавил #include <Array.au3> , но все равно не работает. Начинает работать только если оставлю только один вариант видов файлов, например:

Код:

$aFileList=_FileListToArray(@TempDir, "dd_*.*", 1)

С группой работать не хочет.

PS
Все оказалось проще:

Код:

FileDelete(@TempDir & "\dd_*.*")
FileDelete(@TempDir & "\Microsoft*.*")
FileDelete(@TempDir & "\ASPNETSetup_*.*")

gregaz · Отправлено: **05:43, 23-10-2010** | #8

Цитата gora:

С группой работать не хочет »

Да , похоже функция не поддерживает групповой шаблон

Цитата gora:

Все оказалось проще: »

Можно сделать как у тебя , а можно выбрать все файлы и отсеять через RegExp

Код:

...
$sFilePath=@TempDir & "\" & $aFileList[$i]
If StringRegExp($sFilePath,"(dd_| ASPNETSetup_| Microsoft)",0)=1 Then     ...

Кстати более простой вариант 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
		$sFolderPath=$aDrive[$i] & "\" & $aFolderList[$j]
		
		If FileExists($sFolderPath & "\" & $sFolderName& "\" & $sFileName) Then
			$iMsg=MsgBox(4,'',"Файл :" & $sFileName & @CRLF & "Найден в папке : " &  $sFolderPath & "\" & $sFolderName & @CRLF & "Удалить папку ?" & @CRLF &  $sFolderPath)
			If $iMsg=6 Then FileRecycle ( $sFolderPath )
		EndIf
	Next
Next