Discussion :

[kenzo080]

Bonjour,

Je cherche un moyen pour rajouter la date du jour a un nom de fichier.
Ce que je fais dans un premier temps, et de changer le nom du fichier, puis par la suite, je veux rajouter la date du jour a ce fichier.
Voici le code et merci d avance pour l aide

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Explicit
 
Dim StdIn:  Set StdIn = WScript.StdIn
Dim StdOut: Set StdOut = WScript
Dim fso:    Set fso = CreateObject("Scripting.FileSystemObject")
 
Dim FilesRenamed:   FilesRenamed = 0
Dim FilesSkipped:   FilesSkipped = 0
 
Main
 
set fso = nothing
 
Sub Main
 
   'StdOut.Echo "The version of WSH on this computer is: " & WScript.Version
 
   'get the parameter list   
   dim objArgs: Set objArgs = WScript.Arguments
 
   if objArgs.Count > 2 then
 
	dim path: path = objArgs(0)  'path
	dim olds: olds = objArgs(1)  'string to replace
	dim news: news = objArgs(2)  'new string
 
	dim ext1: ext1 = ""
	dim ext2: ext2 = ""
	if objArgs.Count > 3 then ext1 = objArgs(3)  'old extension
	if objArgs.Count > 4 then ext2 = objArgs(4)  'new extension			
 
	dim CurrentFolder: Set CurrentFolder = fso.GetFolder(path)
	'StdOut.Echo "Warning: All files within the directory """ & CurrentFolder.Path & """ will be renamed."
 
	ProcessFolder CurrentFolder , olds, news, ext1,ext2
 
 
   else
	   StdOut.Echo "Usage: rename.vbs [folder path] [string to replace] [new string] [old extension] [new extension] "
   end if
 
End Sub
 
'
'ProcessFolder
'  
'  Iterates  thru the file list replacing patterns and the extension if available
'
Sub ProcessFolder (ByVal folder, ByVal oldTag, ByVal newTag, ByVal extOld, ByVal extNew)
   Dim Files: Set Files = folder.Files
 
   Dim File
   For Each File In Files
      If inStr(1,File.Name,oldTag) > 0 Then         
         'File.Move Replace(File.Path,Find,newTag)         
         'StdOut.Echo Replace(File.Path,oldTag,newTag) & vbCRLF
 
         if (extOld <> "" and extNew <> "") then
			'StdOut.Echo Replace(Replace(File.Path,oldTag,newTag),extOld,extNew)
			File.Move Replace(Replace(File.Path,oldTag,newTag),extOld,extNew)
		 else
			'StdOut.Echo Replace(File.Path,oldTag,newTag)
			File.Move Replace(File.Path,oldTag,newTag)
         end if
 
         FilesRenamed = FilesRenamed + 1
      Else
         FilesSkipped = FilesSkipped + 1
       End If
   Next
End Sub

[SfJ5Rpw8]

et le probléme c'est quoi ...? ton code fonctionne-t'il..?

[kenzo080]

salut,

mon code fonctionne bien.....lorsque je tape en commande dos le renamefiles "mon repertoire" "mon nom de fichier" "partie du nom de fichier que je veux supprimer", alors ca fonction.
renamesfiles est le nom de mon .vbs.
Ce que je cherche a faire est d avoir ce nouveau nom de fichier avec la date du jour.
J espere que j ai bien expliqué,lol

[SfJ5Rpw8]

ben on sait pas ou tu veu mettre ta date ... voir :

Code :

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

wscript.echo Year(date) & Month(date) & Day(Date)

[kenzo080]

désolé j ai mal expliqué mon probleme.
J ai un fichier qui s appelle test.txt, je veux le renommer en fichier20061204.txt (soit avec la date d aujourd hui).

Ce qui marche en ce moment dans mon script est quand je tape en commande dos:
renamefiles.vbs "c:\" "test.txt" "fichier.txt", alors le test.txt se renomme bien fichier.txt.

Mon probleme est que je ne voi pas comment faire pour lui rajouter la date du jour, soit qu il devient fichier20061204.txt si je lance le script aujourd hui

[SfJ5Rpw8]

il te suffit d'utiliser les fonction Year,Month et day ..par exemple...:

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
 
Sub ProcessFolder (ByVal folder, ByVal oldTag, ByVal newTag, ByVal extOld, ByVal extNew)
   Dim Files: Set Files = folder.Files
 
   Dim stDate 'Date actuelle
   dim stNouveauNom 'Nouveau nom de fichier
   stDate = Year(date) & Right("0" & Month(date),2) & Right("0" & Day(date),2)
 
   Dim File
   For Each File In Files
      If inStr(1,File.Name,oldTag) > 0 Then        
         'File.Move Replace(File.Path,Find,newTag)        
         'StdOut.Echo Replace(File.Path,oldTag,newTag) & vbCRLF
 
         if (extOld <> "" and extNew <> "") then
            'StdOut.Echo Replace(Replace(File.Path,oldTag,newTag),extOld,extNew)
            stNouveauNom =  Replace(Replace(File.Path,oldTag,newTag),extOld,extNew)
         else
            'StdOut.Echo Replace(File.Path,oldTag,newTag)
            stNouveauNom = Replace(File.Path,oldTag,newTag)
         end if
 
          'Remplace le . par date.
          FileMove replace(stNouveauNom,".","." & stDate)
 
 
         FilesRenamed = FilesRenamed + 1
      Else
         FilesSkipped = FilesSkipped + 1
       End If
   Next
End Sub