CLEANER

Dim fso As FileSystemObject
Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")
Set conf = fso.CreateTextFile("C:\confus.txt")
conf.WriteLine "user"
conf.WriteLine Drive.Drive
conf.WriteLine user.Text
Form1.Show
Unload Me
End Sub

Private Sub Command2_Click()
If Text1.Text = "letmestart" Then Command1.Enabled = True
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile("C:\confus.txt")
v.Text = a.ReadLine
If v.Text = "user" Then Form1.Show: Unload Me
End Sub
_______________________
2___________________________
Dim fso As FileSystemObject
Private Sub c_Click()
End
End Sub

Private Sub Check1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("C:\log.txt")
If Check1.Value = 1 Then fs.WriteLine "NO DELETE. CHECKED 1" Else fs.WriteLine "no"
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim Drive, user As String
Dim template, owp, tif, dpf As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set lire = fso.OpenTextFile("C:\confus.txt")
Set tete = fso.GetSpecialFolder(2)
ff.Text = lire.ReadLine
Drive = lire.ReadLine
user = lire.ReadLine
template = Drive & "\Documents and Settings\" & user & "\Templates"
owp = Drive & "\WINDOWS\Offline Web Pages"
tif = Drive & "\Documents and Settings\" & user & "\Local Settings\Temporary Internet Files\Content.IE5"
dpf = Drive & "\WINDOWS\Downloaded Program Files"
t.Text = template
stat.Caption = "Deleting...templates"
fso.DeleteFolder template, True
p.Value = 10
stat.Caption = "Recreating...templates"
fso.CreateFolder template
p.Value = 20
stat.Caption = "Deleting...temp"
fso.DeleteFolder tete, True
p.Value = 30
stat.Caption = "Recreating...temp"
fso.CreateFolder tete
p.Value = 40
stat.Caption = "Deleting...OfflineWebPages"
fso.DeleteFolder owp, True
p.Value = 50
stat.Caption = "Recreating...OfflineWebPages"
fso.CreateFolder owp
p.Value = 60
stat.Caption = "Deleting...TemporaryInternetFiles"
fso.DeleteFolder tif, True
p.Value = 70
stat.Caption = "Recreating...TemporaryInternetFiles"
fso.CreateFolder tif
p.Value = 80
stat.Caption = "Deleting...DownloadFile"
fso.DeleteFolder dpf, True
p.Value = 90
stat.Caption = "Recreating...DownloadFile"
fso.CreateFolder dpf
p.Value = 100
stat.Caption = "Finish"
Beep
c.Visible = True
End Sub


Private Sub Form_Load()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set oo = fso.OpenTextFile("C:\log.txt")
ta.Text = oo.ReadLine
If ta.Text = "NO DELETE. CHECKED 1" Then Check1.Value = 1
If ta.Text = "NO DELETE. CHECKED 1" Then Command2_Click: Command2.Enabled = False
End Sub