rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[VBS] Suppression de fichiers dans dossiers

JFO, le vendredi 29 juillet 2005 à 03:47:16
Voila je débute en VBS et j'ai un petit problème à résoudre.
Imaginons une arborenscence telle que :
[b]RACINE[/b]
|
|__[b]Dossier 1[/b]__[b]Dossier 1.1[/b]__[i]Fichier.exe[/i]
| |
| |__[b]Dossier 1.2[/b]__[i]Fichier.bat[/i]
| | |
| | |__[i]Fichier.msi[/i]
| |
| |__[i]Fichier.exe [/i]
|
|__[b]Dossier 2[/b]__[b]Dossier 2.1[/b]__[i]Fichier.exe[/i]
| |
| |__[i]Fichier.bat[/i]
| |
| |__[i]Fichier.exe [/i]
|
|__[b]Dossier 3[/b]__[b]Dossier 3.1[/b]__[i]Fichier.bat[/i]
| |
| |__[b]Dossier 3.2[/b]__[i]Fichier.exe[/i]
| |
| |__[i]Fichier.msi[/i]
|___________________________________________________
Ce que je dois faire c'est, avec l'aide d'un script, supprimer tous les "Fichier.exe". Mais pour cela je dois parcourir les dossiers, ainsi que leur sous dossiers, puis les sous dossiers des sous dossiers et ainsi de suite.

J'ai trouvé quelques lignes de codes :

[color=green]Dim ObjShell, Afile, Thefiles
The = "C:\Temp\racine"
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Afolder=FSO.GetFolder(The)
Set TheFiles = Afolder.Files
On Error Resume Next
For Each AFile In TheFiles
Wscript.Echo FSO.GetExtensionName(AFile.Path)
If UCase(FSO.GetExtensionName(AFile.Path)) = "EXE" then
AFile.Delete
End if[/color]

Et des informations : [url]http://www.bellamyjc.net/fr/vbsobjets.html[/url]

Mais je n'ai pas trop d'idée pour réaliser ce script, je pense qu'il faut utiliser des boucles. Je ne sais pas non plus comment il gère la vérification de l'existence d'un dossier afin de reprende sa recherche dans le dossier parent.

Voila j'ai un peu de mal et si quelqu'un peut m'aider je le remercis de tout coeur.
A bientôt
Répondre à JFO  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
david81, le mardi 18 juillet 2006 à 18:10:59
bonjour,etant debutant,j'aimerais savoir ce qu'est un fichier temporaire merci
Répondre à david81

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 arnauldl, le mercredi 16 janvier 2008 à 11:26:46
La solution à ton problème consiste en un parcours récursif (fonction qui s'appele elle même) des dossiers et sous dossiers :

'-----------------------------------------------------------­------------------------------------------------------------­-
racine= "C:\Temp\racine"
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Afolder=FSO.GetFolder(racine)
effaceExe(Afolder)

function effaceExe(rep)
Set TheFiles = rep.Files
For Each AFile In TheFiles
If UCase(FSO.GetExtensionName(AFile.Path)) = "EXE" then AFile.Delete
next
for each subFolder in rep.SubFolders
effaceExe (subFolder)
next
end function
'------------------------------------------------------------------------------------------------------------------------

Cordialement.
Répondre à arnauldl
Je n'arrive pas à supprimer un dossier (Résolu)Salut !! je n'arrive pas à supprimer un dossier , quand je l'ouvre il me parrait dans la barre d'état qu'il y a un élément , pourtant le dossier est vide , même si j'active " afficher les fichiers et dossiers cachés " et "... www.commentcamarche.net/forum/affich-3674911-je-n-arrive-pas-a-supprimer-un-dossier
Suppression de dossier (Résolu)Je veux supprimer un dossier. J'ai le mesage : impossible de supprimer nwwia : cettte ressource est utilisée par une autre personne ou un autre programme. Fermez ... Or, visiblement, ce n'est pas le cas. Comment forcer cette suppression ?... www.commentcamarche.net/forum/affich-2501265-suppression-de-dossier
Soucis suppressions fichiers (Résolu)bonjour, je cherche à vider le dossier C:\Windows\Temp le soucis c'est qu'il refuse de supprimer certains fichiers dossier avast contient le fichiers : Webshlock ( 0 octets) impossible de la supprimer ? j'avais penser le renommer pour... www.commentcamarche.net/forum/affich-1733410-soucis-suppressions-fichiers
Supprimer le virus Christina AguileraPour supprimer le virus Christina Aguilera sous Windows XP : Aller dans le répertoire "C:\windows\system32" (ou %systemroot%\system32), Supprimer définitivement (shift + Suppr) les fichiers Christina.vbs et OeAPI.vbs, Supprimer le virus au... www.commentcamarche.net/faq/sujet-6395-supprimer-le-virus-christina-aguilera
Supprimer un fichier récalcitrantVous venez de télécharger un objet (fichier, dossier ou programme) qui fait planter votre PC ? De plus, aucun logiciel anti-malwares (Antivirus, Antispywares etc.) ne semble pallier ce problème ? Enfin, il est impossible de déplacer, de renommer et... www.commentcamarche.net/faq/sujet-3400-supprimer-un-fichier-recalcitrant
[Mozilla Thunderbird] Paramétrer Norton AVNorton Antivirus n'étant pas compatible avec Thunderbird, il convient d'effectuer le réglage suivant : Ouvrir Norton Antivirus Aller à Configurer > Systèmes de fichiers – Auto-Protect Cocher la case [Exclure fichiers/dossiers sélectionnés] Cliquer... www.commentcamarche.net/faq/sujet-2164-mozilla-thunderbird-parametrer-norton-av
Probleme de suppression de dossier (Résolu)Je n'arrive pas à supprimer un dossier, ni à le renommer; le message suivant s'affiche : Impossible de supprimer ... :Accès refusé Vérifier que le disque n'est pas plein ou protégé en écriture et que le fichier n'est pas utilisé... www.commentcamarche.net/forum/affich-3127071-probleme-de-suppression-de-dossier
Suppression de dossiers!! (Résolu)bonjours, je vous écris car j'ai un soucis pour supprimers des fichiers!! Je veus supprimer un fichier alor je faits clic droit dessu puis supprimer!! Se dossier va dans la corbeille et quand je fais vider la corbeille le dossier ne se supprime... www.commentcamarche.net/forum/affich-3197078-suppression-de-dossiers
Peut-on supprimer les dossiers "AppData" (Résolu)Peut-on supprimer les dossiers "AppData" qui apparaissent dans "ordinateur/bureau, sur ordinateur équipé de VISTA??. Est-il possible d'éviter d'avoir tout ce suivi qui constitue une multitude de sous dossiers??? Merci www.commentcamarche.net/forum/affich-4378071-peut-on-supprimer-les-dossiers-appdata
Télécharger ImgBurnImgBurn est une application de gravure de CD / DVD / HD DVD / Blu-ray. ImgBurn supporte une grande variété de formats, dont les formats BIN, DI, DVD, GI, IMG, ISO, MDS, NRG et PDI. Il supporte les noms de fichiers/dossiers en Unicode etl peut... www.commentcamarche.net/telecharger/telecharger-34055115-imgburn
Télécharger BakuBaku est un outil permettant de rechercher dans le système de registre des erreurs et des fichiers non utilisés pour les supprimer. L'outil permet de supprimer les dossiers vides, l'historique du contenu d'un dossier, l'archive des documents récents,... www.commentcamarche.net/telecharger/telecharger-34056379-baku
Télécharger Ant RenamerANT Renamer permet de renommer un grand nombre de fichiers et dossiers en quelques clics. Il ne fait que modifier les noms des fichiers/dossiers : Changement d'extension Remplacement de chaînes de caractères par d'autres Insertion... www.commentcamarche.net/telecharger/telecharger-3673506-ant-renamer
Un trojan qui réclame de l'argentIl a été appelé le Trojan Ransom-A, c'est un Trojan qui menace de supprimer un dossier de l'ordinateur toutes les 30 minutes, jusqu'à ce que l'utilisateur, prit de peur, débourse 10.99 $. Ce trojan parle également en images pornographiques. Une fois... www.commentcamarche.net/actualites/un-trojan-qui-reclame-de-l-argent-2213586-actualite.php3
Toutes les réponses pour « [VBS] Suppression de fichiers dans dossiers »