Discussion :

[firemandiablo95]

Bonjour à tout le monde,

Je suis actuellement entrain de réecrire un script présentement en batch, en .vbs
N'étant pas dutout développeur, j'ai quelques problémes pour "traduire" certaines lignes...

Voici la 1ère: forfiles /p z:\scripts\logs /m log_%1.log /c "cmd /c if @fsize GTR 300000 del @path"

Cette ligne test les fichiers log_%1.log, ou %1 est une variable determinée lors de l'exécution du script, et le supprime si sa taille est superieur à 300 Mo...

Comment pourrais je faire ces actions en vbs svp ?

[spantemonium]

liste files

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Scripts"
 
Set objFolder = objFSO.GetFolder(objStartFolder)
 
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo  "Nom de fichier : " & objFile.Name
    Wscript.Echo "Taille : " & objFile.FileSize
Next

affiche le nom des fichiers et leur taille.

pour les arguments :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set objArgs = WScript.Arguments
argument1 = objArgs(0)
argument2 = objArgs(1)
argument3 = objArgs(2)
'etc...

[firemandiablo95]

Merci beaucoup pour cette réponse. Si je comprend bien:

objStartFolder = "C:\Scripts" --> déclaration du dossier où se trouvent les fichiers
Pour le reste, je ne comprend pas bien l'utilité... un affichage d'un nom de fichier, ainsi que sa taille...
Et puis aucune suppression par la suite ?

Je suis un peu perdu, si tu pouvais m'éclairer stp ?

[spantemonium]

Je t'ai indiqué où trouver les informations, je n'ai pas dit que je ferai le script


il faudra probablement dans ta boucle for ajouter un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If objFile.FileSize > 300000 then 'suis pas certain de la taille mais avec l'echo  de dessus tu peux le vérifier
objFSO.DeleteFile(objFile.Name)
End If