Renommer plusieurs fichiers.

Question

Salut tout le monde.

J'aurais besoin de l'aide de qq'un pour un petit problème qui est le suivant:
J'ai un dossier sur mon ordi contenant un certain nombre de fichiers. Les noms de ces derniers commence tous par ap.
Je voudrais à l'aide d'une appli console renommer tous ces fichiers en gardant le même nom avec l'extension .txt à la fin.
J'arrive à le faire en prenant les fichier un par un (je suis obligé d'écrire à chaque fois le nom du fichier) mais j'aimerai faire une boucle pour ne pas avoir à rentrer à chaque fois les noms des fichier. J'ai tenté de faire sa:

 Module Module1

    Sub Main()

        Dim chemin As String = ""

        Console.Write("donnez le chemin ou se trouve les fichiers à renommer:")
        chemin = Console.ReadLine
        For Each foundFile As String In chemin
            My.Computer.FileSystem.RenameFile("chemin\ap.*", "ap.*.txt")
        Next


    End Sub
End Module

mais sa ne fonctionne pas. Et je ne vois pas trop comment faire.
Merci d'avance!

Taur33 · Answer

Il faut peut etre que tu précise l'extension de départ de tes fichiers
My.Computer.FileSystem.RenameFile("chemin\ap.*.quelquechose", "ap.*.txt")

alvinemambele · Answer

tu programme sur .Net ou vb6
une préçision va me positionner peut être je t'enverais une solution si c VB6


Un orateur trop long est comme une horloge qui sonne les minutes!

Titcheu · Answer

@ Taur33 non sa ne change rien si je met une extension >>tjr la même erreur

@alvinemambele: je suis sur VB2010 donc c'est du .net il me semble... mais le VB6 n'est pas convertible en VB2010??

En tout cas merci pour vos réponses!!!

cs_ShayW · Answer

Bonsoir 

  Sub Main()
        Dim mypath As String
        Console.WriteLine("Enter path")
        Dim dest As String
        mypath = Console.ReadLine
        Dim di As New IO.DirectoryInfo(mypath)
        Dim aryFi As IO.FileInfo()
        aryFi = di.GetFiles()
        Dim fi As IO.FileInfo

        For Each fi In aryFi
            If fi.Name.IndexOf("ap") > -1 Then
                dest = fi.Name.Substring(0, fi.Name.Length - fi.Name.IndexOf(fi.Extension))
                dest = fi.DirectoryName & "" & dest & ".txt"
                fi.MoveTo(dest)
            End If
        Next
    End Sub

Titcheu · Answer

Merci; sa marche très bien!!

Renommer plusieurs fichiers.

5 réponses

Votre réponse

Discussions similaires