Discussion :

[MartinezGarcia]

Bonjour à tous !

Mon problème et le suivant...
J'aimerais, si possible, renommer plusieurs fichier de la façon suitante :

Avant :
salut.edi
bonjour.edi

Après
11022008salut.edi
11022008bonjour.edi
(ajouter la date système devant le nom du fichier)
Est-ce possible ?
Merci d'avance

[lephyrexian]

Bonjour a toi,

Oui oui c'est possible j'ai deja fait un script comme ca

Voici le code

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
'*****************************************************
'
'Script permettant de tester l_existence d'un fichier
'et renomme le fichier s_il existe
'
'*****************************************************
 
Dim fs
 
Monfichier = "Repertoire ou se trouve le fichier"
 
Set fs = CreateObject("Scripting.FileSystemObject")
ExistFile = fs.FileExists(Monfichier)
 
If ExistFile then
 
   'Le fichier existe
 
   dateheure = month(date) & "_" & day(date) & "_" & year(date) & "_" & time
   dateheure2 = replace(dateheure,":", "_")
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set aFile = fso.GetFile(Monfichier)
 
   partfic = split(Monfichier,".")
   Monfichier = partfic(0) & "_" & dateheure2 & ".dat"
 
 
   aFile.Move Monfichier
 
else
 
   'le fichier n_existe pas
   wscript.echo "Le Fichier n'existe pas!!"
 
end if

[MartinezGarcia]

Je suis impréssioné de ta rapidité !!!
010101011011 merci

[koKoTis]

j'ai trouver ca plu simple:

Code :

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

1
2
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\Dossier\toto.txt" , "C:\Dossier\titi.txt"

[MartinezGarcia]

Merci c'est cool !!!!