DirArray()

Die Funktion gibt ein Array mit Verzeichniseinträgen und weiteren Informationen zurück.

Hinweis

Falls Verzeichnisse mit angezeigt werden, so gibt es immer die Verzeichnisse mit den Namen ` . ` und ` .. ` diese stellen interne Windows-Verzeichnis-Links dar und müssen im Code separat behandelt werden.

Parameter	Beschreibung
aPath:C	Verzeichnis, aus dem die Einträge geholt werden sollen; default = aktuelles Verzeichnis
aFileName:C	Filterausdruck zur Vorauswahl von bestimmten Dateien; default = alle Dateien im Verzeichnis
aAttr:N	Der Parameter Attr gibt an, welche speziellen Dateien zusätzlich zu den normalen Dateien angezeigt werdenFilter für Dateien mit folgenden Attributen(auch kombinierbar!); default = faAnyFilefaReadOnly=Schreibgeschützte DateifaHidden=Verborgene DateifaSysFile=SystemdateifaVolumeID=Laufwerks-IDfaDirectory=VerzeichnisfaArchive=ArchivdateifaAnyFile=Beliebige Datei0 = nur normale Dateien

Rückgabewert

Array - Format: aDirArray[File n, 1] => Name DOS-Dateinamen sowie die Namenserweiterung aDirArray[File n, 2] => Time DOS Datums/Uhrzeitstempel aDirArray[File n, 3] => Size Größe in Byte aDirArray[File n, 4] => Attr siehe Parameter aAttr aDirArray[File n, 5] => --- interner Gebrauch aDirArray[File n, 6] => --- interner Gebrauch

Beispiel

| aDir, i, cType |

aDir := DirArray('C:\TEMP'),
for i := 1 to ALen(aDir) do
   if (aDir[i, 4] and faDirectory) = faDirectory then
      if aDir[i, 1] <> '.' and aDir[i, 1] <> '..' then
         WriteLn(Str(i) + ' - Das Verzeichnis heißt ''' + aDir[i, 1] + ''''),
      else
         WriteLn(Str(i) + ' - Windows-Verzeichnis-Link ''' + aDir[i, 1] + ''''),
      endif,
   else
      WriteLn(Str(i) + ' - Die Datei heißt ''' + aDir[i, 1] + ''' und hat ' + Str(aDir[i, 3]) + ' Bytes'),
   endif,
next,