Ich habe einen Fehler bei FileSeek() gefunden, sobald man das Attribut festlegt, findet er nix mehr.
Er findet auch keine Datei, bei der das Archiv-Attribut z.B. per Explorer (oder Archivierungssoftware) zurückgesetzt wird.
Denn laut Xbase ist FA_NORMAL mit 0 definiert, in der Windows-API mit 128 ... hier mal ein paar Listings:
- Verzeichnisliste.png (23.47 KiB) 10329 mal betrachtet
Code: Alles auswählen
Xbase++ Xbase++ (R) Version 1.90 (1.90.355)
Start von TestDirRead 17.01.2020 14:47:06
ExePath(): D:\TEST\MaxDir\
Aktion: TesteFindFile()
Suchbegriff: D:\TEST\MaxDir\Daten\*.*
Verzeichnis ignorieren ! FA: 16 D .
Verzeichnis ignorieren ! FA: 16 D ..
Verzeichnis ignorieren ! FA: 16 D AnfangDir
Verzeichnis ignorieren ! FA: 16 D EndeDir
Verzeichnis ignorieren ! FA: 18 DH HiddenDir
Versteckte besser ignorieren ! FA: 34 AH HiddenFile.txt
****** hier fehlt diese Datei (aus TesteDIR()):
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:47:10 FA: 0 N
****** richtiger Inhalt für FA_NORMAL, mit Windows API, aus TesteRamsesFindFile():
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:47:11 FA: 128 N
******
Datei: 1 Täöü_0000002.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 2 Täöü_0000003.txt gefunden ? J Time: 14:47:08 FA: 1 R
Datei: 3 Täöü_0000004.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 4 Täöü_0000005.txt gefunden ? J Time: 14:47:08 FA: 33 AR
Datei: 5 Täöü_0000006.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 6 Täöü_0000007.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 7 Täöü_0000008.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 8 Täöü_0000009.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 9 Täöü_0000010.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 10 Täöü_0000011.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 1000 Täöü_0001001.txt gefunden ? J Time: 14:47:08 FA: 32 A
Datei: 2000 Täöü_0002001.txt gefunden ? J Time: 14:47:08 FA: 32 A
Ende des Durchlaufes, Dauer: 0,09 Sekunden, oder 0,00 Minuten, oder 0,00 Stunden
Aktion: TesteDIR() 17.01.2020 14:47:10
Temporäre Datei erstellen: D:\TEST\MaxDir\TMP53230.txt
Start: 17.01.2020 14:47:10
RunShell() mit DIR /B: 0
Ende: 17.01.2020 14:47:10 Länge der Datei: 45776
Dauer für DIR /B : 0,03 Sekunden
Verzeichnis ignorieren ! FA: 16 D AnfangDir
Verzeichnis ignorieren ! FA: 16 D EndeDir
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:47:10 FA: 0 N
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:47:10 FA: 1 R
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:47:10 FA: 33 AR
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:47:10 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:47:10 FA: 32 A
Ende des Durchlaufes, Dauer: 0,14 Sekunden, oder 0,00 Minuten, oder 0,00 Stunden
Aktion: TesteRamsesFindFile()
Suchbegriff: D:\TEST\MaxDir\Daten\*.*
Verzeichnis ignorieren ! FA: 16 D .
Verzeichnis ignorieren ! FA: 16 D ..
Verzeichnis ignorieren ! FA: 16 D AnfangDir
Verzeichnis ignorieren ! FA: 16 D EndeDir
Verzeichnis ignorieren ! FA: 18 DH HiddenDir
Versteckte besser ignorieren ! FA: 34 AH HiddenFile.txt
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:47:11 FA: 128 N
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:47:11 FA: 1 R
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:47:11 FA: 33 AR
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:47:11 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:47:11 FA: 32 A
Ende des Durchlaufes, Dauer: 0,39 Sekunden, oder 0,01 Minuten, oder 0,00 Stunden
Programmende
Unabhängig ob 1.90 oder 2.00, ich werde das mal nächste Woche an Alaska senden.
In allen Situationen muss man mit Verzeichnissen rechnen, die man aussortieren muss, auch versteckte Dateien etc.
Ohne diese "Probleme" erarbeiten alle Testroutinen das gleiche Ergebnis:
Code: Alles auswählen
Xbase++ Xbase++ (R) Version 1.90 (1.90.355)
Start von TestDirRead 17.01.2020 14:59:36
ExePath(): D:\TEST\MaxDir\
Aktion: MakeTestFiles() 17.01.2020 14:59:38
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:59:38 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:59:39 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:59:39 FA: 32 A
Datei: 3000 Täöü_0003000.txt gefunden ? J Time: 14:59:40 FA: 32 A
Datei: 4000 Täöü_0004000.txt gefunden ? J Time: 14:59:40 FA: 32 A
Datei: 5000 Täöü_0005000.txt gefunden ? J Time: 14:59:41 FA: 32 A
Datei: 6000 Täöü_0006000.txt gefunden ? J Time: 14:59:41 FA: 32 A
Datei: 7000 Täöü_0007000.txt gefunden ? J Time: 14:59:42 FA: 32 A
Datei: 8000 Täöü_0008000.txt gefunden ? J Time: 14:59:42 FA: 32 A
Datei: 9000 Täöü_0009000.txt gefunden ? J Time: 14:59:43 FA: 32 A
Datei: 10000 Täöü_0010000.txt gefunden ? J Time: 14:59:44 FA: 32 A
Datei: 11000 Täöü_0011000.txt gefunden ? J Time: 14:59:44 FA: 32 A
Datei: 12000 Täöü_0012000.txt gefunden ? J Time: 14:59:45 FA: 32 A
Datei: 13000 Täöü_0013000.txt gefunden ? J Time: 14:59:45 FA: 32 A
Datei: 14000 Täöü_0014000.txt gefunden ? J Time: 14:59:46 FA: 32 A
Abbruch
Ende des Durchlaufes, Dauer: 7,51 Sekunden, oder 0,13 Minuten, oder 0,00 Stunden
Aktion: TesteFindFile()
Suchbegriff: D:\TEST\MaxDir\Daten\*.*
Verzeichnis ignorieren ! FA: 16 D .
Verzeichnis ignorieren ! FA: 16 D ..
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 3000 Täöü_0003000.txt gefunden ? J Time: 14:59:49 FA: 32 A
Datei: 4000 Täöü_0004000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 5000 Täöü_0005000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 6000 Täöü_0006000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 7000 Täöü_0007000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 8000 Täöü_0008000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 9000 Täöü_0009000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 10000 Täöü_0010000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 11000 Täöü_0011000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 12000 Täöü_0012000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 13000 Täöü_0013000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Datei: 14000 Täöü_0014000.txt gefunden ? J Time: 14:59:50 FA: 32 A
Ende des Durchlaufes, Dauer: 0,55 Sekunden, oder 0,01 Minuten, oder 0,00 Stunden
Aktion: TesteDIR() 17.01.2020 14:59:51
Temporäre Datei erstellen: D:\TEST\MaxDir\TMP53992.txt
Start: 17.01.2020 14:59:51
RunShell() mit DIR /B: 0
Ende: 17.01.2020 14:59:51 Länge der Datei: 252360
Dauer für DIR /B : 0,11 Sekunden
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 3000 Täöü_0003000.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 4000 Täöü_0004000.txt gefunden ? J Time: 14:59:51 FA: 32 A
Datei: 5000 Täöü_0005000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 6000 Täöü_0006000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 7000 Täöü_0007000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 8000 Täöü_0008000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 9000 Täöü_0009000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 10000 Täöü_0010000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 11000 Täöü_0011000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 12000 Täöü_0012000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 13000 Täöü_0013000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Datei: 14000 Täöü_0014000.txt gefunden ? J Time: 14:59:52 FA: 32 A
Ende des Durchlaufes, Dauer: 0,72 Sekunden, oder 0,01 Minuten, oder 0,00 Stunden
Aktion: TesteRamsesFindFile()
Suchbegriff: D:\TEST\MaxDir\Daten\*.*
Verzeichnis ignorieren ! FA: 16 D .
Verzeichnis ignorieren ! FA: 16 D ..
Datei: 1 Täöü_0000001.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 2 Täöü_0000002.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 3 Täöü_0000003.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 4 Täöü_0000004.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 5 Täöü_0000005.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 6 Täöü_0000006.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 7 Täöü_0000007.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 8 Täöü_0000008.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 9 Täöü_0000009.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 10 Täöü_0000010.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 1000 Täöü_0001000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 2000 Täöü_0002000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 3000 Täöü_0003000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 4000 Täöü_0004000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 5000 Täöü_0005000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 6000 Täöü_0006000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 7000 Täöü_0007000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 8000 Täöü_0008000.txt gefunden ? J Time: 14:59:53 FA: 32 A
Datei: 9000 Täöü_0009000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Datei: 10000 Täöü_0010000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Datei: 11000 Täöü_0011000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Datei: 12000 Täöü_0012000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Datei: 13000 Täöü_0013000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Datei: 14000 Täöü_0014000.txt gefunden ? J Time: 14:59:54 FA: 32 A
Ende des Durchlaufes, Dauer: 1,09 Sekunden, oder 0,02 Minuten, oder 0,00 Stunden
Programmende
Ich hänge mal das neue PRG im ZIP an, dieses kann nun auch die Testdaten erzeugen, mit ESC kann man das abbrechen oder gleich den MAX Wert im Quellcode ändern.
Die Zeitergebnisse für 2.000.000 Dateien kann ich nächste Woche mal durchrechnen lassen.