Jak programowo usunąć wszystkie pliki jednocześnie z jakiegos katalogu? [glowa]
0
0
to bylo w faq
0
usun katalog i stworz katalog z ta sama nazwa :D
0
to bylo w faq
Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P
0
Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P
Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]
0
Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P
Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]
wiem ze to we FAQu bylo ale teraz brak mi czasu na jego przegladanie:)
0
Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P
Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]
Ale ja nie chce usuwac pojedynczego pliku tylko wszystkie z danego katalogu np wszystkie pliki z katalogu COOKIES(ale tak ze wszystkie sa usuwane jednoczesnie)
0
function IsSlash(const sText: String) : String;
begin
{ sprawdzenie, czy na koncu jest znak \ }
if sText[Length(sText)] '' then
Result := sText + '' else Result := sText;
end;
procedure TMainForm.Button1Click(Sender: TObject);
var
SR: TSearchRec;
Found : Integer;
begin
Found := FindFirst(IsSlash(Edit1.Text) + '.', faAnyFile, SR);
while (Found = 0) do
begin
DeleteFile(IsSlash(Edit1.Text) + SR.Name);
Found := FindNext(SR); // szukaj dalej
end;
FindClose(SR);
end;
0
Wielkie dzieki za pomoc mirekpil!!! [browar]
0
[browar]
Drobiazg, czy zauważyłeś godzinę mojego i twojego posta(dobrze że dzień jest różny).