Renommer les fichiers...

Résolu
Signaler
Messages postés
128
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
8 avril 2008
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Bonjour,

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

MAGICSMACKS

4 réponses

Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
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, "é", "e")
renommer ton fichier

c'est loin d'etre la solution la plus optimisée, mais une des plus simple a mettre en oeuvre.
3
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
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.

_

<spa></spa>
0
Messages postés
128
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
8 avril 2008

c'est pour renommer tous les fichiers d'un dossier donné...

Merci pour vos réponses, celle de aieeeuuuuuuuuuuuuuuu me convient parfaitement

Merci à tous

MAGICSMACKS
0
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Bonjour,

Code à adapter pour remplacer les caractères voulus.

Dim fso, Dossiers, fic, fichiers, Path
Path = "e:\test"
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, "ô", "TATA")
Next
0