Translation?

[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

[Ignacio Machin \( .NET/ C# MVP \)]

Hi,

The code is straighforward, I'm sure if you know (or find) the meaning and
the parameters of those delphi function you can write it in C# pretty
easily, the String class provide all this functionality

cheers,

--
Ignacio Machin,
ignacio.machin AT dot.state.fl.us
Florida Department Of Transportation

<gs***@hotmail.com> wrote in message
news:11*********************@g47g2000cwa.googlegro ups.com...

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