Wpis z mikrobloga

#include
$path="C:\"
$dirs=_FileListToArrayRec($path,"*",2+4+8,0,0,2)
ArrayDisplay($dirs)
dim $data
dirs[$dirs[0]][$dirs[0]]
$i=0
Do
$datadirs[$i][0]=$dirs[$i+1]
$i=$i+1
Until $i=$dirs[0]
$i=0
Do
$data
dirs[$i][1]=FileGetTime(StringLeft($datadirs[$i][0],StringLen($datadirs[$i][0])-1),0,1)
$i=$i+1
Until $i=$dirs[0]
ArrayDisplay($datadirs)
MsgBox(0,"",ArrayMax($datadirs))
  • 2