Soyez le premier à donner votre avis sur cette source.
Vue 4 648 fois - Téléchargée 348 fois
'******************************Description du Code img2html.vbs********************************** '© Hackoo © Mars 2011 'C'est un VBScript pour rechercher des images avec les extensions "jpg,jpeg,gif,png,bmp,psd,png,tif" 'dans le dossier et sous-dossiers et le résultat sera afficher dans un Tableau en html 'Pour tester ce code chez-vous Copier ce script sous le nom par exemple img2html.vbs 'dans votre dossier images ou bien dans mes documents et exécutez-le ! '************************************************************************************************ start_folder = ".\" htmfile = "Liste_Images.htm" ext = Array("jpg","jpeg","gif","bmp","psd","tif","png") 'extensions des Images à rechercher count=0 Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(start_folder) Set ws = CreateObject("WScript.Shell") Set outfile = fso.CreateTextFile(htmfile) strHTML="<html><body text=white><style type='text/css'>"&_ "a:link {color: #F19105;}"&_ "a:visited {color: #F19105;}"&_ "a:active {color: #F19105;}"&_ "a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_ "</style>" strHTML=strHTML &"<center><h2><B><font color=red>Le Nombre Total des images est de [COUNT] <br>©<br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif height=50></font></B></h2></center>" & _ "<table border='1' bgcolor=#1234568 style='border-collapse: collapse; font size:9pt' bordercolor='#CCCCCC' width='100%' id='Table1'>" & _ "<tr><td><center><strong>Image</strong></center></td><td><center><strong>Chemin</strong></center></td>" & _ "<td><center><strong>Taille<strong></center></td><td><center><strong>Type</strong></center></td>" & _ "<td><center><strong>Modifié le</strong></center></td><td><center><strong>Dernier Accès</strong></center></td></tr>" ListDirectory folder, ext strHTML = strHTML & "</table>" strHTML = Replace(strHTML, "[COUNT]", Count) outfile.WriteLine strHTML &"</body></html>" outfile.Close Explorer htmfile Sub ListDirectory(folder, ext) For Each objFile In folder.Files cheminFic = folder & "\" & objFile.name For i = lbound(ext) to ubound(ext) If UCase(ext(i)) = UCase(fso.GetExtensionName(objFile.Name)) Then count=count+1 strFileName = objFile.Name strFilePath = objFile.ParentFolder strFileSize = FormatNumber((objFile.Size/1024),2) + " Kb" strFileType = objFile.Type strFileModified = objFile.DateLastModified strFileAccess = objFile.DateLastAccessed strHTML = strHTML & "<tr><td><center><a target=_Blank href='"& cheminFic &"'>"&strFileName&"<br><img src='"& cheminFic &"' border=3 height=150 width=200></center></td><td><center><a href='" & strFilePath & "'>" & _ strFilePath & "</a></center></td><td><center>" & strFileSize & "</center></td>" & _ "<td><center>" & strFileType & "</center></td><td><center>" & strFileModified & "</center></td>" & _ "<td><center>" & strFileAccess & "</center></td></tr>" End If Next Next For Each fldr In folder.subfolders ListDirectory fldr, ext Next End Sub Function Explorer(File) Set ws=CreateObject("wscript.shell") ws.run "explorer " & File & "\" end Function
25 mars 2011 à 00:41
Oui c'est tout a fait comme tu l'as dit,il faut faire comme ça ! tu vois que ce script est très facile a l'adapter il suffit juste de changer les extensions !
allez bonne Programmation et au Plaisir !
Cordialement Hackoo !
22 mars 2011 à 17:14
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.