Создал скрипт для выведения списка файлов и/или папок из определенного каталога.
Скрипт выдает список если в каталоге есть файлы и папки, а также файлы в подпапках.
А как сделать выведение списка папок и файлов если вложенность папок и файлов больше??
Скрипт выдает список если в каталоге есть файлы и папки, а также файлы в подпапках.
А как сделать выведение списка папок и файлов если вложенность папок и файлов больше??
Код:
#Include <File.au3>
$sPath = @ScriptDir
ConsoleWrite('Наименование папки/файла' & @TAB & '' & @TAB & 'Дата создания' & @TAB & 'Время создания' & @TAB & 'Дата последнего доступа' & @TAB & 'Время последнего доступа' & @CRLF)
$aFile = _FileListToArray($sPath, '*', 1); массив файлов
$aFolder = _FileListToArray($sPath, '*', 2); массив папок
ConsoleWrite('Каталог: ' & @TAB & '=ГИПЕРССЫЛКА("' & $sPath & '"; ' & '"Открыть каталог")' & @CRLF)
For $i = 1 To $aFile[0]
$sFileName = $aFile[$i] ; Имя Файла
$aFileInfo1 = FileGetTime($sPath & '\' & $sFileName, 1) ;Время создания (Created)
$dmy1 = '=ДАТА(' & $aFileInfo1[0] & ';' & $aFileInfo1[1] & ';' & $aFileInfo1[2] & ')' ;Дата
$hms1 = '=ВРЕМЯ(' & $aFileInfo1[3] & ";" & $aFileInfo1[4] & ";" & $aFileInfo1[5] & ')' ;Время
$aFileInfo2 = FileGetTime($sPath & '\' & $sFileName, 2) ;Время последнего доступа (Accessed)
$dmy2 = '=ДАТА(' & $aFileInfo2[0] & ';' & $aFileInfo2[1] & ';' & $aFileInfo2[2] & ')' ;Дата
$hms2 = '=ВРЕМЯ(' & $aFileInfo2[3] & ";" & $aFileInfo2[4] & ";" & $aFileInfo2[5] & ')' ;Время
ConsoleWrite($sFileName & @TAB)
ConsoleWrite('=ГИПЕРССЫЛКА("' & $sPath & '\' & $sFileName & '"; ' & '"Открыть файл")' & @TAB)
ConsoleWrite($dmy1 & @TAB & $hms1 & @TAB)
ConsoleWrite($dmy2 & @TAB & $hms2 & @CRLF)
Next
ConsoleWrite(@CRLF)
For $i = 1 To $aFolder[0]
$sPathFolder = $sPath & '\' & $aFolder[$i]
ConsoleWrite($aFolder[$i] & @TAB)
ConsoleWrite('=ГИПЕРССЫЛКА("' & $sPathFolder & '"; ' & '"Открыть папку")' & @CRLF)
$aFile = _FileListToArray($sPathFolder, '*', 1); массив файлов
For $j = 1 To $aFile[0]
$sFileName = $aFile[$j] ; Имя Файла
$aFileInfo1 = FileGetTime($sPathFolder & '\' & $sFileName, 1)
$dmy1 = '=ДАТА(' & $aFileInfo1[0] & ';' & $aFileInfo1[1] & ';' & $aFileInfo1[2] & ')' ;Дата
$hms1 = '=ВРЕМЯ(' & $aFileInfo1[3] & ";" & $aFileInfo1[4] & ";" & $aFileInfo1[5] & ')' ;Время
$aFileInfo2 = FileGetTime($sPathFolder & '\' & $sFileName, 2) ;Время последнего доступа (Accessed)
$dmy2 = '=ДАТА(' & $aFileInfo2[0] & ';' & $aFileInfo2[1] & ';' & $aFileInfo2[2] & ')' ;Дата
$hms2 = '=ВРЕМЯ(' & $aFileInfo2[3] & ";" & $aFileInfo2[4] & ";" & $aFileInfo2[5] & ')' ;Время
ConsoleWrite($sFileName & @TAB)
ConsoleWrite('=ГИПЕРССЫЛКА("' & $sPathFolder & '\' & $sFileName & '"; ' & '"Открыть файл")' & @TAB)
ConsoleWrite($dmy1 & @TAB & $hms1 & @TAB)
ConsoleWrite($dmy2 & @TAB & $hms2 & @CRLF)
Next
ConsoleWrite(@CRLF)
Next
