How to make ATF Cleaner in VB

[AstriMc]

Hello Guys can you guys tell me how can i make my own version of ATF Cleaner is some one can help with coding please thank you

 

[OliverE]

Is ATF cleaner just a temp file cleaner?

- Also make sure if your asking for support about VB, the thread goes in the VB section

---

Yer it is, ill dig up so temp code, I made a program a while back, but you wont beat CCleaner.

 

[AstriMc]

Hes its temp cleaner please check this image

all the same Functions

thanks.

 

[OliverE]

You want all the same functions! That would take an age to find. Applications like that arent just made overnight. Weeks of effort have gone into it
Google: Delete Cookies in VB.net

Heres 15minutes on google, and on these very forums

[vb]Imports System.IO

Public Class Form1

''Empty Recycle Bin
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32

Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4

#Region "Empty Recycle Bin (SUB)"

Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION + SHERB_NOSOUND)
SHUpdateRecycleBinIcon()
End Sub

#End Region

Private Sub RecyclingBin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecyclingBin.Click
EmptyRecycleBin()
End Sub

''Temp Files
Function GetTempDirectory() As String
Return Environment.GetEnvironmentVariable("TEMP")
End Function

Private Sub TempFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TempFiles.Click
Dim filePath As String
For Each filePath In Directory.GetFiles(GetTempDirectory())
Try
File.Delete(filePath)
Catch
' IGNORE EXCEPTION THROWN
End Try
Next
End Sub

''History
Public Function GetHistoryDirectory() As String
Return Environment.GetFolderPath(Environment.SpecialFolder.History)
End Function

Private Sub History_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles History.Click
Dim filePath As String
For Each filePath In Directory.GetFiles(GetHistoryDirectory())
Try
File.Delete(filePath)
Catch
' IGNORE EXCEPTION THROWN
End Try
Next
End Sub
End Class
[/vb]

Thanks to CodeBreaker for the Recycling Bin code

 

[AstriMc]

ok Bleepy thank you for your help..

 

[OliverE]

Some other people may have some more features

 

[Epic Coder]

I will search around my documents for you i swear i had more than 200 projects in just VB.NET.

 

[AstriMc]

Ropic if you can find that will be very helpful thank you for all your help.