Vider la corbeille avec un fichier *.vbs

Marsh Posté le 03-04-2006 à 20:01:58

Bonjour,

Je voudrais essayer de créer un fichier *.vbs qui quand je clique sur lui me vide ma corbeille et me supprime mes fichier TMP sur toutes mes sessions.
Voilà mon code source :

Code :

Dim ObjShell, Afile, Thefiles
Set FSo = WScript.CreateObject("Scripting.FileSystemObject" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Gautier\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Antonin\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Tristan\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Eric\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Alexandrine\Local Settings\Temp" )
Set TheFiles = Afolder.Files
On Error Resume Next
For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "TMP" then
AFile.Delete
End if
Next

Je voudrais juste savoir comment vider la corbeille en vbs sinon avec une possibilité en language C ?

Merci d'avance !

Reply

Marsh Posté le 03-04-2006 à 20:01:58

Reply

Marsh Posté le 04-04-2006 à 19:25:10

Vous avec des solutions ? Existe-t-il une solution ?

Reply

Marsh Posté le 04-04-2006 à 19:43:37

la corbeille est dans le dossier "recycled" a la racine de chaque partition

Reply

Marsh Posté le 05-04-2006 à 15:57:59

Euh merci, mais je ne connais pas du tout le vbs, vu que je programme un peu le PHP/HTML/C j'essai mais je ne sais pas comment faire pour lire de la vider !

Merci d'avance !

Reply

Marsh Posté le 05-04-2006 à 19:50:23

Code :

set Afolder=FSO.GetFolder("C:\recycled" )
...

Message édité par breizhbugs le 05-04-2006 à 19:50:53

Reply

Marsh Posté le 06-04-2006 à 19:05:12

Excuse moi mais il me dit que c:\recycled est introuvable. Je vais refaire des recherche dessus !

Merci

Reply

Marsh Posté le 06-04-2006 à 19:49:19

Le dossier recycled est un dossier caché, cela influe peut etre?

Message édité par breizhbugs le 06-04-2006 à 19:49:42

Reply

Marsh Posté le 08-04-2006 à 19:34:51

Désolé mais en fichier caché il n'est nul part... Je suis sous Windows XP sa n'a pas marché mais sous Windows 95 sa marche ! La recherche de : corbeille, recycled n'à pas marché (n'à rien trouvé)

Merci

Reply

Marsh Posté le 08-04-2006 à 20:07:29

Bon apres quelques recherches plus poussée, il semble qu'il y ait une fonction systeme pour vider la corbeille.
voici un code que j'ai trouvé:
http://www.vbcode.com/Asp/showsn.asp?theID=5333

Sinon, je maitrise mal (pas?) le VB mais quand tu fais

Code :

Set FSo = WScript.CreateObject("Scripting.FileSystemObject" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Gautier\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Antonin\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Tristan\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Eric\Local Settings\Temp" )
set Afolder=FSO.GetFolder("C:\Documents and Settings\Alexandrine\Local Settings\Temp" )
Set TheFiles = Afolder.Files

AFolder est bien une liste de repertoires? Si ce n'est pas le cas tu n'efface que les fichiers du dernier repertoire, celui d'alexandrine (jolie prénom!)
D'apres la doc que j'ai trouvé, il existe aussi une fonction
.GetSpecialFolder() ( http://msdn.microsoft.com/library/ [...] 6689a1.asp )
qui pourrait te permettre de trouver le repertoire TEMP de windows (c:\windows\TEMP), mais j'ignore si ce repertoire est utilisé car il y a redondance avec le repertoire TEMP de l'utilisateur.

Reply

Marsh Posté le 17-04-2006 à 07:42:08

Ben, ce que tu m'as expliqué après j'ai rien compris... Mais bon, c'est pas grave ! Sinon le script ne marche toujours pas je vais testé une autre chose je te dit ce que j'ai fait après !

Reply

Vider la corbeille avec un fichier *.vbs

Sujets relatifs:

Leave a Replay