Discussion :

[sophie447]

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

[ludojojo]

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 :

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

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.

[pitchalov]

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 :

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

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