Discussion :

[DirtyA:ex]

Bonjour,

je voudrais faire un script qui recherche dans un dossier et ses sous-dossiers
les fichiers ayant un certain type (.pp2) et dont la derniere date de modif est un jour avant av la date système puis mettre les noms (avec leurs chemins) de ces fichiers ds un fichier .txt.
Je suis un noob de chez noob en vbs mais jai des notions de programmation
(c,c++, très très vite fait vba).
je poste directement pour de laide, je nai pas le temps de plancher sur les tuto, car jai besoin de cela très rapidement
donc toutes personnes qui pourraient me filer un coup de main, par exemple en me donnant des codes qui se rapprocheraient de ca, seraient des anges
merci davance pour toute aide

Alex

[SfJ5Rpw8]

et le code on le livre ou ..? un numéro de compte pour facturation .. ..




tréve... utilise filesystem object.. tu devrai trouver des exmples en VBS .. ou en VB.. à Adapter...

tiens j'ai écri cela :

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
25
26
27
28
29
30
31
32
33
34
 
Dim fso 'As FileSystemObject
Dim i 'As Integer
Dim ficListe
 
 i = 0
 Dim FolderInit 'As Scripting.Folder
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set FolderInit = fso.GetFolder("D:\Donnees\") 'Repertoire à parcourir
 Set ficListe = fso.CreateTextFile("d:\tmp\liste.txt")
 traiteRepertoire FolderInit
ficListe.Close
 
 
'
'  Fonction récursive...
'
Sub traiteRepertoire(SousFolder) 'As Folder)
 Dim NewFolder 'As Scripting.Folder
 Dim f 'As File
  For Each f In SousFolder.Files
       If (f.DateLastModified >= Date-1) And Right(f.Name, 3) = "pp2" Then
      i = i + 1
      wscript.echo  i & ":" & f.Path 
      ficListe.WriteLine f.Name
    End If
  Next
  For Each NewFolder In SousFolder.SubFolders
    'wscript.echo  NewFolder.Path
    traiteRepertoire NewFolder
  Next
 
 
End Sub

à toi de tester...

[DirtyA:ex]

tu dechires grd merci

[SfJ5Rpw8]

une fois testé pense au bouton (en dessous..)