Нужен скрипт который бы сканировал текущий каталог и выводил в результате все подпапки, вот что у меня вышло
Код:
;--------------------------------------Start Dir----------------------------------------
$searchdir = (@ScriptDir & "\")
$search = FileFindFirstFile($searchdir & "*")
$dirtot = 0
$i1 = 0
While 1
If $search = -1 Then ExitLoop
$file = FileFindNextFile($search)
If @error Then ExitLoop
$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirA" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)
;---------------------------------------------------------------------------------------
$is = $i1
$i1 = 0
For $i = 1 TO $is
$var = Eval( "dirA" & $i)
$searchdir = ( $var & "\")
$search = FileFindFirstFile($searchdir & "*")
While 1
If $search = -1 Then ExitLoop
$file = FileFindNextFile($search)
If @error Then ExitLoop
$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirB" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)
Next
;---------------------------------------------------------------------------------------
$is = $i1
$i1 = 0
For $i = 1 TO $is
$var = Eval( "dirB" & $i)
$searchdir = ( $var & "\")
$search = FileFindFirstFile($searchdir & "*")
While 1
If $search = -1 Then ExitLoop
$file = FileFindNextFile($search)
If @error Then ExitLoop
$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirC" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)
Next
;---------------------------------------------------------------------------------------
$is = $i1
$i1 = 0
For $i = 1 TO $is
$var = Eval( "dirC" & $i)
$searchdir = ( $var & "\")
$search = FileFindFirstFile($searchdir & "*")
While 1
If $search = -1 Then ExitLoop
$file = FileFindNextFile($search)
If @error Then ExitLoop
$fs1 = StringReplace($file, ".", "-")
if @extended = 0 Then
$i1 = $i1 + 1
Assign ( "dirD" & $i1 , $searchdir & $file , 2)
$dirtot = $dirtot + 1
Assign ( "dirtot" & $dirtot , $searchdir & $file , 2)
EndIf
WEnd
FileClose($search)
Next
$swar = ("")
$i1 = 0
For $i = 1 TO $dirtot
$var = Eval( "dirtot" & $i)
$swar = ($swar & $var & "; ")
Next
FileWrite("test.txt", $swar)
Как его можно оптимизировать чтобы он сканировал все папки независимо от уровня вложений?
