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

Vous trouverez ici les développements et les logiciels faits maison et qui répondent au mieux à nos besoin.

Modérateur : Modérateurs

Avatar de l’utilisateur
faeze
Mentor
Mentor
Messages : 2075
Inscription : 16 mai 2013 - 01:00
Localisation : Henin Beaumont
A remercié : 181 fois
A été remercié : 112 fois

Besoin d'aide sur SRIPT VBS [terminé]

Message par faeze » 13 mars 2018 - 23:19

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.
Dernière modification par faeze le 14 mars 2018 - 21:54, modifié 1 fois.

Avatar de l’utilisateur
himura95
Maître
Maître
Messages : 3068
Inscription : 05 mars 2015 - 20:13
Localisation : Pontoise
A remercié : 828 fois
A été remercié : 464 fois

Re: Besoin d'aide sur SRIPT VBS [en cours]

Message par himura95 » 14 mars 2018 - 08:50

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

Avatar de l’utilisateur
himura95
Maître
Maître
Messages : 3068
Inscription : 05 mars 2015 - 20:13
Localisation : Pontoise
A remercié : 828 fois
A été remercié : 464 fois

Re: Besoin d'aide sur SRIPT VBS [en cours]

Message par himura95 » 14 mars 2018 - 15:49

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
Image

Avatar de l’utilisateur
faeze
Mentor
Mentor
Messages : 2075
Inscription : 16 mai 2013 - 01:00
Localisation : Henin Beaumont
A remercié : 181 fois
A été remercié : 112 fois

Re: Besoin d'aide sur SRIPT VBS [en cours]

Message par faeze » 14 mars 2018 - 21:14

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 :mrgreen:

Avatar de l’utilisateur
himura95
Maître
Maître
Messages : 3068
Inscription : 05 mars 2015 - 20:13
Localisation : Pontoise
A remercié : 828 fois
A été remercié : 464 fois

Re: Besoin d'aide sur SRIPT VBS [en cours]

Message par himura95 » 14 mars 2018 - 21:50

C'est un plaisir :)
Image

Répondre

Revenir à « Développements et logiciels maison »