[es] - Kako izbrisati folder koji u sebi ima fajlove?

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.smin.sezampro.yu.

Profil

Kako izbrisati folder koji u sebi ima fajlove?

^{17.04.2006. u 07:34 - pre 232 meseci}

Please help.Sve sam pokusao cak i sa tim da iskljucim I\o greske ali ne uspeva.Ako neko zna zivot ce mi spasti

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: Kako izbrisati folder koji u sebi ima fajlove?

^{17.04.2006. u 07:44 - pre 232 meseci}

Obicnom rekurzijom... evo:

Code:
Function MyRemoveDir(sDir : String) : Boolean;
var
         iIndex    : Integer;
         SearchRec : TSearchRec;
         sFileName : String;
begin
         Result := False;
         sDir   := sDir + '\*.*';
         iIndex := FindFirst(sDir, faAnyFile, SearchRec);

         while iIndex = 0 do begin
               sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
               if SearchRec.Attr = faDirectory then begin
                  if (SearchRec.Name <> '' )  and
                     (SearchRec.Name <> '.')  and
                     (SearchRec.Name <> '..') then
                      MyRemoveDir(sFileName);
               end else begin
                  if SearchRec.Attr <> faArchive then
                     FileSetAttr(sFileName, faArchive);
                  if NOT DeleteFile(sFileName) then
                     ShowMessage('Ne mogu da obrisem ' + sFileName);
               end;
               iIndex := FindNext(SearchRec);
         end;

         FindClose(SearchRec);

         RemoveDir(ExtractFileDir(sDir));
         Result := True;
end;

A koristis ovako:

Code:
if NOT MyRemoveDir('D:\myDir') then
ShowMessage('Ne mogu da obrisem folder!');

Srecno

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.smin.sezampro.yu.

Profil

Re: Kako izbrisati folder koji u sebi ima fajlove?

^{23.04.2006. u 23:03 - pre 232 meseci}

Ljudi pravim sa jos jednim drugom file manager-a i zapeli smo kod kopiranja foldera, kopiranja fajlova(celog fajla, a ne samo sadrzaja). Ako neko moze da mi pomogne neka postavi kod ako mu nije tesko! Unapred hvala!!!
PS. Hvala za delete folder...

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: Kako izbrisati folder koji u sebi ima fajlove?

^{24.04.2006. u 08:34 - pre 232 meseci}

Za kopiranje foldera mozes koristiti istu rekurziju, samo promeni ime funkcije i svuda gde imas funkciju za brisanje fajla/foldera, stavi kopiranje fajla odnosno kreiranje foldera. A ovo za kopiranje *celog* fajla a ne samo sadrzaja ne razumem.

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

godscrusher1990
Milos Popovic
heaven

Član broj: 58086
Poruke: 11
*.smin.sezampro.yu.

Profil

Re: Kako izbrisati folder koji u sebi ima fajlove?

^{27.04.2006. u 00:02 - pre 232 meseci}

I kako bi ona izgledala(funkcija za kopiranje foldera sa fajlovima)?Kopiranje fajlova je veoma prosto koristio sam komandu CopyFile(sorce, destination, true).Unapred hvala!!!

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
195.252.99.*

Sajt: https://avramovic.info

+46 Profil

Re: Kako izbrisati folder koji u sebi ima fajlove?

^{27.04.2006. u 18:09 - pre 232 meseci}

Pa rekao sam ti vec:

Citat:

JaHvram: Za kopiranje foldera mozes koristiti istu rekurziju, samo promeni ime funkcije i svuda gde imas funkciju za brisanje fajla/foldera, stavi kopiranje fajla odnosno kreiranje foldera. A ovo za kopiranje *celog* fajla a ne samo sadrzaja ne razumem.

Izgledala bi slicno:

Code:
function CopyDir(source,dest:string):boolean;
var
        ...
begin
           ...
                  if NOT CopyFileFile( ... ) then
                     ShowMessage('Ne mogu da kopiram ' + sFileName);
           ...
         ForceDirectories(ExtractFileDir(sDir));  // valjda tako beshe func...
         Result := True;
end;

Ovo ti je pseudo-code

testiraj, probaj, ... mene mrzi da pisem funkciju koja ce da radi, nemam vremena, ali ako u'vatim vremena pokusacu da napisem

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu