Помогите по копированию папки

← →
MarshalM © (2006-08-09 05:23) [0]

Вообщем так... Пишу программу на Delphi для копирования базы 1С по нажатию кнопки для "очень умных" бухгалтеров...

Сделал что-то вроде этого....

procedure TForm1.Button1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "\1d\2006*.*" );
StrPCopy( tobuf, "c:\1c_buh" );
with OpStruc do begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

Все работает нормально, но не через сеть... Почему то ругается, что не найден сетевой путь файла... Причем файл определяет так (Имя файла и все... без расширения)...Подскажите, если кто знает....

← →
ORMADA © (2006-08-09 07:37) [1]

>StrPCopy( frombuf, "\1d\2006*.*" );
а не так случаем должно быть ?
"\\1d\2006\*.*" );
вообще то сетевое имя всегда опрделяется названием машины или ип
к примеру
\\192.168.0.1\Dir1\file1.exe

← →
MarshalM © (2006-08-09 07:44) [2]

to ORMADA
Все так и есть...Все слэши расставлены верно....

← →
ORMADA © (2006-08-09 07:51) [3]

сделай тестовый примерчик.
открой в проводнике и скопируй полный сетевой путь оттуда для одного файла
затем копирни файл своей ф-ией
>Почему то ругается, что не найден сетевой путь файла
так то это виндовое сообщение говорящие о том что путь то НЕВЕРНЫЙ!

Спасибо тебе! Действительно проблема была в этом!

УРЯЯЯЯЯЯЯЯЯЯЯЯЯЯ!
Щасье есть!:)

Помогите по копированию папки Найти похожие ветки