Jakiego polecenia u?żyć aby usunac z danego katalogu ws

0

Jakiego polecenia użyc aby usunąć z danego katalogu
wszystkie pliki np: 1.exe,2.txt,dana.vdf,franek.pff...

DeleteFile('C:\katalog\.')nie działa

0

Wczytaj do tablicy stringow nazwy wszystkich plikow w katalogu. W petli for daj Deletefile() i po klopocie. {brawo}

Pozdrowienia.

0

nie o to mi chodzi
nazwy tych plików sie zmieniaja...

to jest cały problem

hmm...

0

Nie chodzi mi o wpisanie nazw plikow do tablicy w kodzie. Jest jakas procedura, ktora odczytuje nazwe kolejnego pliku do zmiennej. Tylko nie pamietam nazwy hmm...

0

Poszukaj w helpie funkcji: FindFirst oraz FindNext. To chyba to. :-)

0

Masz tu artykol w ktorym jest to opisane: http://www.4programmers.net/delphi/copy.html--pozdrawiam PEDROS {hello}
Delphi6

0

Mozesz tez sprobowac tego sposobu:

Daj na Forme:
-FileListBox (Zakladka Win 3.1)
-2 X Button

I wpisz kod:

const
Folder:string = 'c:\test\';
var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.Items.Clear;
FileListBox1.Directory:=Folder;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to FileListBox1.Items.Count-1 do
begin
DeleteFile(Folder+FileListBox1.Items[i]);
end;
end;

Sprawdzalem dzala {brawo}

0

Aaaa...

Na poczatku wcisnij Button1, aby odczytac nazwy plikow do pola FileListBox, a pozniej Button2 aby usunac pliki. Mozna to zrobic tez w jednej procedurze . ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1