Recherche fichier et dossier

bonjour,

Je recherche un moyen pour lister tous les fichiers et dossiers dont le nom comporte plus de 20 caractères.

Avez vous une solution à me suggerer.

Merci d'avance

Sophie 447

Bonjour,
En effet la meilleure solution c'est le script VBS.
Voici un script que j'ai conçu pour lister tous les fichiers d'un de mes dossiers qui ont plus de 30 jours.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit Dim oFSO, oFolder, sDirectoryPath Dim oFileCollection, oFile, sDir Dim iDaysOld   sDirectoryPath = "D:\Mes Documents\Screenshot"   iDaysOld = 30   Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(sDirectoryPath) Set oFileCollection = oFolder.Files For each oFile in oFileCollection   If oFile.DateLastModified < (Date() - iDaysOld) Then oFile.Delete(True) End If   Next   Set oFSO = Nothing Set oFolder = Nothing Set oFileCollection = Nothing Set oFile = Nothing

---

Tu peux t'en inspirer, il te suffit de modifier les conditions... Cela ne devrai pas trop poser de problème.
Je te conseil néenmoin si tu rencontre des difficultés, à déposer un post directement sur le forum VBS.

Bonjour,

Effectivement ce n'est pas très dur à réaliser en vbs.

Je te conseille de créer une fonction récursive qui parcourra tous les dossiers et fichiers, et tu pourras récupérer et lister les informations que tu recherche.

En gros, pour démarrer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ListBigNames (objFolder) If Len(objFolder.Name) > 20 Then MsgBox objFolder.Name For Each objFile In objFolder.Files If Len(objFile.Name) > 20 Then MsgBox objFile.Name Next For Each objSubFolder In objFolder.SubFolders ListBigNames objSubFolder Next End Sub   Set objFso = CreateObject("Scripting.FileSystemObject") Set objBaseFolder = objFso.GetFolder("C:\test") ListBigNames objBaseFolder

---