Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 867 fois - Téléchargée 58 fois
' 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
Je reviens faire un petit tour sur ma source qui date d'il y a plus de 8 ans maintenant wow comme le temps passe O_ô
Pour ceux qui voudraient savoir comment déterminer la taille de l'image, tout se situe dans les sendKeys 49 48 (ça envoie 1 et 0 soit 10)
Si vous voulez par exemple une miniature de 20 il faudrait envoyer 50 et 48 soit :
l_Wsh.SendKeys chr(50)
l_Wsh.SendKeys chr(48)
Je mettrais peut-être la source à jour pour que le programme demande à l'utilisateur la taille finale. En attendant vous pouvez modifier cela comme cela.
Regardez sur une table ascii pour les codes décimaux correspondant aux données que vous voulez envoyer par le sendkey.
Je connais XnView mais l'objectif est bien de trouver ici un code source en VB pour faire ce genre de manipulation sur les fichiers images (c'est bien l'objectif de ce site ?).
Donc, à moins que tu ais chopé les sources de XnView et que celui ci a été developpé en VB ... alors là, ça m'intéresse ! mais permet moi d'en douter fortement ...
Je ré-itère donc ma question (le débat n'ayant pas avancé ...) : As t-on la possibilité de determiner la taille de l'image avec ce source ? Merci.
Désolé pour ces propos déplacés, j'était jeune et con à cette époque là !
sinon je vous conseille xnview : logiciel très bon pour le traitement d'images par lot.
MERCI INFINIMENT !!!!!
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.