[DEV]Besoin d'aide sur SRIPT VBS [terminé]

[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.

[himura95]

Fait péter ton script çà devrait pas être trop dur

[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

[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

[himura95]

C'est un plaisir