Conversion d'extensions
Contenu du snippet
placer un fichier dessus pour changer son extension
Source / Exemple :
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