1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources VBScript
  5. [vbs] img2html rechercher les différents types d'images et les afficher en miniatures dans un tableau en html

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

Soyez le premier à donner votre avis sur cette source.

Vue 4 208 fois - Téléchargée 330 fois

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

Ajouter un commentaire

Commentaires

Signaler
cs_hackoo
Messages postés
94
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
29 juillet 2013
Salut Einstein75 !
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 !
Signaler
Einstein75
Messages postés
16
Date d'inscription
vendredi 6 août 2010
Statut
Membre
Dernière intervention
9 juillet 2011
Super cette Source ! Encore Bravo pour ce Travail 10/10 ! ça va m'aider beaucoup dans mes prochains projets pour générer facilement du HTML.J'ai une petite question a te poser si je ne te gêne pas j’espère (^_^) : "Dans mon futur projet je compte faire quelque chose comme ça mais au lieu de chercher des images je veux chercher des fichiers de type mp3,wmv,rm,mid etc... disons les différents types d'extensions Audio,donc je dois changer ceci ext Array("jpg","jpeg","gif","bmp","psd","tif","png") par ext Array("mp3","wmv","rm","mid") et au lieu d'afficher des images il faut les afficher par des liens c'est ça ??"
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)