Discussion :

[deidoboy78]

Bonjour,
Je suis novice sur le dev., donc merci d'être comprehensif si je pose trop de questions.. Mon problème est que, je suis en train d'écrire un script (vbs) afin d'afficher la derniere date de modification d'un type de fichier, ayant un nom long, contenu dans un repertoire.. Il peut y avoir plusieurs fichiers du même type mais incrémentés différemment. Par exple :
- FW19-000000000157210-BO00-DELIVERY_ORDER.txt
- FW20-000000000157211-BO01-DELIVERY_ORDER.txt
Mon script est OK, mais je ne sais pas comment : Renommer le nom_fichier afin que tous les fichiers soient parcourus?

Mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set fso  = CreateObject("Scripting.FileSystemObject" ) 
 
If fso.FileExists("C:\Temp\exempleXML\FW19-000000000157210-BO00-DELIVERY_ORDER.txt") = True Then 
 Set oFile = fso.GetFile("C:\Temp\exempleXML\FW19-000000000157210-BO00-DELIVERY_ORDER.txt" ) 
 dtmCreationDate = oFile.DateLastModified
 FileName = oFile.Name
 MsgBox (FileName & " : " & dtmCreationDate)
 Set oFile = Nothing 
Else 
 MsgBox ("File not found") 
End if

Merci de votre retour

[jabbounet]

pourquoi les renommer?

il est probablement plus simple de parcourir les fichiers présent dans le répertoire et de les traiter que de les renommer afin de les traiter.

je ne connais pas vbs. mais en parcourant le web je suis tombé sur ce bout de code (a réadapter).

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
 
Dim objFSO, objDossier, objFichier, objResultat
 
...
Repertoire = "C:\Document\Excel"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Repertoire)
Set objResultat = objFSO.CreateTextFile(.....)
...
If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If (InStr(1, objFichier.Name, ".txt", 1) > 0) Then
            objResultat.WriteLine objFichier.Name
        End If
     Next
   End If