Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1499 connectés 

  FORUM HardWare.fr
  Programmation

  [VB6] Aide plz

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB6] Aide plz

n°45569
neokill@h
Tss tss tss!!
Posté le 10-07-2001 à 11:00:39  profilanswer
 

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.

mood
Publicité
Posté le 10-07-2001 à 11:00:39  profilanswer
 

n°45603
tagada001
Posté le 10-07-2001 à 11:55:13  profilanswer
 

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

n°45612
neokill@h
Tss tss tss!!
Posté le 10-07-2001 à 12:16:08  profilanswer
 

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

n°45637
tagada001
Posté le 10-07-2001 à 13:35:48  profilanswer
 

De rien:)

n°45688
neokill@h
Tss tss tss!!
Posté le 10-07-2001 à 14:57:31  profilanswer
 

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:

n°45789
Ventilo
Ventilo? Depuis 1998!
Posté le 10-07-2001 à 20:04:46  profilanswer
 

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!!

n°45801
neokill@h
Tss tss tss!!
Posté le 10-07-2001 à 21:40:49  profilanswer
 

Thanx Ventilo!!

n°45806
Ventilo
Ventilo? Depuis 1998!
Posté le 10-07-2001 à 23:18:20  profilanswer
 

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

n°45861
neokill@h
Tss tss tss!!
Posté le 11-07-2001 à 10:34:11  profilanswer
 

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:

n°45874
neokill@h
Tss tss tss!!
Posté le 11-07-2001 à 10:58:26  profilanswer
 

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:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [VB6] Aide plz

 

Sujets relatifs
[VB6] NotePad et WordPadPbm de compatibilité entre VB6 et Access 2000, ça commence a m'enerver
Ping en VB6besoin d'aide pour un script php
VB6 contrôle DBgrid, accès aux données[VB6] Problème Base de données.
[PHP] besoin d'aide avec include pour défnir mon $page=[VB6] Pb avec Large Font
[VB6 et access] j'ai vraiment besoin d'aide pour fusionner des tables 
Plus de sujets relatifs à : [VB6] Aide plz


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR