Hej
Nu har jeg fået det til at virke, men jeg var ikke klar over at koden også
sletter mappen...
Det er ikke meningen - hvordan nøjes jeg med at slette filerne???
MVH Torsten
"Torsten T. Nielsen" <torsten@nielsen.mail.dk> skrev i en meddelelse
news:3c304c05$0$89116$edfadb0f@dspool01.news.tele.dk...
> Hej igen
>
> Jeg har fundet ud af at jeg skulle have FileCtrl med i USES...
>
> MVH Torsten
> "Torsten T. Nielsen" <torsten@nielsen.mail.dk> skrev i en meddelelse
> news:3c3048f4$0$89081$edfadb0f@dspool01.news.tele.dk...
> > Hej
> >
> > Jeg prøvede med ShellApi, og det virker nu, men den næste fejl er:
> > Undeclared Indentifier: Directoryexists
> >
> > Jeg bruger flg. kode:
> > function PFURemoveDir(Path:String):Boolean;
> > var FOS: TSHFileOpStruct;
> > var MemFrom :Array[0..max_path] of Char;
> > begin
> > Result := False;
> > While Copy(Path,Length(Path),1)='\' do
> System.Delete(Path,Length(Path),1);
> > Try
> > if not DirectoryExists(Path) then begin
> > Result := True;
> > exit;
> > end;
> > except end;
> > with FOS do begin
> > Wnd := Application.Handle;
> > wFunc := FO_DELETE;
> > FillChar(MemFrom, SizeOf(MemFrom), #0);
> > StrPCopy(MemFrom, Path+#0);
> > pFrom := MemFrom;
> > pTo := nil;
> > fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
> > end;
> > {$I-}
> > Result := SHFileOperation(FOS)=0;
> > {$I+}
> > SetLastError(0);
> > end;
> > "Steen Jensen" <steen.jensen@mail.dk> skrev i en meddelelse
> > news:3c301e76$0$94875$edfadb0f@dspool01.news.tele.dk...
> > >
> > > PL skrev i meddelelsen ...
> > > >Hej Torsten
> > > >
> > > >MEEEEN !!!!!! Pas på !!!!
> > > >Nedenstående funktion fjerner hele Mappen m/indhold OG DER INGEN
> > PAPIRKURV
> > > >BAGEFTER.
> > > >
> > >
> > > Man kan evt. sætte FOF_ALLOWUNDO flaget på også, så fFlags bliver
> > > FOF_NOCONFIRMATION or FOF_SILENT or FOF_ALLOWUNDO
> > > så kan man hente dem op fra papirkurven igen
> > >
> > > Med venlig hilsen
> > > Steen
> > >
> > >
> > >
> >
> >
>
>