dateizugriff verweigert bei beliebigen Ordner-Zugriff

[Flummi]

Hallo,
nein, leider ist die Datei-Extension uneinheitlich. Die Dateien kommen von einem anderen System, die Endungen sind nummerisch z.B. .034 oder .152
Eine Datei könnte z.B. den Namen 053045.123 tragen.

@ DeddyH
Das Programm selbst scheint nun ohne Fehler durchzulaufen, die Dateien jedoch werden nicht aus dem Verzeichnis abgearbeitet...
Hab ich noch irgendwo einen Fehler?

vielen Dank schon mal für den guten Tipp mit den "." und ".." :thumb:

[DeddyH]

Hallo,

Du musst die Prüfung innerhalb der Schleife für jeden gefundenen Eintrag vornehmen.

Delphi-Quellcode:

repeat
  If (SearchRec.Attr And faDirectory = 0) then 
  begin
    //Verarbeitung nur für Dateien
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

[Flummi]

Delphi-Quellcode:

procedure TfrmMain.DateiSenden; 
const return = chr(13); 
var Daten               : Empfaenger; 
    SearchRec           : TSearchRec; 
    dateiname           : string; 
    text                : string[18]; 
    ASatz               : string; 
    FromF, ToF          : file; 
    bfile               : textfile; 
    NumRead, NumWritten : Integer; 
    Buf: array[1..1] of Char; 
begin 
  ShowMessage(INIPfadname); 
  ShowMessage(PfadName); 
  // Dateien suchen 
  if FindFirst(PfadName+'*.*',faAnyFile,SearchRec)=0 then 
    begin 
      repeat 
        dateiname:=SearchRec.Name; 
        ShowMessage(PfadName+dateiname); 
        // Daten aus der DatenBank holen 
        Daten:=DepotSuchen(copy(dateiname,4,3));
        If (SearchRec.Attr And faDirectory = 0) then 
... 
...     DATEI-VERARBEITUNG.....
... 
...

Es scheint zu laufen. Ich warte noch ein wenig die ersten Ergebnisse ab, die kann ich erst immer ein wenig später prüfen, aber der Fehler ist weg, die Dateien werden abgearbeitet und zum Schluss gelöscht.
Ich melde mich noch mal... Bis jetzt sieht es supi aus! :bounce1:

[Flummi]

Hallo noch mal,

Test war erfolgreich, das Programm läuft wieder. Vielen Dank an alle, die mir hier weiter geholfen haben. :-D

Was ich jedoch weiterhin nicht verstehe ist, dass das Programm bis vor Kurzem noch ohne Probleme funktioniert hat - ohne die Prüfung:

Delphi-Quellcode:

If (SearchRec.Attr And faDirectory = 0) then

Dann, wirklich von einem Tag zum anderen, kam diese Fehlermeldung "Dateizugriff verweigert" und nichts ging mehr. :gruebel:
Naja, eventuell finde ich ja noch einen Hinweis darauf.

Noch mal vielen Dank für die Hilfe! :thumb: