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 !