Lister les images au format JPEG d'un répertoire dans une page html

**hackoofr** · 06/07/2009, 23h06

Salut à Tous ! j'ai trouvé ce script dans le Net et vu que je débute en Vbscript,alors ce dernier ne marche pas chez moi je sais pas exactement d'ou vient l'erreur "Instruction attendu" à ligne 4 Caract 6 voila je fais copier/coller ici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="&lthtml>"
For Each fichier In fso.GetFolder(".\").Files
     &nbspcheminFic = fso.GetFolder(".\") & "\" & fichier.name
     &nbspIf fichier.type="Image JPEG" Then
           &nbspmapage = mapage & "&ltimg src=" & cheminFic & ">&ltBR>&ltBR>"
     &nbspEnd If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\MesImages.html", True)
tf.Write (mapage)
WScript.Quit

Merci !

**ProgElecT** · 06/07/2009, 23h43

Si c'est vraiment un copier/coller, ce code me paret bien curieux, il doit manquer des espaces

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="&lthtml>"
For Each fichier In fso.GetFolder(".\").Files
      nbspcheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
      If fichier.type="Image JPEG" Then
       nbspmapage = mapage & "&ltimg src=" & cheminFic & ">&ltBR>&ltBR>" & nbsp
      End If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\MesImages.html", True)
tf.Write (mapage)
WScript.Quit

Qu'est ce que s'est ces & devant les variables (que j'ai retiré)

**hackoofr** · 07/07/2009, 01h14

Envoyé par ProgElecT

Si c'est vraiment un copier/coller, ce code me paret bien curieux, il doit manquer des espaces

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="&lthtml>"
For Each fichier In fso.GetFolder(".\").Files
      nbspcheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
      If fichier.type="Image JPEG" Then
       nbspmapage = mapage & "&ltimg src=" & cheminFic & ">&ltBR>&ltBR>" & nbsp
      End If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\MesImages.html", True)
tf.Write (mapage)
WScript.Quit

Qu'est ce que s'est ces & devant les variables (que j'ai retiré)

Merci bien

avec cette petite rectification du bout de code il marche bien ce script voici le code rectifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set fso = CreateObject("Scripting.FileSystemObject")
mapage="<html>"
For Each fichier In fso.GetFolder(".\").Files
      cheminFic = fso.GetFolder(".\") & "\" & fichier.name & nbsp
      If fichier.type="Image JPEG" Then
       mapage = mapage & "<img src=""" & cheminFic & """><BR><BR>" & nbsp
      End If
Next
mapage = mapage & "</html>"
Set tf = fso.CreateTextFile(".\MesImages.html", True)
tf.Write (mapage)
WScript.Quit

Lister les images au format JPEG d'un répertoire dans une page html

VBScript

Discussions similaires

Partager

Partager