vider le dossier temporaire

[Zut-à-tous 10]

enregistrer ce script avec l'extension .vbs et double cliquer quant vous désirer supprimer tout les fichiers dans le dossier temporaire .

 

Dim fso
Dim DelCount
Dim FileCount

Sub DelDirs(ADir)
Dim folders, files
Dim folder, file
 Set folders = fso.getfolder(ADir)
 Set files = folders.files
 
 For Each folder In folders.subfolders
    DelDirs folder.Path
    On Error Resume Next
    folder.Delete
 Next
 
 For Each file In files
   FileCount = FileCount + 1
   On Error Resume Next
   file.Delete True
   If Err.Number = 0 Then
     DelCount = DelCount + 1
   End If
   Err.Clear
   On Error GoTo 0
 Next
End Sub

if MsgBox("voulez-vous vraiment vider le dossier temporaire ?", &H34)= 6 then
  Set fso = CreateObject("scripting.filesystemobject")
  FileCount = 0
  DelCount  = 0
  DelDirs fso.GetSpecialFolder(2)
  MsgBox "fichiers supprimés : " & vbcr & DelCount & "  sur " & FileCount
End If

[KEYBOARDZAPPER 6 451]

j'ai acheté une licence 1 année de bitdefender version complète firewall + antivirus et jamais eu de problème avec des virus ou intrusion...

 

c'est plutôt aux fichiers VBS qu'il ne faut pas faire confiance si on a pas une bonne protection...

[Zut-à-tous 10]

j'ai acheté une licence 1 année de bitdefender version complète firewall + antivirus et jamais eu de problème avec des virus ou intrusion...

 

c'est plutôt aux fichiers VBS qu'il ne faut pas faire confiance si on a pas une bonne protection...

 

tu es informaticien ?

[KEYBOARDZAPPER 6 451]

tu es informaticien ?

 

non...J'ai appris sur le tas... mon premier ordi un 486DX2 66 Mgh avec 8 méga de memoire HDD 40 mb avec Ms-Dos 6.22 bien avant la sortie de Windows...:book: