Besoin d'aide ds mon code...

Question

Bonjour,

Voici mon code. Je souhaite renommer tout les fichiers de mon r&#233;pertoire _.txt en .txt mais l&#224; je ne vois pas le soucis.
Pouvez vous m'aider svp? (cest en vbnet)

Merci d'avance.

For 
Each foundFile 
As 
String 
In 
My.Computer.FileSystem.GetFiles(
"C:	est", _


FileIO.SearchOption.SearchTopLevelOnly, 
"*_.txt")



Dim foundFileInfo 
As 
New System.IO.FileInfo(foundFile)



My.Computer.FileSystem.RenameFile(foundFile, 
"C:	est\_*.txt" & foundFileInfo.Name)



Next

econs · Answer

Dans ta boucle For, place l'instruction suivante :



MessageBox.Show("C:	est\_*.txt" & foundFileInfo.Name)



Et tu verras que tes nouveaux noms de
fichiers n'ont pas du tout le bon format. En l'occurence, je crois que
le signe * est interdit dans un nom de fichier.






Manu

bimbo777 · Answer

non mais le * c'est pour prendre tout les fichiers du dossiers qui ont l'extension (txt)

l&#224; il me dit 

L'argument 'newName' doit &#234;tre un nom et non un chemin d'acc&#232;s relatif ou absolu : 'C:	est\*.test_.txt'.
Nom du param&#232;tre : newName

tu comprends le soucis?

cs_rt15 · Answer

Hou que c'est moche le .NET.

Pardon.

Je dirais qu'il y a quelques soucis d'algo...

D'abord, tu dois créer un objet qui contient la liste des différents fichiers correspondant.
Ensuite, tu parcours cette liste avec un for each
A chaque boucle tu récupère un nom de fichier, et tu le renomme.

Pour le renommer, tu vas certainement devoir remplacer les 5 derniers caractères par les quatres nouveaux.

Mais je crois que le DOS permet de faire des renommage avec des jockers (* et le reste).

cs_JMO · Answer

Bonjour,

'Exemple pour renommer les fichiers "name_.txt" en "name.txt"
Dim Fso, Fichier, Dossier
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder("d:	est")
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 5) = "_.txt" Then
    Fichier.Name = Replace(Fichier.Name, "_.txt",".txt")
End If
Next
Set Dossier = Nothing
Set Fso = Nothing

jean-marc

bimbo777 · Answer

Bonjour Jean Marc, 

J'ai un soucis avec ta ligne :

If Right(Fichier.Name, 5) = 
"_.txt"
 
Then

en effet je suis sous visual studio (vbnet :) et le "Right" est soulign&#233;, donc il ne le reconnait pas en temps que tel.
Peux tu m'expliquer? Y a t'il une autre soluction?

Laurent VBn'ewbie

Merci encore.

rvblog · Answer

Salut bimbo777, il me semble (pour continuer à utiliser ton style), qu'en DOS, on aurait fait : ren tonchemin/*_.txt *.txt d'où, en VB6 : Shell "ren tonchemin/*_.txt *.txt" à toi d'adapter en .Net. à+ rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

cs_JMO · Answer

Bonjour,

'Extraction de chaine de caractères à partir d'une occurence ("Separator")

MyString = "toto_.txt" 

MySeparator = "_."   'occurence à rechercher

MyArray = Split(MyString, MySeparator, -1, 1) 'creation du tableau

For i = 0 to UBound(MyArray) 'visu de chaque item du tableau
Resultat = Resultat &vbCrLf& " item=" & i & "    " & MyArray(i) 
Next

MsgBox Resultat 

jean-marc

Besoin d'aide ds mon code...

7 réponses

Discussions similaires