ben yerini biliyorumda :) program bilmiyor :) ESKİ NİCKİM "HAYALETKURT"TUR... WE TANRI TÜRK"Ü YARATTI. ZAFERLER KAZANIP YEDİ CİHANA NAM SALSIN DİYE...

s. a. arkadaşlar. hepimiz zaman zaman temp olsun internet explorer olsun bu gibi klasrlerin içeriğini boşaltırız. benim aklımada bu işi daha pratik yapacak bi programcık geldi. fakat bir iki noktada takıldım. normal klasrleri kill klasr yolu vs komutlarla boşaltıyoruz sorun yok fakat windowsun altındaki gizli klasrleri boşaltmaya gelince hata veriyor dolayısı ile. vb kodlamadan anlayan arkadaşlardan ricam; 1: windowsun hangi blüme kurulu olduğunu nasıl tespit ettiririm, 2: geçerli user name e gre makinanın local settings e ve oradanda temp, temporary internet files ve history klasrlerini nasıl boşalttırırım. bu konuda bana yardımcı olabilcek varmı acaba? ESKİ NİCKİM "HAYALETKURT"TUR... WE TANRI TÜRK"Ü YARATTI. ZAFERLER KAZANIP YEDİ CİHANA NAM SALSIN DİYE...

yok hocam klasrü değil klasr içeriğini sildirmeye çalışıyorum. bak sana hedef lasrlerin yollarını vereyim. C:\WINDOWS\Prefetch C:\WINDOWS\temp C:\Documents and Settings\destek\Local Settings\temp C:\Documents and Settings\destek\Local Settings\Temporary Internet Files C:\Documents and Settings\destek\Local Settings\History işte bu beş klasrün içeriğini sildirmeye çalışıyorum. klasrler kalacak içinde ne var ne yok silinecek. her part için ayrı ayrı y0l belirlemek yerine, windows hangi partda kurulu onu kendi belirleyip ona gre bu yoldaki c: veya d: gibi atarlatabilirsem güzel olacak. sanırım şimdi daha açıklayıcı oldum. ESKİ NİCKİM "HAYALETKURT"TUR... WE TANRI TÜRK"Ü YARATTI. ZAFERLER KAZANIP YEDİ CİHANA NAM SALSIN DİYE...

' En üste Declartion kısmına yazılacak Option ExplicitPrivate Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" As Integer' Private Sub Form_Load Dim Wyol As String, uz Wyol = String(145, Chr(32)) uz = GetWindowsDirectory(Wyol, Len Text1 = Left ' Text1 e Windows dizini yazarEnd Sub ' Yukardaki kodda Windows dizinin yerini veriri Hata ya gelirsek sen Kill komutukla klasr silmeye çalışıyorsan hata veriri zaten Kill sadece dosya siler, eğer klasr silmek istiyorsan nce Kill ile klasrün içindeki tüm dosyaları silersin sonrada Rmdir komutu ile klasrür silersin. "Mey biter saki kalır Her renk solar haki kalır Diploma insanın cehlini alsada; Hamurunda varsa, eşeklik baki kalır..."

visual basic için bi forum vardı zaten pascal-delfi ne alaka? şyle bir kod buldum birazdan denerim belki. Private Sub KillTempFolder Const sWILD As String = " . "Dim sFile As StringOn Error Resume NextsFile = Dir$ Do While Len &gt; 0SetAttr gsTEMPDIR & sFile, vbNormalKill gsTEMPDIR & sFilesFile = Dir$LoopRmDir gsTEMPDIREnd Sub Im Boned, All Boned.

hocam ilgine sağol. sen tek bir dosya için bir kod vermişsin. ben bunu genele uyarlayıp klasre çevirdim. fakat sonuç yine aynı. yine benzer run time hatası alıyorum :S ESKİ NİCKİM "HAYALETKURT"TUR... WE TANRI TÜRK"Ü YARATTI. ZAFERLER KAZANIP YEDİ CİHANA NAM SALSIN DİYE...

Text1. text="c:\xxxx. exe" SetAttr Text1, 32 ' Bu satır dosyayı arşiv dosyası zelliğine getitiKill (Text1) ' Bildiğin silem kodu Yukardaki kod parçası işini grür, yaptığı iş şudur gizli dosyayı nce arşiv dosyası zelliğine getirir sonra siler, bunu istediğin şekilde tüm dosyalar için kullanabilirsin. "Mey biter saki kalır Her renk solar haki kalır Diploma insanın cehlini alsada; Hamurunda varsa, eşeklik baki kalır..."

vb bilmiom ama %temp% felan %windows %system32 hep byle olur eger yerini bilmiyorsan

bende ararken vb sayfasında neden başlığı bulamadım diyorum :) hata yapmışım hocam. sanırım tıklarken alt başlığa tıklayıp orda konu açtım. zür. kodu ben c/p yapıp denedim. run time veriyor. sen deneyebildinmi? vb nin modasımı geçti nedir artık şu sorunu hala çzemedim :) 2 aydır yapabilcemmi diye bakıyorum bu olaya :) ESKİ NİCKİM "HAYALETKURT"TUR... WE TANRI TÜRK"Ü YARATTI. ZAFERLER KAZANIP YEDİ CİHANA NAM SALSIN DİYE...