Renommer un fichier à la volé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 460 fois - Téléchargée 37 fois

Contenu du snippet

La fonction reçoit comme argument le chemin virtuel du fichier à renommer.
Exemple. Mon Dossier web est "www" mon fichier est dans images "www/images/"
donc :
RenommeFichier "images/toto.jpg", "images/toto2.jpg"
Attention : Si le fichier n'existe pas ça plante. Il faut vérifier son existence avant !!
bonne prog ! @+

Source / Exemple :


Function RenommeFichier(AncienNom,NouveauNom)	
	Dim Myobj
	Set Myobj = Server.CreateObject("Scripting.FileSystemObject")
	Set ChopFichier = Myobj.GetFile(Server.MapPath(AncienNom))
	ChopFichier.Move(Server.MapPath(NouveauNom))
	Set Myobj = nothing
	Set ChopFichier = nothing
End Function

Conclusion :


Ce script est en réponse à salim. "renommé des fichiers à la volé"

A voir également

Ajouter un commentaire

Commentaires

Messages postés
96
Date d'inscription
vendredi 17 décembre 2004
Statut
Membre
Dernière intervention
13 juillet 2007

Merci également
Messages postés
7
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
1 février 2007

Merci !
C'est exactement ce dont j'avais besoin...
Messages postés
103
Date d'inscription
vendredi 13 juillet 2001
Statut
Membre
Dernière intervention
26 août 2003

Tu devrais refaire la fonctions avec gestion des erreur (si le fichier n'existe pa)

Et faut rappeller qu'il faut que le dossier soit déprotéger en écriture ...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.