Voila un bout de code de cleaner
Source / Exemple :
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
Conclusion :
rulezz
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.