CopyFile -> Netzwerk

[Stefan Walter 2]

Hallo, wie muss der Pfad lauten, wenn ich von PC001 eine Datei auf meinen<br> Rechner spielen will?<br><br>

Ich habe es so versucht: <br>
Copyfile('\\PC001\test.txt','C:\test01.txt',False) ;<br><br>

Aber über das Netzwerk funktioniert dass nicht...<br>
Vielen Dank im Vorraus, Stefan<br>

[Sebastian Wulf]

Hallo Stefan,

mit folgende procedure sollte es klappen:

procedure tform1.dateienkopieren (quelle:string;ziel:string);
var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
szTo : array[0..128] of Char;
begin;
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
FillChar(szTo, Sizeof(szTo), #0);
StrPCopy(szFrom, quelle);
StrPCopy(szTo, ziel);
with aSHFOS do
begin;
wFunc := FO_COPY;
pFrom := @szFrom;
pTo :=@szTo;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle:= nil;
end; //with
ShFileOperation(aSHFOS);
end;

"Shellapi" muss in die uses-Klausel aufgenommen werden.

Gruss
Sebastia

[Sebastian Wulf]

Sorry,

da sind mir wohl die Zeilensprünge abhanden gekomme