Resize de pics avec mspaint

Commenter

Contenu du snippet

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.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_muad-dib)