[DEV]Besoin d'aide sur SRIPT VBS [terminé]
Modérateur : Modérateurs
- faeze
- Mentor
- Messages : 2089
- Inscription : 16 mai 2013 - 01:00
- Localisation : Henin Beaumont
- A remercié : 198 fois
- A été remercié : 118 fois
Besoin d'aide sur SRIPT VBS [terminé]
Besoin d'une petite modif sur un scipt vbs que j'ai récupéré.
Il fonctionne tres bien mais j'aurais besoin d'une version alternative. Dans l'état il scanne un répértoire et les sous dossiers et supprime ceux qui sont vide.
Il faudra qu'il fasse ce scan, mais qu'au lieu de supprimer les répértoires vides il les inscrive dans un fichier log ou csv.
Il fonctionne tres bien mais j'aurais besoin d'une version alternative. Dans l'état il scanne un répértoire et les sous dossiers et supprime ceux qui sont vide.
Il faudra qu'il fasse ce scan, mais qu'au lieu de supprimer les répértoires vides il les inscrive dans un fichier log ou csv.
Dernière modification par faeze le 14 mars 2018 - 21:54, modifié 1 fois.
- himura95
- Maître
- Messages : 3177
- Inscription : 05 mars 2015 - 20:13
- Localisation : Pontoise
- A remercié : 911 fois
- A été remercié : 562 fois
Re: Besoin d'aide sur SRIPT VBS [en cours]
Petit truc rapide (donc codé avec le cul ^^ )
Enregistrer dans un fichier test.vbs et double-cliquer dessus.
Choisir le dossier à examiner et regarder le résultat
test.vbs :
Enregistrer dans un fichier test.vbs et double-cliquer dessus.
Choisir le dossier à examiner et regarder le résultat
test.vbs :
Code : Tout sélectionner
On Error Resume Next
Set shell = WScript.CreateObject("Shell.Application")
titre="Veuillez indiquer un répertoire"
Set Item = shell.BrowseForFolder(0,titre,&H0001,17)
If isvalue(Item) Then
strDirectory = Item.Title
If InStr(1,strDirectory,":") = 0 Then
FullPath=Item.ParentFolder.ParseName(Item.Title).Path
Else wscript.echo "Ne marche pas pour la racine, merci d'indiquer un répertoire !"
End If
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
set objShell = WScript.CreateObject ("WScript.Shell")
dossier = objShell.CurrentDirectory & "\resultat.txt"
Set f = FSO.OpenTextFile(dossier, 2, true)
ShowSubFolders FSO.GetFolder(FullPath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
If (Subfolder.Size = 0) Then
f.writeLine(Subfolder.Path)
End If
ShowSubFolders Subfolder
Next
End Sub
objshell.Run "notepad " & dossier,1
- faeze
- Mentor
- Messages : 2089
- Inscription : 16 mai 2013 - 01:00
- Localisation : Henin Beaumont
- A remercié : 198 fois
- A été remercié : 118 fois
Re: Besoin d'aide sur SRIPT VBS [en cours]
Oulala ton cul code pas mal dis moi, je me demande comment ca serait avec les mains
Script testé, efficace ca m'a l'air vachement propre, je vais tester en gandeur nature avec tous les médias des chantiers mags, je te dirais ce que ca donne. Mais je ne pense pas qu'il y aura besoin de maintenance sur le vbs. Merci bien la fa mi
Script testé, efficace ca m'a l'air vachement propre, je vais tester en gandeur nature avec tous les médias des chantiers mags, je te dirais ce que ca donne. Mais je ne pense pas qu'il y aura besoin de maintenance sur le vbs. Merci bien la fa mi