Renommé un fichier

Question

Bonjours, je voudrais créer un exe qui permet de renommé et changer l'extension d'un fichier, j'arrive a faire mes recherche de fichier mais je sais pas comment faire pour que quand je  clique sur mon bouton rename il me renomme mes fichiers en changeant déjà d'une manière auto et prédéfini dans le source
je voudrai faire un truc de la sorte par exemple de commande sous dos : 
rename *.jpg *.gif

Merci de me répondre
Vince

int19h · Answer

Tu peux renommer avec :
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

a$ = "Image.jpg"
b$ = Mid$(a$, 1, InStrRev(a$, ".")) + "gif"
MoveFile a$, b$

Pour effectuer un *.gif, utilise un ListFileBox et un boucle, par exemple :
File1.Pattern = "*.jpg"
for a=0 to File1.ListCount-1
a$=File1.List(a)
b$ = Mid$(a$, 1, InStrRev(a$, ".")) + "gif"
MoveFile a$, b$
next

a+

Renommé un fichier

1 réponse

Discussions similaires