I'm sorry to ask new Questions every Time ,but why I cant get the File-Information.

 Code:
$Directory = "TestDaten"
$FolderList = GetFolders($Directory, SubFolders)

FOR EACH $X in $FolderList

$FolderName = GetFolders($X, Name)
$FolderSize = GetFolders($X, Size)
"" +$FolderName "		" +$FolderSize " Byte" +Chr(10)

$SubFolderList = GetFolders($X, SubFolders)
FOR EACH $Y in $SubFolderList
$FolderName = GetFolders($Y, Name)
$FolderSize = GetFolders($Y, Size)
" -" +$FolderName "		" +$FolderSize " Byte" +Chr(10)
NEXT

$FileList = GetFolders($X, Files)
FOR EACH $Z in FileList
$FileName = GetFiles($Z, Name)
" --" +$FileName +Chr(10)
NEXT

NEXT

GET $X

;---Functions---;
FUNCTION GetFolders($Directory, $Property)
DIM $objFSO, $ObjectDirectory, $Ausgabe

$objFSO = CreateObject("Scripting.FileSystemObject")
If Not VarType($objFSO)=9 
Exit 1 
EndIf

$ObjectDirectory = $objFSO.GetFolder($Directory)
If Not VarType($ObjectDirectory)=9 
Exit 3 
EndIf

$Ausgabe = Execute("$$GetFolders = $$ObjectDirectory." + $Property)
If VarType($GetFolders)=0 
Exit 87 
EndIf

ENDFUNCTION

FUNCTION GetFiles($Directory, $Property)
DIM $objFSO, $ObjectDirectory, $Ausgabe

$objFSO = CreateObject("Scripting.FileSystemObject")
$ObjectDirectory = $objFSO.GetFile($Directory)

$Ausgabe = Execute("$$GetFiles = $$ObjectDirectory." + $Property)
ENDFUNCTION


Edited by Tchaymutukikaari (2015-05-12 10:52 AM)