Renommer un fichier en vbs
Résolu
cs_islamway
Messages postés
24
Date d'inscription
samedi 6 mai 2006
Statut
Membre
Dernière intervention
23 décembre 2010
-
10 déc. 2010 à 10:11
moons17 Messages postés 2 Date d'inscription vendredi 17 février 2012 Statut Membre Dernière intervention 20 octobre 2015 - 17 févr. 2012 à 14:45
moons17 Messages postés 2 Date d'inscription vendredi 17 février 2012 Statut Membre Dernière intervention 20 octobre 2015 - 17 févr. 2012 à 14:45
6 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
10 déc. 2010 à 10:40
10 déc. 2010 à 10:40
Faire un Move...
http://msdn.microsoft.com/en-us/library/kxtftw67(v=VS.85).aspx
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
http://msdn.microsoft.com/en-us/library/kxtftw67(v=VS.85).aspx
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
lediablo
Messages postés
214
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
2 août 2012
10 déc. 2010 à 10:43
10 déc. 2010 à 10:43
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
10 déc. 2010 à 10:48
10 déc. 2010 à 10:48
dommage de faire intervenir WMI la dedans, deja que FSO est lent, je trouve...
pas compris l'utilisation de Move, et ben...
l'exemple est pourtant clair :
Y'a pas plus simple, franchement....
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
pas compris l'utilisation de Move, et ben...
l'exemple est pourtant clair :
With CreateObject("Scripting.FileSystemObject")
.MoveFile "c:\tmp\Ancien Nom.txt", "c:\tmp\Nouveau nom.txt"
End With
Y'a pas plus simple, franchement....
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
moons17
Messages postés
2
Date d'inscription
vendredi 17 février 2012
Statut
Membre
Dernière intervention
20 octobre 2015
1
17 févr. 2012 à 14:45
17 févr. 2012 à 14:45
l'astuce est bonne , une solution simple est de modifier l'attribe name de l'objet Getfile
Set oFile = objFSO.GetFile(FullFile)
RetDate=UniversalDate() '* fonction de chrondatage
wscript.echo oFile.name
NewName ="_"&RetDate(0) &"_" & oFile.name
wscript.echo NewName
ofile.name=NewName
Set oFile = objFSO.GetFile(FullFile)
RetDate=UniversalDate() '* fonction de chrondatage
wscript.echo oFile.name
NewName ="_"&RetDate(0) &"_" & oFile.name
wscript.echo NewName
ofile.name=NewName
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_islamway
Messages postés
24
Date d'inscription
samedi 6 mai 2006
Statut
Membre
Dernière intervention
23 décembre 2010
10 déc. 2010 à 10:44
10 déc. 2010 à 10:44
Merci pour votre réponse.
Mais franchement j'ai pas compris l'utilisation du Move.
toutefois, j'ai trouvé le code suivant:
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Cim_Datafile where Name = " _
& "'c:\\scripts\\toggle_service.vbs'")
For Each objFile in colFiles
errResult = objFile.Rename("c:\scripts\toggle_service.old")
Wscript.Echo errResult
Next
Mais franchement j'ai pas compris l'utilisation du Move.
toutefois, j'ai trouvé le code suivant:
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Cim_Datafile where Name = " _
& "'c:\\scripts\\toggle_service.vbs'")
For Each objFile in colFiles
errResult = objFile.Rename("c:\scripts\toggle_service.old")
Wscript.Echo errResult
Next
cs_islamway
Messages postés
24
Date d'inscription
samedi 6 mai 2006
Statut
Membre
Dernière intervention
23 décembre 2010
10 déc. 2010 à 10:48
10 déc. 2010 à 10:48
Merci infiniment:D
