Datei auf Netzwerkcomputer kopieren

[John Oppen]

Hallo,

wie kann ich mit Delphi3 Dateien auf einen im Netzwerk befindelichen PC kopieren, ohne Laufwerke gemappt zu gaben ?

mfg
John

[Andreas Kosch]

Hallo,

wenn die API-Funktion <b>ShFileOperation</b> verwendet wird, darf das Zielverzeichnis auch als <b>UNC</b>-Pfadname angegeben werden:
<pre>
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
szTo : array[0..128] of Char;
begin
// Puffervariablen initialisieren (Doppel-Null!)
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
FillChar(szTo, Sizeof(szTo), #0);
// Ausgangs- und Zielverzeichnis festlegen
StrPCopy(szFrom, 'C:\Temp\export1.gif');
StrPCopy(szTo, '\\SOLO9150\C\TEMP');
with aSHFOS do
begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @szFrom;
pTo :=@szTo;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle:= nil;
end;
ShFileOperation(aSHFOS);
end;
</pre&gt

[Florian Johann]

Hallo,<br>
ich weiß nicht, ob es in Delphi funktioniert, aber in VB ist es so, dass es genauso geht, als wenn du auf deine eigene Festplatte kopieren willst. Du musst als Dateipfad dann das angeben:
'\\Computername\freigegebener_Order\.....'
Probiere es mal aus