Klasör işlemleri

[uranyum238]

Arkadaşlar Temprorary internet file daki dosyaları silecek bir kod örneği var mı?Ya da Temprorary internet file klasörünü toptan silecek ve yeniden bu klasörü oluşturacak bir kod örneği de olabilir.
Saygılar...

[mnt]

FindFirst, FindNext, DeleteFile komutlarıyla yapabilirsin. Delphi yardımında kullanım örnekleri var.
Dizin işlemleri için CreateDir, RemoveDir.

[mrmarman]

- Sana özel değil de genel amaçlı bir program geliştiriyorsan, bilmen gereken ek ve önemli bilgi var;

- Sadece açık olan kullanıcı oturumunda ve kullanıcı profili altındaki Local Settings klasöründeki Temporary Internet Files klasörüne etki etmelisin.

- Birden fazla kullanıcı Admin yetkisindeyse diğerlerine erişilebilir ve izin alınmaksızın yapılan silme işlemi risk taşır gerekçesiyle bunları yazdım...

- Başarılar

[uranyum238]

Bir cevap yazdım ama bi türlü post edemedim.Tekrar yazayım.Removedir klasör boş olunca işe yarıyo da dolu olunca işe yaramıyo .Bide programı sadece kendi bilgisayarımda kullanacağım.O yüzden kullanıcı falan gerekmiyo yine de ilgi için teşkkür .Yani istediğim temprory internet files klasörünü öyle ya da böyle boşaltmak ...
Saygılar...

[mnt]

Kod: Tümünü seç

var sr: TSearchRec;
begin
  repeat
    FindFirst('c:\Temp\*.*', 0, sr);
    DeleteFile('c:\Temp\'+sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
end;

Bat dosyasında Temporary Int.. yerine Tempor~1 dene..

[serkan]

turbopower shellshock paketinde fileoperetion diye bişey var klasör ve dosya silme koplama oluşturma işlemlerini kolayca yapabilirsin..
dolu klasörleride siliyordu bir kere kullanmıştım...

[sadettinpolat]

http://delphi.about.com/cs/adptips2002/ ... rnet+files

ie ve delphi için bir numaralı kaynak site http://www.euromind.com/iedelphi/

daha fazla sonuç için http://www.google.com.tr/search?hl=tr&q ... +Ara&meta=

[uranyum238]

Arkadaşlar internetten edindiğim bilgilere göre aslında Temprorary İnternet Files daki dosyalar aslında yokmuş.Yani sanalmış.(Forumlardan okuduğuma göre) ve hatta bu klasör içeriğini silmek için özel yöntemler kullanılıyormuş.İnanmayan win3.1 tabındaki bileşenlerle bir bu klasöre erişip içinde ne var ne yok bi baksın.

[mrmarman]

- Yanlış. Sadece hidden property olduğundan.

- Kendi bilgisayarındaki "Temporary Internet Files" yolunu TempKlasor sabitine yaz ve formuna koyacağın TListBox'da gördüklerini değerlendir.

Kod: Tümünü seç

{ RESET Attribute         = 128
  faArchive               =  32
  faReadOnly              =   1
  faHidden                =   2
  faSysFile               =   4
  faDirectory             =  16 }

32+1+2+4+16 = 55

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Const
  TempKlasor = 'C:\Documents and Settings\ARMAN\Local Settings\Temporary Internet Files\';
var
  SR: TSearchRec;
begin
  FindFirst(TempKlasor+'*.*', 55, sr); // 55 tüm attribute'ler için
  repeat
    ListBox1.Items.Add(sr.Name);
    Application.ProcessMessages;
  until FindNext(sr) <> 0;
  FindClose(sr);
end;