G
gsb58
Hi!
This is something I have used in Delphi 6/7. It works fine. My
question: Anybodu that know how to translate to C#.NET (it copies files
over the network), or point me to article?
procedure TfrmCopyCat.btnCopyCatClick(Sender: TObject);
var
OpStruct : TSHFileOpStruct;
FromBuf, ToBuf : Array[0..255] of Char;
mon,s : string;
begin
mon := '\\SERVER\A\MONDAY';
s := 'D:\MONDAY\*.*';
Case rgFrom.ItemIndex of
0:begin
ga1.Progress := 0;
end;
end;
Case rgFrom.ItemIndex of
1:begin
FillChar(OpStruct,SizeOf(OpStruct),0);
FillChar(FromBuf,SizeOf(FromBuf),0);
FillChar(ToBuf,SizeOf(ToBuf),0);
StrPCopy(FromBuf,s);
StrPCopy(ToBuf,mon);
with OpStruct do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @FromBuf;
pTo := @ToBuf;
fFlags := FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
ShFileOperation(OpStruct);
end;
end;
end;
Me.Name
This is something I have used in Delphi 6/7. It works fine. My
question: Anybodu that know how to translate to C#.NET (it copies files
over the network), or point me to article?
procedure TfrmCopyCat.btnCopyCatClick(Sender: TObject);
var
OpStruct : TSHFileOpStruct;
FromBuf, ToBuf : Array[0..255] of Char;
mon,s : string;
begin
mon := '\\SERVER\A\MONDAY';
s := 'D:\MONDAY\*.*';
Case rgFrom.ItemIndex of
0:begin
ga1.Progress := 0;
end;
end;
Case rgFrom.ItemIndex of
1:begin
FillChar(OpStruct,SizeOf(OpStruct),0);
FillChar(FromBuf,SizeOf(FromBuf),0);
FillChar(ToBuf,SizeOf(ToBuf),0);
StrPCopy(FromBuf,s);
StrPCopy(ToBuf,mon);
with OpStruct do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @FromBuf;
pTo := @ToBuf;
fFlags := FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
ShFileOperation(OpStruct);
end;
end;
end;
Me.Name