lorents Цитата: название файлов и расширения одинаковые, отличие только в размере файла
Вотжеж... похоже, что начать надо было с того, что одинаковые названия и расширения у файлов в разных папках...
Цитата: Как мне объединить эти файлы в единую таблицу, где каждый тестовой файл и есть столбец.
Цитата: Наоборот, строк 8185 (по каждому файлу), столбцов 206 (по каждой папке)
Ну, как это сделать на чистом cmd, на другом форуме в двух вариантах, а я могу предложить ещё на powershell - напрямую в Excel будут заполнятся ячейки с форматированием, правда не очень быстро (зато наглядно
), но тут уже ничего не поделать:
Код: $pth='c:\TEST'
$fp='b','u','d','l','r','f','ud','ul','ur','uf','du','dl','dr','df','lu','ld','lr','lf','ru','rd','rl','rf','fu','fd','fl','fr','udl','udr','udf','uld','ulr','ulf','urd','url','urf','ufd','ufl','ufr','dul','dur','duf','dlu','dlr','dlf','dru','drl','drf','dfu','dfl','dfr','lud','lur','luf','ldu','ldr','ldf','lru','lrd','lrf','lfu','lfd','lfr','rud','rul','ruf','rdu','rdl','rdf','rlu','rld','rlf','rfu','rfd','rfl','fud','ful','fur','fdu','fdl','fdr','flu','fld','flr','fru','frd','frl','udlr','udlf','udrl','udrf','udfl','udfr','uldr','uldf','ulrd','ulrf','ulfd','ulfr','urdl','urdf','urld','urlf','urfd','urfl','ufdl','ufdr','ufld','uflr','ufrd','ufrl','dulr','dulf','durl','durf','dufl','dufr','dlur','dluf','dlru','dlrf','dlfu','dlfr','drul','druf','drlu','drlf','drfu','drfl','dful','dfur','dflu','dflr','dfru','dfrl','ludr','ludf','lurd','lurf','lufd','lufr','ldur','lduf','ldru','ldrf','ldfu','ldfr','lrud','lruf','lrdu','lrdf','lrfu','lrfd','lfud','lfur','lfdu','lfdr','lfru','lfrd','rudl','rudf','ruld','rulf','rufd','rufl','rdul','rduf','rdlu','rdlf','rdfu','rdfl','rlud','rluf','rldu','rldf','rlfu','rlfd','rfud','rful','rfdu','rfdl','rflu','rfld','fudl','fudr','fuld','fulr','furd','furl','fdul','fdur','fdlu','fdlr','fdru','fdrl','flud','flur','fldu','fldr','flru','flrd','frud','frul','frdu','frdl','frlu','frld'
$Excel=New-Object -ComObject Excel.Application
$Excel.Visible=$true
$WorkBook=$Excel.Workbooks.Add()
$WSheet=$WorkBook.Worksheets.Item(1)
$WSheet.Name='Размеры'
$i=1
$n=2
foreach ($fd in $fp){
if(test-path $pth\$fd\*.*){
$WSheet.Cells.Item(1,$i)=$fd
foreach($file in (dir -recurse $pth\$fd\*.*)){
$WSheet.Cells.Item($n, $i) = $file.length
$n++
}
$i++
}
$n=2
}
$UsedRange = $WSheet.UsedRange
$UsedRange.EntireColumn.AutoFit() | Out-Null