Hallo,
danke für den Tipp, eventuell bin ich einen kleinen Schritt weiter. Ich habe den Anfang der Prozedur wie folgt verändert:
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));
...
...
...
...
Der INIPfadname und der Pfadname werden richtig ausgegeben. In meinen Test habe ich die Werte:
INIPfadname = D:\Test\
Pfadname = D:\Test\Dateien\
...erhalten. Die Backslashes werden also auch richtig gesetzt.
Die dritte Message macht mich allerdings stutzig
:
"D:\Test\Dateien\."
Die Dateinamen bestehen hauptsächlich aus Zahlen, es wird mir aber ein "." (Punkt) zurückgegeben. Das Programm hat jedoch Admin-Rechte bzw. wir unter dem Admin-Account ausgeführt.
Hat jemand eine Idee?
Vielen Dank schonmal...