home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2007 June/July / Windows News Hors série Numéro 34 juin juillet 2007.iso / Rédaction / Astuces Windows XP / renommer.vbs < prev    next >
Encoding:
Text File  |  2006-12-28  |  347 b   |  9 lines
  1. Dossier = Inputbox("Entrez le chemin complet du dossier")
  2. Car1 = Inputbox("Entrez le caractΦre α remplacer")
  3. Car2 = Inputbox("Entrez le caractΦre de remplacement")
  4. Set oFSO = CreateObject("Scripting.FileSystemObject")
  5. Set oFolder = oFSO.GetFolder(Dossier)
  6. For Each oFile In oFolder.Files
  7.     oFile.Name = Replace(oFile.Name, Car1, Car2)
  8. Next
  9.