Page 1 sur 1
Besoin d'aide sur SRIPT VBS [terminé]
Publié : 13 mars 2018 - 23:19
par faeze
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.
Re: Besoin d'aide sur SRIPT VBS [en cours]
Publié : 14 mars 2018 - 08:50
par himura95
Fait péter ton script çà devrait pas être trop dur
Re: Besoin d'aide sur SRIPT VBS [en cours]
Publié : 14 mars 2018 - 15:49
par himura95
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 :
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
Re: Besoin d'aide sur SRIPT VBS [en cours]
Publié : 14 mars 2018 - 21:14
par faeze
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
Re: Besoin d'aide sur SRIPT VBS [en cours]
Publié : 14 mars 2018 - 21:50
par himura95
C'est un plaisir