Что нового

Вывести наименование папок и файлов в Excel

joparezzz

Новичок
Сообщения
65
Репутация
0
Необходимо вывести наименование папок и файлов в Excel.
Написал скрипт, но не могу додуматься каким образов записывать название последующих папок и файлов в конец, без перезаписи предыдущих строк.
Сейчас у меня просто строки перезаписываются.
Код:
#include <FileOperations.au3>
#include <Array.au3>
#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ; Создаем новую рабочую книгу
$sPath = @ScriptDir
$sFolderName = _FO_FolderSearch($sPath, '*', True, 125, 0, 2);имена папок
$sFolderPath = _FO_FolderSearch($sPath, '*', True, 125, 1, 2);полные пути папок

For $i = 0 To Ubound($sFolderName) - 1
  $sPath = $sFolderPath[$i]
  $sFileName = _FO_FileSearch($sPath, '*.*', True, 0, 2, 2); имя файла
  _ExcelWriteCell($oExcel, $sFolderName[$i], 3 , 5)
  _ExcelWriteArray($oExcel, 4, 5, $sFileName, 1) ; Записываем содержимое массива в ячейки листа - в вертикальном направлении(вниз)
Next
 
Верх