Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите по копированию папки [D6, WinXP]

MarshalM © (2006-08-09 05:23:00)
Вообщем так... Пишу программу на 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 08:21:00) [1]
УРЯЯЯЯЯЯЯЯЯЯЯЯЯЯ!
Щасье есть!:)

MarshalM (2006-08-09 08:02:00) [2]
Спасибо тебе! Действительно проблема была в этом!

ORMADA (2006-08-09 07:51:00) [3]
сделай тестовый примерчик.
открой в проводнике и скопируй полный сетевой путь оттуда для одного файла
затем копирни файл своей ф-ией
>Почему то ругается, что не найден сетевой путь файла
так то это виндовое сообщение говорящие о том что путь то НЕВЕРНЫЙ!

MarshalM (2006-08-09 07:44:00) [4]
to ORMADA
Все так и есть...Все слэши расставлены верно....

ORMADA (2006-08-09 07:37:00) [5]
>StrPCopy( frombuf, '\1d\2006*.*' );
а не так случаем должно быть ?
' \\1d\2006 \*.*' );
вообще то сетевое имя всегда опрделяется названием машины или ип
к примеру
\\192.168.0.1\Dir1\file1.exe

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »