Définir un repertoire courant...help

bimbo777 Messages postés 63 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 17 janvier 2007 - 26 avril 2006 à 11:48
bimbo777 Messages postés 63 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 17 janvier 2007 - 26 avril 2006 à 11:49
Bonjour,

Mon code renomme des fichiers qui sont présents ds e:test. Mon soucis est que j'aimerai aussi que ce renommage s'applique aussi aux sous dossiers présents dans e: test...comment faire svp...

Voici le code:

Dim Fso, Fichier, DossierFso = CreateObject(

"Scripting.FileSystemObject")Dossier = Fso.GetFolder(

"e:\test")

For
Each Fichier
In Dossier.Files

If Microsoft.VisualBasic.Right(Fichier.Name, 5) =
"_.txt"
ThenFichier.Name = Replace(Fichier.Name,

"_.txt",
".txt")

End
If

If Microsoft.VisualBasic.Right(Fichier.Name, 5) =
"_.lol"
ThenFichier.Name = Replace(Fichier.Name,

"_.lol",
".txt")

End
If

Merci beaucoup.

Loo

1 réponse

bimbo777 Messages postés 63 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 17 janvier 2007
26 avril 2006 à 11:49
ps: c'est du vbnet
0
Rejoignez-nous