Comment afficher des images sous forme de vignettes ou de miniatures?

**hackoofr** · 09/03/2011, 11h29

je poste ce que code pour rechercher les images avec les extensions "jpg, gif, png, bmp, psd, tif" dans le dossier et sous-dossiers et le résultat sera afficher dans un fichier de sortie en html.
Mon but est Comment puis-je afficher des images sous forme de vignettes ou miniatures liés aux Originaux?
je crois qu'on peut utiliser une Astuce ou un Truc en html mais qu'ils m'échappent encore

Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
start_folder = ".\"
htmfile = "Liste_Images.htm"
ext = Array("jpg","gif","bmp","psd","tif") '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><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 [COUNT]</font></B></h2></center>" & _
              "<table border='1' 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><img src= '"& cheminFic &"'></td><td><a href='" & strFilePath & "'>" & _
                                strFilePath & "</a></td><td>" & strFileSize & "</td>" & _
                                "<td>" & strFileType & "</td><td>" & strFileModified & "</td>" & _
                                "<td>" & strFileAccess & "</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

**hackoofr** · 20/03/2011, 13h56

après quelques

et quelques

j'ai trouvé enfin la solution pour afficher des images sous forme de vignettes ou miniatures liés aux Originaux. Donc il suffit juste de jouer sur les attributs width et height de la Balise <img> comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<img src='"& cheminFic &"' border=3 height=150 width=200>

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 ! Le résultat va s'afficher dans un dans un Tableau en html.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
'******************************Description du Code img2html.vbs**********************************
'© Hackoo © Mars 2011
'C'est un VBScript pour rechercher les images avec les extensions "jpg, gif, png, bmp, psd, 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","gif","bmp","psd","tif") '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 &"'><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

Comment afficher des images sous forme de vignettes ou de miniatures?

VBScript

Discussions similaires

Partager

Partager