Kr00pS
Messages postés5Date d'inscriptionsamedi 20 août 2005StatutMembreDernière intervention21 août 2005
-
21 août 2005 à 20:14
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 2010
-
22 août 2005 à 13:31
Salut tout le monde,
J'ai un petit probleme avec un programme que j'ai crée,
pour renommer un fichier j'utilise ce bout de code :
Name "c:\fichier1.doc" As "c:\image1.jpg"
ça marche bien le seul probleme c'est que j'aimerai que ce bout de code
renomme les fichiers qui sont dans le dossier du programme juste par la
pression d'un bouton
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 21 août 2005 à 20:27
Violent Ken
Salut
LeDossier=app.path
Ensuite tu fait un truc récursif avec FileSystemObject, du genre For Each Element In fs.GetFolder(LeDossier).Files
et puis tu renommes avec un code du genre Name Element as ...
@+
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 21 août 2005 à 20:47
Violent Ken
Ok. Tu mais dans ton projet la référence Microsoft scripting runtime.
Ensuite tu mets Dim fso As New FileSystemObject en haut de ta form.
et tu mets :
Private Sub Command1_Click()
Dim Element As Variant
Dim StrPath() As String
For Each Element In fso.GetFolder(App.Path).Files
Name Element As App.Path & "" & "nouveau nom.txt"
Next
End Sub
et volà !
Vous n’avez pas trouvé la réponse que vous recherchez ?
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 21 août 2005 à 21:11
Violent Ken
Et bien c'est normal.
Il renomme le premier fichier en "c:\...\nouveau nom.txt"
Et le deuxième fichier, il le renomme aussi avec le nom "nouveau nom.txt"
Alors remplace la ligne
Name Element As App.Path & "" & "nouveau nom.txt"
par les lignes
e=e+1
Name Element As App.Path & "" & e & "nouveau nom.txt"
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 22 août 2005 à 13:16
Bonjour,
Je ne comprend pas, tu dis que ton code marche bien, pourquoi alors ne
pas simplement le placer dans la procédure du CommandButton ?? Si dans
ton programme tu as plusieurs fois à renommer un fichier, tu peux aussi
placer 2 TextBox, dans Text1 tu mets fichier1.doc et dans l'autre
image1.jpg
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 22 août 2005 à 13:31
Kr00ps a dit : ça marche bien le seul probleme c'est que j'aimerai que ce bout de code renomme les fichiers qui sont dans le dossier du programme juste par la pression d'un bouton
Donc à mon avis, il veut renommer TOUS les fichier contenus dans le dossier, d'où mon envoi d'une source avec FSO et tout le basard...
@+