[vbs] img2html rechercher les différents types d'images et les afficher en miniatures dans un tableau en html

Télécharger le projet
Commenter

Description

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 "img2html.vbs" par exemple dans votre dossier images ou bien dans mes documents et exécutez-le !

Source / Exemple : 


'******************************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

Conclusion :


J'attends vos Feedback,Remarques et vos Commentaires !
Télécharger le projet

Codes Sources

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_hackoo)