phenX
Messages postés704Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention28 août 2012
-
10 mars 2006 à 10:42
phenX
Messages postés704Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention28 août 2012
-
10 mars 2006 à 15:56
bonjour,
voila, je voudrais convertir l'ensemble des fichiers d'un répertoire en changeant l'extention qui rest choisi dan un combo box nommé 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érations terminés"
End Sub
aieeeuuuuu
Messages postés698Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention20 mai 20113 10 mars 2006 à 11:37
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
phenX
Messages postés704Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention28 août 2012 10 mars 2006 à 15:47
a mon avis ce doit être un problème dans la ligne
NewName = repertoire & Right$(fich, InStrRev(fich, ".")) & CmbConv.Text
parceque c'est la que l'on défini le nouveau nom mais je vois pas....