Jad - 2012-07-26

Hallo,

der im zweiten Listing aufgefürte Code soll mir den Inhalt eines Verzeichnis auflisten. Das Verzeichnis liegt auf einen USB Stick und enthält Dateien. Die Struktur deDirEntry bleibt jedoch bei jedem Aufruf leer. Das Handle hDir wurde zuvor mit DirOpen(siehe Listing eins) eingelesen.

Wer kennt sich mit der Bibliothek aus und kann mir helfen die Dateien und Unterverzeichnisse auszulesen?

fildop_DirOpen.sDirName   :=   'D:\Verzeichnis1';
      
      fildop_DirOpen( xExecute   :=   TRUE);
      
      IF fildop_DirOpen.xDone = TRUE
      THEN
         hDir       :=   fildop_DirOpen.hDir;
         uiState      :=   15; 
      END_IF
      IF fildop_DirOpen.xError THEN 
         (* error handling*)
         eDirError   :=   fildop_DirOpen.eError;
      END_IF

:
(* get directory property list *)
      fildls_DirList.hDir      :=   hDir;
      
      fildls_DirList( xExecute :=   TRUE);
      
      IF fildls_DirList.xDone = TRUE
      THEN
         deNewDirectory.sEntry            :=fildls_DirList.deDirEntry.sEntry;
         deNewDirectory.szSize            :=fildls_DirList.deDirEntry.szSize;
         deNewDirectory.xDirectory         :=fildls_DirList.deDirEntry.xDirectory;
         deNewDirectory.xExclusive         :=fildls_DirList.deDirEntry.xExclusive;
         deNewDirectory.dtLastModification   :=fildls_DirList.deDirEntry.dtLastModification;
         fildls_DirList.xExecute            :=   FALSE;
      END_IF
      IF fildls_DirList.xError = TRUE
      THEN
         (* error handling*)
         eDirError   :=   fildls_DirList.eError;
         uiState   :=   20;
      END_IF