Renommer les fichiers...Résolu

Question

Bonjour,

Je recherche &#224; faire un script qui modifie tous les noms de fichiers qui comporte des accents, qui sont des caract&#232;res non reconnus par un syst&#232;me linux(serveur). Quel type de fonction puis-je utiliser..? 
(je suis d&#233;butant)
en vous remerciant d'avance.
(Je poss&#232;de VB 6 enterprise.)

MAGICSMACKS

aieeeuuuuu · Accepted Answer

salut

sur quelle partie as tu besoin d'aide ?

renommer les fichiers ou traiter une chaine de caractere ?

ce que tu peux faire :
prendre tes fichiers un par un.
recuperer le nom.
utiliser la fonction Replace autant de fois que necessaire (un fois par caractere a remplacer)
exemple nom = replace(nom, "&#233;", "e")
renommer ton fichier

c'est loin d'etre la solution la plus optimis&#233;e, mais une des plus simple a mettre en oeuvre.

cs_DARKSIDIOUS · Answer

Tous les noms de fichiers d'un dossier particulier ou de tout ton disque ? Utilise la l'insctruction VB Name As pour renommer un fichier. _

magicsmacks · Answer

c'est pour renommer tous les fichiers d'un dossier donn&#233;...

Merci pour vos r&#233;ponses, celle de aieeeuuuuuuuuuuuuuuu me convient parfaitement

Merci &#224; tous

MAGICSMACKS

cs_JMO · Answer

Bonjour,

Code &#224; adapter pour remplacer les caract&#232;res voulus.

Dim fso, Dossiers, fic, fichiers, Path
Path = "e:	est"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(Path)
Set fic = Dossiers.Files


'pour chaque fichier de mon objet files de mon objet fso...:)
For Each fichiers in fic
    fso.MoveFile fichiers, Path & Replace(fichiers.Name, "_", "TOTO")
    fso.MoveFile fichiers, Path & Replace(fichiers.Name, "&#244;", "TATA") 
Next