Script qui compte le nombre de fichiers dans dossier s’il existe

Présentation

Vous trouvez un script qui vous demande l’adresse d’un dossier donner

Et vous renvoi le nombre de fichier dans ce dossier

Si le chemin est erroné, il vous informe que l’adresse saisie est erronée

CODE SCRIPT

' script qui compte le nombre de fichier ou de dossier

 set fs = CreateObject("Scripting.FileSystemObject")

folder = InputBox("Entrer l'adresse du dossier!", "Nombre de fichier dans un dossier", "C:\")

if fs.folderExists(folder) then

set handle = fs.GetFolder(folder)

filecount = handle.files.count

MsgBox "Le dossier contient " & filecount & " fichiers!"

else

MsgBox "Le dossier " & folder & " est inexistant!"

end if