Mettre des infos ds Fichier txt

Version imprimable

19/07/2006, 13h34
DirtyA:ex

Mettre des infos ds Fichier txt

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

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

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

tiens j'ai écri cela :

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
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... ;)

20/07/2006, 14h30
DirtyA:ex

tu dechires grd merci
20/07/2006, 14h34
SfJ5Rpw8

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