[VB6] Aide plz

Aide plz [VB6] - Programmation

Marsh Posté le 10-07-2001 à 11:00:39    

Bonjour,
Je cherche un moyen de renommer plusieurs fichiers en VB. Explication: je possède plusieurs fichiers .txt avec des noms de diverses tailles dans un répertoire. Y aurait-il un moyen de les renommer automatiquement un par un (avec une application VB) de la façon suivante: 01.txt, 02.txt, 03.txt, etc...? Est-ce qu'il existe une fonction qui permet d'utiliser les commandes Ms-Dos?
Merci d'avance.

Reply

Marsh Posté le 10-07-2001 à 11:00:39   

Reply

Marsh Posté le 10-07-2001 à 11:55:13    

filecopy "c:\ancien.bat", "c:\nouveau.bat" (à compléter).

Reply

Marsh Posté le 10-07-2001 à 12:16:08    

Name oldpathname As newpathname
Merci tagada tu m'as mis sur la voie :hello:

Reply

Marsh Posté le 10-07-2001 à 13:35:48    

De rien:)

Reply

Marsh Posté le 10-07-2001 à 14:57:31    

J'ai encore un probleme :-( !
Il y a plusieurs fichiers dans mon répertoire et je ne réussi qu'à modifier un seul fichier.
Comment faire pour passer au fichier suivant?
 :pt1cable:

Reply

Marsh Posté le 10-07-2001 à 20:04:46    

Code :
  1. Dim sFile As String
  2.     Dim lNbFiles as long
  3.     sFile = Dir("c:\",vbNormal)
  4.     lNbFiles = 1
  5.     copyfile sfile, "c:\list\" & lNbFile & ".txt"
  6.     lNbFiles = 2
  7.     Do While (sFile <> vbNullString)
  8.        scFile = Dir
  9.        copyfile sfile, "c:\list\" & lNbFile & ".txt"
  10.        lNbFile = lNbFile + 1
  11.     Loop


 
ce que sa fait, c que ca lit tout la liste des fichiers qui se trouve dans le "c:\" et ca les renomes par le nombre de fichiers trouver.txt.  
 
c'est un peu le bordel car pas coder dans VisualBasic ;) netoie un peu le code et cela devrais fonctioner!!

Reply

Marsh Posté le 10-07-2001 à 21:40:49    

Thanx Ventilo!!

Reply

Marsh Posté le 10-07-2001 à 23:18:20    

Mais de rien!!
http://www.smilie.li/grafixx/happy/drinka.gif

Reply

Marsh Posté le 11-07-2001 à 10:34:11    

Encore un petit probleme pour renommer mes fichiers :-( (je suis trop nul c'est pour ça).
Je met tous les fichiers à renommer dans mes documents. J'utilise la procédure suivante:
 
Sub main()
 
  Dim NomFic As String    
  Dim Exten As String    
  Dim Path As String    
  Dim i As Integer        
   
  i = 0
  Path = "c:\Mes Documents\"
  NomFic = Dir(Path & "*.*", vbNormal)
   
  Do
    i = i + 1
    If i < 10 Then
      Name Path & NomFic As Path & "NouveauNom 00" & i & ".txt"
    ElseIf i >= 10 And i < 100 Then
      Name Path & NomFic As Path & "NouveauNom 0" & i & ".txt"
    Else
      Name Path & NomFic As Path & "NouveauNom " & i & ".txt"
    End If
    NomFic = Dir
  Loop While NomFic <> vbNullString
  Exit Sub
 
End Sub
 
Ca marche bien pour renommer les fichiers sauf qu'au final il manque parfois des fichiers comme "NouveauNom 001.txt". En fait ce même fichier a été renommer une fois de trop.
 
Pourquoi donc tant de haine envers moi Visual Basic!!!!! :gun:

Reply

Marsh Posté le 11-07-2001 à 10:58:26    

Bon, j'ai enfin réussi ;-) mais j'ai trouvé la solution tout à fait par hasard. J'ai remarqué que lorsque on lancait la procédure une fois, il y a des erreurs de numérotation des fichiers, par contre lorsque qu'on relance la procédure, ca corrige toutes les erreurs de numérotation. Mais qu'est ce qui c'est passé?????
Si quelqu'un pouvait m'éclairer à ce sujet, je suis tout ouïe!
 :pt1cable:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed