problème convertion de fichiersRésolu

Question

bonjour,

voila, je voudrais convertir l'ensemble des fichiers d'un r&#233;pertoire en changeant l'extention qui rest choisi dan un combo box nomm&#233; CmbConv. voici mon code:
il me met "fichiers introuvable"

Private Sub CmdConvert_Click()
Dim OldName As String
Dim NewName As String
'MsgBox "En construction"
repertoire = MainForm.DirList.Path + ""
extension = " "    ' 1 espace
Do
   fich = Dir(repertoire, vbNormal)
        If fich = "" Then Exit Do
   ext = Mid(fich, 1, 3)
        If InStr(extension, ext) = 0 Then
             extension = extension & ext & " "     ' 1 espace             OldName fich & ext: NewName fich & CmbConv.Text
             Name OldName As NewName ' Renommer
        End If
Loop
MsgBox "Op&#233;rations termin&#233;s"
End Sub

merci

Gobillot · Accepted Answer

Salut,

h&#233;h&#233;, finalement on y arrive tout doucement &#224; ma solution

rien ne vaut les solutions classiques.







attention tous les fichiers du r&#233;pertoire seront renomm&#233;s avec l'extension choisi

donc possibilit&#233; de double 



    Dim repertoire As String

    Dim OldName    As String

    Dim NewName    As String

    Dim fich       As String

    

    repertoire = dirList.Path & ""

    

    fich = Dir$(repertoire & "*.*")

    Do While fich <> ""

          OldName = repertoire & fich

          NewName =
repertoire & Right$(fich, InStrRev(fich, ".")) & CmbConv.Text

          Name OldName As NewName

          fich = Dir$()

          Loop


Daniel

aieeeuuuuu · Answer

la fonction DIR te renvoi le nom du fichier avec son extension.
donc lorsque tu fait OldName = fich & ext, tu obtiens monFichier.txt.txt 
c'est pour cela que tu ne retrouve pas ton fichier a la fin.
je pense qu'il faut que tu fasse directement 

Name Fich As NewName

phenX · Answer

daccord, donc j'ai corrig&#233;:

  NewName = fich & CmbConv.Text
  Name fich As NewName ' Renommer

mais je suppose que quand je fait:
   fich = Dir(repertoire, vbNormal)
il faudrais que je supprime l'extention de fich, non? comment faireN?

aieeeuuuuu · Answer

en splitant ton nom de fichier avec le point comme separateur, et en recollant les N-1 premier morceaux

mais ce n'est qu'une solution (pas la mieux) parmis d'autres

il y a des exemple sur le site, fait une recherche et tu trouvera surement ton bonheur

phenX · Answer

eu.....et comment on fait ca?

PCPT · Answer

salut et ton do loop sans condition de sortie? je vois bien ton exit do mais ta condition devrait être en do while ;) Option Explicit Private Sub Form_Load() Const sFile As String = "fichier.txt" Dim iPos As String, a$, b$ iPos = InStrRev (sFile, ".") a = Left$(sFile, iPos - 1) b = Right$(sFile, Len(sFile) - iPos) MsgBox a & vbCrLf & b Unload Me End Sub Coloration syntaxique automatique [AFCK]

PCPT · Answer

ipos as integer

phenX · Answer

alors, j'ai tester le truc de Daniel, ca marche, mis a part u'il en profite pour me shooter les noms des fichiers

Gobillot · Answer

comment &#231;a shooter les noms de fichiers, donne un exemple

j'ai pas test&#233; si fichiers sans extension InStrRev(fich, ".") =  z&#233;ro

qu'est ce qu'on fait de ces fichiers ?

on les modifie en rajoutant l'extension  ?





Dim iPos As Integer

iPos =  InStrRev (fich, ".")



If iPos > 0 Then

    NewName  = repertoire & Right$(fich, iPos) & CmbConv.Text

    Else

    NewName = repertoire & fich  & "." & CmbConv.Text

    End If


Daniel

PCPT · Answer

phenX fait allusion &#224; la fonction Name, apparemment sans avoir lu ton code...

phenX · Answer

j'ai repris ce code:

  Dim repertoire As String
     Dim OldName    As String
     Dim NewName    As String
     Dim fich       As String
     
     repertoire = dirList.Path & ""
     
     fich = Dir$(repertoire & "*.*")
     Do While fich <> ""
           OldName = repertoire & fich
           NewName = repertoire & Right$(fich, InStrRev(fich, ".")) & CmbConv.Text
           Name OldName As NewName
           fich = Dir$()
           Loop

si je le lance sur un dossier ou il y a deux fichier word: "12.doc" et "123.doc", et que je met une convertion en txt, ils deviennet respectivement:

".doc.txt" et "doc.txt"

phenX · Answer

a mon avis ce doit &#234;tre un probl&#232;me dans la ligne
NewName = repertoire & Right$(fich, InStrRev(fich, ".")) & CmbConv.Text
parceque c'est la que l'on d&#233;fini le nouveau nom mais je vois pas....

Gobillot · Answer

ok je vois, erreur de copie:



NewName = repertoire & Left$(fich, InStrRev(fich, ".")) & CmbConv.Text

Daniel

phenX · Answer

super

merci a tous , ca fonctionne

Problème convertion de fichiers

14 réponses

Discussions similaires