---

Hej

Jeg søger en stump kode, som kan slette ALLE filer i en bestemt mappe!

Jeg kan bare ikke få det til at virke!

Nogen der vil hjælpe mig?!?!

MVH Torsten

---

Hej Torsten

Here you are Sir:
Tilpas den efter dine egne ønsker 'SHFileOperation' kan både hækle og
brodere, når det gælder Remove, Copy, Move etc.

MEEEEN !!!!!! Pas på !!!!
Nedenstående funktion fjerner hele Mappen m/indhold OG DER INGEN PAPIRKURV
BAGEFTER.

En lille historie.
Jeg har engang defineret Path forkert og slettede en mappe, hvor alle mine
Sourcefiles lå (et års arbejde). Heldigvis havde jeg en 2 dage gammel kopi
liggende på en anden PCer.
Derfor fløøøj jeg ud og købte mig en CD-ROM brænder samme aften - puuh-ha
!!!

PL

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;

---

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

---

Hej

Jeg ved ikke hvad der er galt, men Delphi skriver:
Undeclared identifier: 'TSHFileOpStruct'

Er der noget jeg har glemt i USES???

MVH Torsten
"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
>
>
>

---

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
>
>
>

---

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
> >
> >
> >
>
>

---

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
> > >
> > >
> > >
> >
> >
>
>

---

Hej

Torsten T. Nielsen skrev i meddelelsen
<3c321fe3$0$89063$edfadb0f@dspool01.news.tele.dk>...
>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???
>

PFURemoveDir('C:\Slettes\*.*');

Med venlig hilsen
Steen

---

Hvad???

Det virker ikke...

Er der nogen der kan sende lidt kode???

MVH Torsten
"Steen Jensen" <steen.jensen@mail.dk> skrev i en meddelelse
news:3c32a64a$0$89065$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Torsten T. Nielsen skrev i meddelelsen
> <3c321fe3$0$89063$edfadb0f@dspool01.news.tele.dk>...
> >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???
> >
>
> PFURemoveDir('C:\Slettes\*.*');
>
> Med venlig hilsen
> Steen
>
>
>

---

Hej

Torsten T. Nielsen skrev i meddelelsen
<3c449d99$0$62894$edfadb0f@dspool01.news.tele.dk>...
>Hvad???
>
>Det virker ikke...
>
>Er der nogen der kan sende lidt kode???
>
>MVH Torsten

>> Torsten T. Nielsen skrev i meddelelsen
>> <3c321fe3$0$89063$edfadb0f@dspool01.news.tele.dk>...
>> >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???
>> >
>>

Hvis du opretter en mappe C:\Slettes og bruger denne funktion

function PFURemoveDir(Path:String):Boolean;
var
FOS: TSHFileOpStruct;
MemFrom: Array[0..max_path] of Char;
begin
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;
end;
{$I-}
Result := SHFileOperation(FOS)=0;
{$I+}
SetLastError(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PFURemoveDir('C:\Slettes\*.*');
end;

Bliver kun indholdet (undermapper og filer) slettet. Mappen
C:\Slettes sker der ikke noget med.

Med venlig hilsen
Steen