DirArray()

DirArray() – Verzeichnisinformationen

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

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 werden Filter für Dateien mit folgenden Attributen(auch kombinierbar!); default = faAnyFile faReadOnly=Schreibgeschützte Datei faHidden=Verborgene Datei faSysFile=Systemdatei faVolumeID=Laufwerks-ID faDirectory=Verzeichnis faArchive=Archivdatei faAnyFile=Beliebige Datei 0 = 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

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.

Beispiel

CODE

| 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,