---

Er der nogen, som kan hjælpe mig med SHFileOperation(FOS),

Problemet er, at jeg godt kan kopiere vha. '*.*', men ikke hvis det kun er en enkelt fil f.eks.
'Install.exe' og 'Install.exe' eller skjult eller skrivebeskytter ej heller mappen, hvor den skal
kopieres til (iøvrigt den samme mappe i begge tilfælde).

Functionen ser således ud:

function PFUCopyFile(FromPath, ToPath, FileName:String; FilesOnly:Boolean):Boolean;
var FOS: TSHFileOpStruct;
begin
if Copy(FromPath,Length(FromPath),1)<>'\' then FromPath:=FromPath+'\';
if Copy(ToPath,Length(ToPath),1)<>'\' then ToPath:=ToPath+'\';
Result:=False;
with FOS do begin
wFunc := FO_COPY;
pFrom := PChar(FromPath+FileName+#0);
pTo := PChar(ToPath);
if FilesOnly then
fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_FILESONLY or FOF_MULTIDESTFILES or
FOF_NOCONFIRMMKDIR
else
fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_MULTIDESTFILES or FOF_NOCONFIRMMKDIR;
end;
Try
if SHFileOperation(FOS)=0 then Result:=True;
except end;
end;

På forhånd tak
Peter

---

---

Jeg kan ikke se hvad dit problem er!
Men, med den holdning du har skal du ikke forvente nogen gider svare dig...
Jeg plejer at springe over sådanne indlæg!

"P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
news:dw1f6.472$qv4.9356@news.get2net.dk...
> Er der virkelig ingen, som kan svare på indlægget ??????????
>
> Peter
>
Jeg har dog gjort en undtagelse:

function SHCopyFiles(source, destn: string): boolean;
var
SHFileOpStruct: TSHFileOpStruct;
begin
with SHFileOpStruct do
begin
Wnd := Screen.ActiveForm.Handle;
wFunc := FO_COPY;
pFrom := PChar(source + chr(0));
pTo := PChar(destn);
fFlags := FOF_FILESONLY or FOF_NOCONFIRMATION;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
if SHFileOperation(SHFileOpStruct) = 0 then
Result := True
else
Result := False;
end;

Ovenstående kopierer ALT + attributter.
-
SHCopyFiles('c:\gfx\gfx2\*.*', 'c:\windows\skrivebord\gfxgfx');

kopierer alt fra (ikke undermapper).

SHCopyFiles('c:\autoexec.bat', 'c:\windows\skrivebord');

Kopierer Autoexec.bat.

-Jan Pedersen
JPSoft DK

---

---

Velbekomme.

"P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
news:jXlf6.502$Bu5.23090@news.get2net.dk...
> Hej Jan Pedersen !!!
>
> Hvad mener du med "Men, med den holdning du har skal du ikke forvente
nogen gider svare dig..." ?
> Jeg mener ikke ha' generet nogen i mit indlæg !!!!
> Med hensyn til det du svarede på "Er der virkelig ingen, som kan svare på
indlægget ??????????", er
> for at få mit indlæg markeret igen i oversigten (det har ligget der siden
d. 31.01.) og samtidig
> opfordre evt. en kyndig til at se det igennem.
>
> Men jeg kan i dit svar "Jeg kan ikke se hvad dit problem er!", at du ikke
kan gi' nogen forklaring
> til mit indlæg ???
>
> Mvh
> Peter
>
>
>
>
>
>