begin process at 2012 05 27 14:53:29
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

 > CONVERSION D'EXTENSIONS

CONVERSION D'EXTENSIONS


 Information sur la source

Note :
5 / 10 - par 4 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Initié Date de création :08/12/2002 Date de mise à jour :08/12/2002 13:29:41 Vu :4 633

Auteur : Krox68

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

placer un fichier dessus pour changer son extension

Source

  • conv()
  • sub conv
  • Set WParam = Wscript.Arguments
  • For I =0 to WParam.count - 1
  • if I=vbEmpty then
  • ext()
  • else
  • msgBox"Il faut faire un glisser-déposer avec un fichier sur ce script",vbExclamation
  • end if
  • next
  • end sub
  • sub ext
  • Set a = CreateObject("Scripting.FileSystemObject")
  • Set WParam = Wscript.Arguments
  • For I =0 to WParam.count - 1
  • namer4 = a.GetExtensionName(WParam(I))
  • exte = inputbox("En quelle extension veux-tu changer ce fichier","Extension","")
  • if exte = namer4 then
  • retr=msgBox("Impossible ! Votre fichier possède la même extension",vbCritical+vbRetryCancel,"Erreur")
  • if retr=vbRetry then
  • ext()
  • end if
  • else
  • extgar = msgBox("Voulez-vous montrer l'ancienne extension du fichier?",vbYesNo+vbQuestion,"Ecrire extension")
  • if (extgar = vbYes)and(exte = "") then
  • retr2=msgBox("Impossible ! Le fichier existe déjà.",vbCritical+vbRetryCancel,"Erreur")
  • if retr2=vbRetry then
  • ext()
  • end if
  • else
  • namer = a.GetBaseName(WParam(I))
  • namer2 = a.GetFileName(WParam(I))
  • namer3 = a.GetParentFolderName(WParam(I)) + "/"
  • Set copy = a.GetFile(WParam(I)&"")
  • if extgar = vbNo then
  • copy.Copy(namer3 & namer & "." & exte),true
  • else
  • copy.Copy(namer3 & namer2 & "." & exte),true
  • end if
  • sup = msgBox("Voulez-vous supprimer l'ancienne version du fichier?",vbYesNo+vbQuestion,"Suppression de l'ancien fichier")
  • if sup = vbYes then
  • save = msgBox("Voulez-vous créer une copie de sauvegarde?",vbYesNo+vbQuestion,"Création d'une copie de sauvegarde")
  • if save=vbYes then
  • reptemp = a.GetSpecialFolder(2) & "\"
  • u215=replace(date(),"/","_")
  • copy.Copy(reptemp&namer&" "&u215&"."&namer4),true
  • msgBox"Une copie de sauvegarde a été créée dans le dossier Temp de Windows",vbInformation,"Copie de sauvegarde effectuée"
  • copy.Delete(true)
  • else
  • copy.Delete(true)
  • msgBox"Pour récupérer votre ancien fichier, il suffit de faire l'opération dans le sens inverse ",vbInformation,"Récupération possible"
  • end if
  • end if
  • end if
  • end if
  • next
  • end sub
conv()
sub conv
Set WParam = Wscript.Arguments
For I =0 to WParam.count - 1
if I=vbEmpty then 
ext()
else
msgBox"Il faut faire un glisser-déposer avec un fichier sur ce script",vbExclamation
end if
next
end sub
sub ext
Set a = CreateObject("Scripting.FileSystemObject")
Set WParam = Wscript.Arguments
For I =0 to WParam.count - 1
namer4 = a.GetExtensionName(WParam(I))
exte = inputbox("En quelle extension veux-tu changer ce fichier","Extension","")
if exte = namer4 then
retr=msgBox("Impossible ! Votre fichier possède la même extension",vbCritical+vbRetryCancel,"Erreur")
if retr=vbRetry then
ext()
end if
else
extgar = msgBox("Voulez-vous montrer l'ancienne extension du fichier?",vbYesNo+vbQuestion,"Ecrire extension")
if (extgar = vbYes)and(exte = "") then
retr2=msgBox("Impossible ! Le fichier existe déjà.",vbCritical+vbRetryCancel,"Erreur")
if retr2=vbRetry then
ext()
end if
else
namer = a.GetBaseName(WParam(I))
namer2 = a.GetFileName(WParam(I))
namer3 = a.GetParentFolderName(WParam(I)) + "/"
Set copy = a.GetFile(WParam(I)&"")
if extgar = vbNo then 
copy.Copy(namer3 & namer & "." & exte),true
else
copy.Copy(namer3 & namer2 & "." & exte),true
end if
sup = msgBox("Voulez-vous supprimer l'ancienne version du fichier?",vbYesNo+vbQuestion,"Suppression de l'ancien fichier")
if sup = vbYes then
save = msgBox("Voulez-vous créer une copie de sauvegarde?",vbYesNo+vbQuestion,"Création d'une copie de sauvegarde")
if save=vbYes then
reptemp = a.GetSpecialFolder(2) & "\"
u215=replace(date(),"/","_")
copy.Copy(reptemp&namer&" "&u215&"."&namer4),true
msgBox"Une copie de sauvegarde a été créée dans le dossier Temp de Windows",vbInformation,"Copie de sauvegarde effectuée"
copy.Delete(true)
else
copy.Delete(true)
msgBox"Pour récupérer votre ancien fichier, il suffit de faire l'opération dans le sens inverse ",vbInformation,"Récupération possible"
end if
end if
end if
end if
next
end sub



 Sources du même auteur

MOTEUR POLYMORPHE DE DAN COMMENTÉ
MOTEUR POUR CLONE
POUR CREER UN FICHIER TEXTE ET ECRIRE DEDANS
POUR CONNAITRE LE NOM DE VOTRE PC
POUR CONNAITRE VOTRE RESOLUTION

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

Commentaires et avis

Commentaire de cosmic le 08/12/2002 13:37:34

Et le zip...

Commentaire de DARKSIDIOUS le 08/12/2002 16:33:44 administrateur CS

Je ne vois pas trop l'interêt de changer l'extention d'un fichier sans toucher au fichier lui même (sans faire la conversion).

Essayez d'ouvrir un fichier icone avec l'extention .mpg, vous verrez...

3/10 pour les commentaires

DARK SIDIOUS

Commentaire de FrostByte le 10/12/2002 13:17:11

Tout à fait logique Darksidious, renommer un icon simple en bmp sa doit marcher mais si tu veux faire une conversion bmp->jpg tu fais comment ? ta technique n'est pas la bonne mais tu contribues à l'évolution de vbfrance d'une certaine maniére !!!

Commentaire de simki le 24/03/2007 22:03:39

Mais avec les fichiers RBS (Du MP3 mais avec une autre extension) là ça change!!!

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales