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
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
Wczytaj do tablicy stringow nazwy wszystkich plikow w katalogu. W petli for daj Deletefile() i po klopocie. {brawo}
Pozdrowienia.
nie o to mi chodzi
nazwy tych plików sie zmieniaja...
to jest cały problem
hmm...
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...
Poszukaj w helpie funkcji: FindFirst oraz FindNext. To chyba to. :-)
Masz tu artykol w ktorym jest to opisane: http://www.4programmers.net/delphi/copy.html--pozdrawiam PEDROS {hello}
Delphi6
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}
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 . ;)