Ĺadny brzuch
Jak skasować folder prostą komendą?
Np. kasowanie jednego pliku to np.
DeleteFile('ścieżka lub Edit1.Text');
A jak wygląda kasowanie folderu??
DeleteFile('c:\folder');
Nie skasuje folderu. File = plik
Próbowałem wymyślić Dir, Directory ale nic z tego ;)
Z góry dzięki za pomoc
Użytkownik buster edytował ten post 29 październik 2007, 13:55
wywoluj shell (bodajze "execute") i uzywaj komend dosowych :D
coś znalazłem:
C17 Kasowanie folderu C:\sciezka\folder w którym mogą znajdować się pliki albo podfoldery function TForm1.DeleteDirectory(const source: String): Boolean; var sr: TSearchRec; found: Integer; source2: String; begin source2:=source; source2:=StringReplace(source2,'/','\',[rfReplaceAll]); while Copy(source2,Length(source2),1)='\' do source2:=Copy(source2,1,Length(source2)-1); found:=FindFirst(source2+'\*.*',faAnyFile,sr); try while (found=0) do begin if (sr.Name<>'.') and (sr.Name<>'..') then begin if (sr.Attr and faDirectory)<>0 then DeleteDirectory(source2+'\'+sr.Name) else begin FileSetAttr(source2+'\'+sr.Name,FileGetAttr(source2+'\'+sr.Name) and not (faReadOnly or faHidden)); if not DeleteFile(source2+'\'+sr.Name) then Result:=False; end; end; found:=FindNext(sr); end; finally FindClose(sr); end; RemoveDir(source2); end; DeleteDirectory('C:\sciezka\folder');
bezsensu, że nie wystarczy sama komenda:
DeleteDirectory('C:\folder');
może znacie inne sposoby?
Hmm, a może spróbuję zrobić FileListBox i kasowanie wszystkich plików znajdujących się na tym FileListBoxie?
Da się to zrobić dość prosto? Narazie nie bardzo wiem jak :)
Napiszcie wszystkie możliwe (krótkie) sposoby, z góry dzięki
/edit
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to FileListBox1.Items.Count-1 do
DeleteFile(FileListBox1.Items[i]);
FileListBox1.Update;
end;
a jaka komenda na załadowanie plików z folderu przez OpenDialog?? Że wskażę mu folder i załaduje pliki.
Tak samo komenda na załadowanie plików ze ścieżki podanej w Edit1??
Użytkownik buster edytował ten post 29 październik 2007, 15:10
z pozdrowieniami od szukajki
http://forum.ks-eksp...m...st&p=137829
z pozdrowieniami od szukajki
http://forum.ks-eksp...m...st&p=137829
taki długi sposób to mogę sobie sam znaleźć w google w 5 sekund ;/
niestety nie pomogłeś mi małolacie :>
po pierwsze: znalazłeś juz sposób. Po co chcesz drugi? Myslisz ze programowanie to jest wpisywanie samych procedur, że dostaniesz wszystko na talerzu? trzeba trochę pomyslec. Delphi ułatwia dużo rzeczy ale bez przesady. Powienienś się cieszyć ze wogóle przykład tej funkcji znalazłes :>
taki długi sposób to mogę sobie sam znaleźć w google w 5 sekund ;/
niestety nie pomogłeś mi małolacie
po drugie: nie wyrażaj się tak do użytkowników forum a zwłaszcza do moderatora, a szczególenie w tym wypadku ze Migajek na bank ma duuużo większe doświadczenie w programowaniu od ciebie.
Użytkownik pat edytował ten post 29 październik 2007, 15:41
po drugie: nie wyrażaj się tak do użytkowników forum a zwłaszcza do moderatora, a szczególenie w tym wypadku ze Migajek na bank ma duuużo większe doświadczenie w programowaniu od ciebie.
w programowaniu może tak bo on tym się zajmuje na codzień, a mnie programowanie praktycznie nie interesuje i prawie nigdy w nim nie siedziałem. Wolę grafikę 3d lub inne rzeczy.
A za małolata chyba się nie obrazi :D
to mój dobry znajomy ;) (ma mniej lat niż ja, ale to słowo nie jest obraźliwe dla kogokolwiek, tak jak słowo "młody")
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Np. kasowanie jednego pliku to np.
DeleteFile('ścieżka lub Edit1.Text');
A jak wygląda kasowanie folderu??
DeleteFile('c:\folder');
Nie skasuje folderu. File = plik
Próbowałem wymyślić Dir, Directory ale nic z tego ;)
Z góry dzięki za pomoc
Użytkownik buster edytował ten post 29 październik 2007, 13:55
wywoluj shell (bodajze "execute") i uzywaj komend dosowych :D
coś znalazłem:
C17 Kasowanie folderu C:\sciezka\folder w którym mogą znajdować się pliki albo podfoldery function TForm1.DeleteDirectory(const source: String): Boolean; var sr: TSearchRec; found: Integer; source2: String; begin source2:=source; source2:=StringReplace(source2,'/','\',[rfReplaceAll]); while Copy(source2,Length(source2),1)='\' do source2:=Copy(source2,1,Length(source2)-1); found:=FindFirst(source2+'\*.*',faAnyFile,sr); try while (found=0) do begin if (sr.Name<>'.') and (sr.Name<>'..') then begin if (sr.Attr and faDirectory)<>0 then DeleteDirectory(source2+'\'+sr.Name) else begin FileSetAttr(source2+'\'+sr.Name,FileGetAttr(source2+'\'+sr.Name) and not (faReadOnly or faHidden)); if not DeleteFile(source2+'\'+sr.Name) then Result:=False; end; end; found:=FindNext(sr); end; finally FindClose(sr); end; RemoveDir(source2); end; DeleteDirectory('C:\sciezka\folder');
bezsensu, że nie wystarczy sama komenda:
DeleteDirectory('C:\folder');
może znacie inne sposoby?
Hmm, a może spróbuję zrobić FileListBox i kasowanie wszystkich plików znajdujących się na tym FileListBoxie?
Da się to zrobić dość prosto? Narazie nie bardzo wiem jak :)
Napiszcie wszystkie możliwe (krótkie) sposoby, z góry dzięki
/edit
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to FileListBox1.Items.Count-1 do
DeleteFile(FileListBox1.Items[i]);
FileListBox1.Update;
end;
a jaka komenda na załadowanie plików z folderu przez OpenDialog?? Że wskażę mu folder i załaduje pliki.
Tak samo komenda na załadowanie plików ze ścieżki podanej w Edit1??
Użytkownik buster edytował ten post 29 październik 2007, 15:10
z pozdrowieniami od szukajki
http://forum.ks-eksp...m...st&p=137829
z pozdrowieniami od szukajki
http://forum.ks-eksp...m...st&p=137829
taki długi sposób to mogę sobie sam znaleźć w google w 5 sekund ;/
niestety nie pomogłeś mi małolacie :>
po pierwsze: znalazłeś juz sposób. Po co chcesz drugi? Myslisz ze programowanie to jest wpisywanie samych procedur, że dostaniesz wszystko na talerzu? trzeba trochę pomyslec. Delphi ułatwia dużo rzeczy ale bez przesady. Powienienś się cieszyć ze wogóle przykład tej funkcji znalazłes :>
taki długi sposób to mogę sobie sam znaleźć w google w 5 sekund ;/
niestety nie pomogłeś mi małolacie
po drugie: nie wyrażaj się tak do użytkowników forum a zwłaszcza do moderatora, a szczególenie w tym wypadku ze Migajek na bank ma duuużo większe doświadczenie w programowaniu od ciebie.
Użytkownik pat edytował ten post 29 październik 2007, 15:41
po drugie: nie wyrażaj się tak do użytkowników forum a zwłaszcza do moderatora, a szczególenie w tym wypadku ze Migajek na bank ma duuużo większe doświadczenie w programowaniu od ciebie.
w programowaniu może tak bo on tym się zajmuje na codzień, a mnie programowanie praktycznie nie interesuje i prawie nigdy w nim nie siedziałem. Wolę grafikę 3d lub inne rzeczy.
A za małolata chyba się nie obrazi :D
to mój dobry znajomy ;) (ma mniej lat niż ja, ale to słowo nie jest obraźliwe dla kogokolwiek, tak jak słowo "młody")