[VB6] Aide plz

Recherche :

Dernière réponse
Sujet : [VB6] Aide plz
neokill@h	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:

Dernière réponse

Sujet : [VB6] Aide plz

neokill@h

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:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

neokill@h

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:

Ventilo

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

neokill@h

Thanx Ventilo!!

Ventilo

Code :

Dim sFile As String
Dim lNbFiles as long
sFile = Dir("c:\",vbNormal)
lNbFiles = 1
copyfile sfile, "c:\list\" & lNbFile & ".txt"
lNbFiles = 2
Do While (sFile <> vbNullString)
scFile = Dir
copyfile sfile, "c:\list\" & lNbFile & ".txt"
lNbFile = lNbFile + 1
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!!

neokill@h

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:

tagada001

De rien:)

neokill@h

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

tagada001

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

neokill@h

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.