Копирование файла в сетевую папку

[artemavd]

Как скопировать какой-либо файл, например .xls, в папку, которая находится в локальной сети на другом компьютере?

[FaTaL]

CopyFile нормально для этого подходит. Например:

CopyFile (PChar('C:\123.xls'), PChar ('\\192.168.0.1\Test\123.xls'), false);

Но это только если у Вас есть права доступа на сетевой ресурс.

[artemavd]

Пасиба. Но копируется тока с одним и тем же именем. А мне нужно, чтобы копировался указанный файл. Я пробую делать так:
Открытие файла:

 if OpenDialog1.Execute then
   begin
    Label1.Caption:=OpenDialog1.FileName;
   end;

Копирование:

procedure TForm1.Button2Click(Sender: TObject);
begin
    CopyFile(PChar(ExtractFilePath(Label1.Caption)),PChar('D:\Documents and Settings\Тёмка\Рабочий стол\' + Label1.Caption),False);
end;

Но копирование не происходит. ???

[bill_gates]

Сообщение от artemavd

procedure TForm1.Button2Click(Sender: TObject);
begin
    CopyFile(PChar(ExtractFilePath(Label1.Caption)),PChar('D:\Documents and Settings\Тёмка\Рабочий стол\' + Label1.Caption),False);
end;

Но копирование не происходит. ???

Мне кажется правильнее будет так:

procedure TForm1.Button2Click(Sender: TObject);
begin
    CopyFile(PChar(Label1.Caption),PChar('D:\Documents and Settings\Тёмка\Рабочий стол\' + ExtractFileName(Label1.Caption)),False);
end;

Ведь Label1 равен имени файла.

[Вавел из ГМТУ]

PChar(ExtractFilePath(Label1.Captio n)) - это разве вернёт полный путь к файлу типа C:\Windows\1.txt ?

Если

Label1.Caption:=OpenDialog1.FileNam e;

то, что тогда будет тут

PChar('D:\Documents and Settings\Тёмка\Рабочий стол\' + Label1.Caption)

[uberchel]

А зачем слеши забываем ??

procedure TForm1.btn1Click(Sender: TObject);
var
 FileName: string;
begin
 if OpenDialog1.Execute then
   begin
    FileName:= OpenDialog1.FileName;
    CopyFileA(PChar(FileName),
    PChar('\\D:\Documents and Settings\Тёмка\Рабочий стол\'
    +ExtractFileName(FileName)),True);
   end
   else
   Exit;
end;

[artemavd]

Все, разобрался. Надо было сделать так:

procedure TForm1.Button2Click(Sender: TObject);
begin
    CopyFile(PChar(Label1.Caption),PChar('D:\Documents and Settings\Тёмка\Рабочий стол\' + ExtractFileName(Label1.Caption)),False);
end;

[bill_gates]

uberchel Разрешите поинтерисоваться, зачем в пути слеши? Он же вроде как не на расшареный ресурс в сети ссылается, а на локальный

[uberchel]

Сообщение от bill_gates

uberchel Разрешите поинтерисоваться, зачем в пути слеши? Он же вроде как не на расшареный ресурс в сети ссылается, а на локальный

Тема называется: Копирование файла в сетевую папку, так что и написал так!