Voici un code pour ceux qui n'ont que le malheureux Paint pour le graphisme de leur site (comme moi) et qui ne veulent pas s'enquiquiner à faire des miniatures de leurs images à la main.
Vous devez attendre la fin du process avant de faire autre chose, car le programme simule une frappe au clavier dans la fenêtre active.
Ce petit Vbscript permet de refaire automatiquement ce que vous feriez manuellement
Source / Exemple :
' collez ca dans notepad et enregistrez le en .vbs
dim l_fso
dim l_Wsh
dim l_path
dim l_file
set l_fso = CreateObject("Scripting.FileSystemObject")
set l_Wsh = CreateObject("Wscript.Shell")
l_path = inputbox ("Please enter the path of the pics you wish to resize")
if l_fso.FolderExists(l_path) then
l_Wsh.Run "Mspaint"
Wscript.sleep 1000
l_fso.CreateFolder l_path & "\thumbs"
for each l_file in l_fso.GetFolder(l_path).Files
call ResizeProcess(l_file.path)
next
msgbox "Completed"
else
msgbox "Path not found"
end if
sub ResizeProcess(p_filePath)
l_Wsh.SendKeys chr(15)
l_Wsh.SendKeys p_filePath
l_Wsh.SendKeys chr(13)
l_Wsh.SendKeys chr(23)
l_Wsh.SendKeys chr(49)
l_Wsh.SendKeys chr(48)
l_Wsh.SendKeys chr(9)
l_Wsh.SendKeys chr(49)
l_Wsh.SendKeys chr(48)
l_Wsh.SendKeys chr(13)
l_Wsh.SendKeys chr(19)
l_Wsh.SendKeys Replace(p_filePath, l_fso.GetFileName(p_filePath), "thumbs\" & l_fso.GetFileName(p_filePath))
l_Wsh.SendKeys chr(13)
wscript.sleep 2000
end sub
Conclusion :
Pour une exécution plus rapide, réduisez la valeur de Wscript.sleep. Les images réduites sont dans le sous-répertoire "thumbs" du chemin d'origine.
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.