Einzelnen Beitrag anzeigen

Benutzerbild von HeikoAdams
HeikoAdams

Registriert seit: 12. Jul 2004
Ort: Oberfranken
661 Beiträge
 
FreePascal / Lazarus
 
#1

AdvBuildFileList findet keine Systemdateien?

  Alt 26. Mai 2009, 09:11
Hallo,
ich versuche, den Inhalt des Ordners C:\Dokumente und Einstellungen\ich\Anwendungsdaten\Microsoft\Crypto mit Delphi zu sichern.
Um den Inhalt des Verzeichnisses zu bekommen, verwende ich
Delphi-Quellcode:
    if AdvBuildFileList(IncludeTrailingPathDelimiter(aDir) + '*.*',
      $00017FFF, aFileList, amSuperSetOf,
      [flFullNames, flRecursive]) then
    begin
      for nCount := aFileList.Count - 1 downto 0 do
        if Like(aFileList.Strings[nCount], '*\.')
          or Like(aFileList.Strings[nCount], '*\..') then
          aFileList.Delete(nCount);
    end;

    aFileList.Sort;
Jedoch liefert mir diese Routine nur den Unterordner RSA ohne die Dateien darin. Mache ich da was falsch oder schlägt da nen Bug in AdvBuildFileList zu?
Jeder kann ein Held werden und Leben retten!
Einfach beim NKR oder der DKMS als Stammzellenspender registrieren! Also: worauf wartest Du noch?
  Mit Zitat antworten Zitat