[решено] Поиск каталогов

[TERMINAL]

Здравствуйте ! Погуглив так и не нашёл ответа или примера как возможно найти папку 5DEL во всех подкаталогах папки TEST, глубина папки TEST неизвестна, и удалить все найденные каталоги 5DEL.
Заранее спс.

[Creat0R]

Погуглив так и не нашёл ответа или примера »
поиск папки autoit (http://lmgtfy.com/?q=%D0%BF%D0%BE%D0%B8%D1%81%D0%BA+%D0%BF%D0%B0%D0%BF%D0%BA%D0%B8+autoit)

А также есть уже тема (http://forum.oszone.net/post-1325602-3.html) на форуме.

[TERMINAL]

Creat0R, Как бы нашёл скрипт
Global $Stack[50], $Stack1[50]

$Text = ""
FileFindNextFirst("C:\WINDOWS")
While 1
$tempname = FileFindNext('',2,2)
If $tempname = "" Then ExitLoop
$Text &= $tempname & @CRLF
WEnd

FileFindNextFirst("C:\WINDOWS")
While 1
$tempname = FileFindNext('',0,1)
If $tempname = "" Then ExitLoop
$Text &= $tempname & @CRLF
WEnd

MsgBox(4096, '', $Text)

Func FileFindNextFirst($FindCat)
$Stack[0] = 1
$Stack1[1] = $FindCat
$Stack[1] = FileFindFirstFile($FindCat & "\*.*")
Return $Stack[1]
EndFunc ;==>FileFindNextFirst

;$mode=0 - файлы
;$mode=1 - типы файлов
;$mode=2 - каталоги
;$Level= от 1 до 49
Func FileFindNext($type = 'log', $mode = 0, $Level=49)
While 1
$file = FileFindNextFile($Stack[$Stack[0]])
If @error Then
FileClose($Stack[$Stack[0]])
If $Stack[0] = 1 Then
Return ""
Else
$Stack[0] -= 1
ContinueLoop
EndIf
Else
If StringInStr(FileGetAttrib($Stack1[$Stack[0]] & "\" & $file), "D") > 0 Then
If $Stack[0] = $Level Then ContinueLoop
$Stack[0] += 1
$Stack1[$Stack[0]] = $Stack1[$Stack[0] - 1] & "\" & $file
$Stack[$Stack[0]] = FileFindFirstFile($Stack1[$Stack[0]] & "\*.*")
If $mode=2 Then
Return $Stack1[$Stack[0]]
Else
ContinueLoop
EndIf
Else
If $mode=2 Then ContinueLoop
If $mode=1 Then
If StringRight($Stack1[$Stack[0]] & "\" & $file, 4)<>'.'&$type Then
ContinueLoop
Else
Return $Stack1[$Stack[0]] & "\" & $file
EndIf
Else
Return $Stack1[$Stack[0]] & "\" & $file
EndIf
EndIf
EndIf
WEnd
EndFunc ;==>FileFindNext
можно переделать и будет поиск каталогов, но не могу добиться глубины поиска папок в каталоге.

[Creat0R]

нашёл скрипт »
Который нужно заключать в тег кода.

не могу добиться глубины поиска папок в каталоге »
А по ссылке перейти не судьба? :)

[TERMINAL]

Creat0R, Судьбу испытывал и переходил по ссылке, но там же опять поиск файлов, мне файлы не нужны-нужны сами папки
#include <Array.au3>

$aReturn = _FileSearch(@WindowsDir, "File\....$", 0)

_ArrayDisplay($aReturn)

Func _FileSearch($sPath, $sRegExp_FileMask, $iCaseSense=0)
Local $iPID, $sStdOutRead, $aRet, $sFindStr, $sCaseStr

If Not $iCaseSense Then $sCaseStr = ' /I'
$sFindStr = 'Dir "' & $sPath & '" /S /B | FindStr' & $sCaseStr & ' /R "' & $sRegExp_FileMask & '"'

$iPID = Run(@ComSpec & ' /C ' & $sFindStr, @SystemDir, @SW_HIDE, 2)

While 1
$sStdOutRead &= StdoutRead($iPID)
If @error <> 0 Then ExitLoop
WEnd

$aRet = StringSplit(StringStripCR(StringStripWS($sStdOutRead, 3)), @LF)
Return SetError(@error, 0, $aRet)
EndFunc
Реализовать поиск папок я так и не смог.

[Creat0R]

там же опять поиск файлов, мне файлы не нужны-нужны сами папки »
Там и поиск папок:

$aReturn = _FileSearch('C:\Test', "\\5DEL$", 0)
_ArrayDisplay (http://autoit-script.ru/autoit3_docs/libfunctions/_arraydisplay.htm)($aReturn)

Ещё вот тут (http://autoit-script.ru/index.php/topic,8266.0.html) есть более новая версия данного метода:

#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <Array.au3>

$aReturn = _FileDirList('C:\Test', "5DEL", 2)
_ArrayDisplay (http://autoit-script.ru/autoit3_docs/libfunctions/_arraydisplay.htm)($aReturn)

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _FileDirList($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $sOutBin, $sOut, $aOut, $aMasks, $sRead, $hDir, $sAttrib, $sFiles

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) StringInStr (http://autoit-script.ru/autoit3_docs/functions/StringInStr.htm)(FileGetAttrib (http://autoit-script.ru/autoit3_docs/functions/FileGetAttrib.htm)($sPath), "D") Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://autoit-script.ru/autoit3_docs/functions/SetError.htm)(1, 0, 0)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iSubDir = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sAttrib &= ' /S'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iSort = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sAttrib &= ' /O:N'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

Switch (http://www.autoitscript.com/autoit3/docs/keywords.htm#Switch) $iFlag
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 1
$sAttrib &= ' /A-D'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 2
$sAttrib &= ' /AD'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) Else (http://www.autoitscript.com/autoit3/docs/keywords.htm#Else)
$sAttrib &= ' /A'
EndSwitch (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSwitch)

$sOut = StringToBinary (http://autoit-script.ru/autoit3_docs/functions/StringToBinary.htm)('0' & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf), 2)
$sPath = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sPath, '\\+$', '')
$sFileMask = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sFileMask, '^;+|;+$', '')
$sFileMask = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sFileMask, ';{2,}', ';')
$aMasks = StringSplit (http://autoit-script.ru/autoit3_docs/functions/StringSplit.htm)($sFileMask, ';')

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aMasks[0]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) StringStripWS (http://autoit-script.ru/autoit3_docs/functions/StringStripWS.htm)($aMasks[$i], 8) = "" Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
ContinueLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ContinueLoop)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $i < $aMasks[0] Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sFiles &= ';'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)

$hDir = Run (http://autoit-script.ru/autoit3_docs/functions/Run.htm)(@ComSpec (http://autoit-script.ru/autoit3_docs/macros.htm#@comspec) & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir (http://autoit-script.ru/autoit3_docs/macros.htm#@systemdir), @SW_HIDE (http://autoit-script.ru/autoit3_docs/macros.htm#@sw_hide), 6)

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) ProcessExists (http://autoit-script.ru/autoit3_docs/functions/ProcessExists.htm)($hDir)
$sRead = StdoutRead (http://autoit-script.ru/autoit3_docs/functions/StdoutRead.htm)($hDir, False (http://www.autoitscript.com/autoit3/docs/keywords.htm#False), True (http://www.autoitscript.com/autoit3/docs/keywords.htm#True))

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://autoit-script.ru/autoit3_docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
ExitLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ExitLoop)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $sRead <> "" Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sOut &= $sRead
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Wend (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

$aOut = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)(BinaryToString (http://autoit-script.ru/autoit3_docs/functions/BinaryToString.htm)($sOut, 2), '[^\r\n]+', 3)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://autoit-script.ru/autoit3_docs/macros.htm#@error) Or (http://www.autoitscript.com/autoit3/docs/keywords.htm#Or) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aOut) < 2 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://autoit-script.ru/autoit3_docs/functions/SetError.htm)(2, 0, 0)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$aOut[0] = UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aOut)-1
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) $aOut
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc)

[-TRM-]

Creat0R, А как-то возможно на диске найти пустые каталоги или подкаталоги и удалить их?
И такой ещё вопросик- если известен путь С:\TEST02\Downloads\TMP\VIA\FORCED\5x86\new\viamraid64.cat
то как возможно получить из него путь С:\TEST02\Downloads\TMP\VIA\FORCED\5x86\new ? (т.е. без самого файла)

[madmasles]

А как-то возможно на диске найти пустые каталоги или подкаталоги и удалить их? »
Попробуйте примерно так.#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <Array.au3>
#include (http://autoit-script.ru/autoit3_docs/keywords.htm##include) <WinAPIEx.au3>

Global (http://www.autoitscript.com/autoit3/docs/keywords.htm#Global) $aRet, $iSuccess = 0, $iError = 0

$aRet = _FileDirList(@HomeDrive (http://autoit-script.ru/autoit3_docs/macros.htm#@homedrive), '*', 2)
_ArrayDisplay (http://autoit-script.ru/autoit3_docs/libfunctions/_arraydisplay.htm)($aRet)
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aRet[0]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) _WinAPI_PathIsDirectoryEmpty($aRet[$i]) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) DirRemove (http://autoit-script.ru/autoit3_docs/functions/DirRemove.htm)($aRet[$i]) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$iSuccess += 1
Else (http://www.autoitscript.com/autoit3/docs/keywords.htm#Else)
$iError += 1
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)

MsgBox (http://autoit-script.ru/autoit3_docs/functions/MsgBox.htm)(64, 'Info', StringFormat (http://autoit-script.ru/autoit3_docs/functions/StringFormat.htm)('All:\t%i\nDel:\t%i\nError:\t%i', $aRet[0], $iSuccess, $iError))

Func (http://www.autoitscript.com/autoit3/docs/keywords.htm#Func) _FileDirList($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
Local (http://www.autoitscript.com/autoit3/docs/keywords.htm#Local) $sOutBin, $sOut, $aOut, $aMasks, $sRead, $hDir, $sAttrib, $sFiles

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) Not (http://www.autoitscript.com/autoit3/docs/keywords.htm#Not) StringInStr (http://autoit-script.ru/autoit3_docs/functions/StringInStr.htm)(FileGetAttrib (http://autoit-script.ru/autoit3_docs/functions/FileGetAttrib.htm)($sPath), "D") Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://autoit-script.ru/autoit3_docs/functions/SetError.htm)(1, 0, 0)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iSubDir = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sAttrib &= ' /S'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $iSort = 1 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sAttrib &= ' /O:N'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

Switch (http://www.autoitscript.com/autoit3/docs/keywords.htm#Switch) $iFlag
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 1
$sAttrib &= ' /A-D'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) 2
$sAttrib &= ' /AD'
Case (http://www.autoitscript.com/autoit3/docs/keywords.htm#Case) Else (http://www.autoitscript.com/autoit3/docs/keywords.htm#Else)
$sAttrib &= ' /A'
EndSwitch (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndSwitch)

$sOut = StringToBinary (http://autoit-script.ru/autoit3_docs/functions/StringToBinary.htm)('0' & @CRLF (http://autoit-script.ru/autoit3_docs/macros.htm#@crlf), 2)
$sPath = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sPath, '\\+$', '')
$sFileMask = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sFileMask, '^;+|;+$', '')
$sFileMask = StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sFileMask, ';{2,}', ';')
$aMasks = StringSplit (http://autoit-script.ru/autoit3_docs/functions/StringSplit.htm)($sFileMask, ';')

For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aMasks[0]
If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) StringStripWS (http://autoit-script.ru/autoit3_docs/functions/StringStripWS.htm)($aMasks[$i], 8) = "" Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
ContinueLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ContinueLoop)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $i < $aMasks[0] Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sFiles &= ';'
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)

$hDir = Run (http://autoit-script.ru/autoit3_docs/functions/Run.htm)(@ComSpec (http://autoit-script.ru/autoit3_docs/macros.htm#@comspec) & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir (http://autoit-script.ru/autoit3_docs/macros.htm#@systemdir), @SW_HIDE (http://autoit-script.ru/autoit3_docs/macros.htm#@sw_hide), 6)

While (http://www.autoitscript.com/autoit3/docs/keywords.htm#While) ProcessExists (http://autoit-script.ru/autoit3_docs/functions/ProcessExists.htm)($hDir)
$sRead = StdoutRead (http://autoit-script.ru/autoit3_docs/functions/StdoutRead.htm)($hDir, False (http://www.autoitscript.com/autoit3/docs/keywords.htm#False), True (http://www.autoitscript.com/autoit3/docs/keywords.htm#True))

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://autoit-script.ru/autoit3_docs/macros.htm#@error) Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
ExitLoop (http://www.autoitscript.com/autoit3/docs/keywords.htm#ExitLoop)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) $sRead <> "" Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
$sOut &= $sRead
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)
WEnd (http://www.autoitscript.com/autoit3/docs/keywords.htm#WEnd)

$aOut = StringRegExp (http://autoit-script.ru/autoit3_docs/functions/StringRegExp.htm)(BinaryToString (http://autoit-script.ru/autoit3_docs/functions/BinaryToString.htm)($sOut, 2), '[^\r\n]+', 3)

If (http://www.autoitscript.com/autoit3/docs/keywords.htm#If) @error (http://autoit-script.ru/autoit3_docs/macros.htm#@error) Or (http://www.autoitscript.com/autoit3/docs/keywords.htm#Or) UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aOut) < 2 Then (http://www.autoitscript.com/autoit3/docs/keywords.htm#Then)
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) SetError (http://autoit-script.ru/autoit3_docs/functions/SetError.htm)(2, 0, 0)
EndIf (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf)

$aOut[0] = UBound (http://autoit-script.ru/autoit3_docs/functions/UBound.htm)($aOut) - 1
Return (http://www.autoitscript.com/autoit3/docs/keywords.htm#Return) $aOut
EndFunc (http://www.autoitscript.com/autoit3/docs/keywords.htm#EndFunc) ;==>_FileDirList
WinAPIEx.au3 (http://autoit-script.ru/index.php/topic,47.0.html)

[AZJIO]

-TRM-,
_FO_SearchEmptyFolders (http://azjio.narod2.ru/autoit3_docs/userfunctions/_FO_SearchEmptyFolders.htm)

(т.е. без самого файла) »
_FO_PathSplit (http://azjio.narod2.ru/autoit3_docs/userfunctions/_FO_PathSplit.htm) или регулярное выражение StringRegExpReplace($sPath, '^(.*)\\.*$', '\1')

[madmasles]

как возможно получить из него путь С:\TEST02\Downloads\TMP\VIA\FORCED\5x86\new ? (т.е. без самого файла) »Или так.$sPath = @ScriptFullPath (http://autoit-script.ru/autoit3_docs/macros.htm#@scriptfullpath)
ConsoleWrite (http://autoit-script.ru/autoit3_docs/functions/ConsoleWrite.htm)($sPath & @LF (http://autoit-script.ru/autoit3_docs/macros.htm#@lf))
ConsoleWrite (http://autoit-script.ru/autoit3_docs/functions/ConsoleWrite.htm)(StringRegExpReplace (http://autoit-script.ru/autoit3_docs/functions/StringRegExpReplace.htm)($sPath, '\\[^\\]*$', '') & @LF (http://autoit-script.ru/autoit3_docs/macros.htm#@lf))
Взято отсюда: Деление пути к файлу на части (http://autoit-script.ru/index.php/topic,316.msg2158.html#msg2158)

[-TRM-]

madmasles, В функции
Func _FileDirList($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
Local $sOutBin, $sOut, $aOut, $aMasks, $sRead, $hDir, $sAttrib, $sFiles

If Not StringInStr(FileGetAttrib($sPath), "D") Then
Return SetError(1, 0, 0)
EndIf

If $iSubDir = 1 Then
$sAttrib &= ' /S'
EndIf

If $iSort = 1 Then
$sAttrib &= ' /O:N'
EndIf

Switch $iFlag
Case 1
$sAttrib &= ' /A-D'
Case 2
$sAttrib &= ' /AD'
Case Else
$sAttrib &= ' /A'
EndSwitch

$sOut = StringToBinary('0' & @CRLF, 2)
$sPath = StringRegExpReplace($sPath, '\\+$', '')
$sFileMask = StringRegExpReplace($sFileMask, '^;+|;+$', '')
$sFileMask = StringRegExpReplace($sFileMask, ';{2,}', ';')
$aMasks = StringSplit($sFileMask, ';')

For $i = 1 To $aMasks[0]
If StringStripWS($aMasks[$i], 8) = "" Then
ContinueLoop
EndIf

$sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'

If $i < $aMasks[0] Then
$sFiles &= ';'
EndIf
Next

$hDir = Run(@ComSpec & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

While ProcessExists($hDir)
$sRead = StdoutRead($hDir, False, True)

If @error Then
ExitLoop
EndIf

If $sRead <> "" Then
$sOut &= $sRead
EndIf
WEnd

$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

If @error Or UBound($aOut) < 2 Then
Return SetError(2, 0, 0)
EndIf

$aOut[0] = UBound($aOut) - 1
Return $aOut
EndFunc ;==>_FileDirList
выделенное жирным, иногда вылетает ошибка
Error: Subscript used with non-Array variable. Как возможно предотвратить ошибку ? Return 0 ?

[AZJIO]

-TRM-, использовать проверенную функцию пару постов выше, которую я уже пол-года использую в синхронизаторе файлов (http://azjio.ucoz.ru/load/vsjo_dlja_autoit3/skompilirovannye_skripty/synchronization/4-1-0-58). После синхронизации имеет место появление пустых каталогов в виду удаления файлов, пришлось сделать поиск и удаление пустых каталогов. Пользуюсь вроде полгода, ни одного вылета.

[-TRM-]

AZJIO, Я так понял Вы предлагаете использовать функцию _FO_SearchEmptyFolders ?!
Дело в том, что в функции,madmasles, которую предложил madmasles, папки тоже находятся, но проблема ещё и в другом: Если путь С:\Papka1\Papka2\Papka3\Papka4\Papka5 и в ней получается пустая папка Papka5 и в папках С:\Papka1\Papka2\Papka3\Papka4 тоже ничего нет, то функция удаляет только Papka5, а не весь путь С:\Papka1\Papka2\Papka3\Papka4\Papka5, поэтому приходиться в цикл кидать и проверять один путь несколько раз. А у Вас как в этой функции дело обстоит?

[AZJIO]

-TRM-, а у нас два флага, удалять только совсем пустые каталоги и удалять каталог который может содержать сколько угодно пустых каталогов.
$iType [необязательный] (0,1) определяет, совсем пустые папки или разрешить каталог c пустыми папками, не добавляя вложенных
0 - папка может содержать пустые папки, не добавляя последние к списку (по умолчанию)
1 - папки пусты совсем
Тебе нужен 0.

[-TRM-]

AZJIO, А как правильно понять выражение &=
Func __FO_SearchEmptyFolders1($sPath)
Local $sFolderList = '', $sFile, $s = FileFindFirstFile($sPath & '*')
If $s = -1 Then Return $sPath & @CRLF
While 1
$sFile = FileFindNextFile($s)
If @error Then ExitLoop
If @extended Then
$sFolderList &= __FO_SearchEmptyFolders1($sPath & $sFile & '\')
EndIf
WEnd
FileClose($s)
Return $sFolderList
EndFunc ;==>__FO_SearchEmptyFolders1
Это не зацикливание функции (одна в одной) ? И как понять выражение $iFill += 1 ?

Где нужно вставить команду удаления папки ? Ведь мне выводится уже полный список путей пустых папок, а не по одному пути.

[kaster]

как правильно понять выражение &= »

$a &= 'something';
$a = $a & 'something'

как понять выражение $iFill += 1 ? »
$a += 1
$a = $a + 1

[-TRM-]

AZJIO, Примечания ..: Основная цель функции - последующее удаление пустых папок по найденному списку
Где нужно вставить команду удаления папки ? Ведь мне выводится уже полный список путей пустых папок, а не по одному пути-что-то разобраться не могу.

[AZJIO]

-TRM-, Вот пример:

#include <Array.au3>
#include <FileOperations.au3>

$timer = TimerInit() ; таймер для скорости поиска
$aFolderList = _FO_SearchEmptyFolders(@WindowsDir) ; путь для примера поиска, НЕ СЛЕДУЕТ УДАЛЯТЬ в нём пустые папки
_ArrayDisplay($aFolderList, 'Время : ' & Round(TimerDiff($timer) / 1000, 2) & ' сек', -1, 0, '', '|', '№|Пустые папки') ; просмотр найденных пустыых папок

If MsgBox(4 + 262144, 'Сообщения', 'Удалить пустые папки ?') = 6 Then ; если ответ равен 6, что значить "Да", тогда
$err = '' ; переменная для лога ошибок
For $i = 1 To $aFolderList[0] ; цикл удаления папок
If Not FileRecycle($aFolderList[$i]) Then ; если не удалось переместить в корзину, тогда
If Not (FileSetAttrib($aFolderList[$i], '-RST') And FileRecycle($aFolderList[$i])) Then ; если не удалось снять атрибуты и переместить в корзину, тогда
$err &= $aFolderList[$i] & @CRLF ; пишем лог
EndIf
EndIf
Next
If $err Then MsgBox(0, 'Лог ошибок', $err) ; если лог ошибок не пустой, то смотрим его
EndIf

; FileRecycle($aFolderList[$i]) ; удаление в корзину
; DirRemove($aFolderList[$i], 1) ; удаление навсегда

1. UDF пишется не для того чтобы в него что-то вписывали. Всё что надо в него вписать передаётся через параметры, иначе весь смысл UDF пропадает.
2. Я вот подумал, а что если у вложенной пустой папки атрибут только чтение? Тогда думаю папку невозможно удалить, если используется поиск с ключом 0, то есть надо получить именно папки которые пусты совсем, тогда есть гарантия что при неудалении атрибуты будут сняты, чтобы удалить.

Это не зацикливание функции (одна в одной) ? » это зацикливание и называется рекурсией. Глубина рекурсии не превышает 123 (количество максимально возможных вложений папок)

[-TRM-]

AZJIO, Выскакивет
For $i = 1 To $aFolderList[0]
For $i = 1 To $aFolderList^ ERROR
Какого ?, никак понять не могу, папка не содержит пустые папки и на ней затык
Вот эта папка (http://dfiles.ru/files/i9bzhh8tb)

[AZJIO]

-TRM-, У тебя папка не содержит пустых папок. После вызова _FO_SearchEmptyFolders забыл добавить строку:
If @error Then Exit
Ну разве догадаться не можешь, если нет массива то и цикл отработать не сможет.
Твой архив не качал, пока некогда.