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

Version imprimable

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:

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 !

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

Code:

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

Citation:

Envoyé par ProgElecT

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

Code:

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 :ccool: avec cette petite rectification du bout de code il marche bien ce script voici le code rectifié:

Code:

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

;)