a propos d'un script

**koKoTis** · 06/02/2008, 18h12

Bonjour, je suis entrain de créer un script pour généré une galerie web de photos ou d'images:

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
 
Dim FSO, VrPrgImgMgck, stRep, DesktopPath, f
 
set WshShell = WScript.CreateObject("WScript.Shell")               
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
VrPrgImgMgck = "C:\_KooKaTix\Kktx_Prog\ImageMagick"
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path 
 
VarSaisieUtilisateur = InputBox("Tapez le nom de la nouvelle galerie", "Tapez le nom de la nouvelle galerie") 
 
If Not objFSO.FolderExists(DesktopPath & "\Galerie") Then Set objFolder = objFSO.CreateFolder(DesktopPath & "\Galerie")
Set objFolder = objFSO.CreateFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur)
 
 
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes"
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages"
 
 
' On créer les vignettes
If oFSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  oFSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 159x170 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes" & "\" & oFl.Name & """" 
 Next
End If
 
If oFSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  oFSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 600x600 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages" & "\" & oFl.Name & """" 
 Next
End If
 
 
 
Const ForReading = 1, ForWriting = 8 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\index.htm", ForWriting,true) 
 
If oFSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  oFSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
   f.writeline("<a href=""" & oFl.Name & """><img src=""vignettes\" & oFl.Name & """ border=""0""></a><br>") 
 Next
End If
 
f.close

Ce pandant j'ai deux questions:

1) Puis-je avec mes boucle qui liste les fichier ne lister que les extension .gif et .jpg ? si oui commen ?

2) Puis-je dans mes boucle récupérer le nom des fichier avec la variable oFl.Name mais san l'extension ?

**SfJ5Rpw8** · 06/02/2008, 18h33

déjà il y as un truc qui me "turlupine" :

Code :

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

1
2
3
4
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

pourquoi autant d'objet Scripting.FileSysteObject...? un seul suffit bien...

bon ensuite pour le 1/ .. il suffit de tester l'extension :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim stExt 
(...)
For each oFl in  oFSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
 stExt = oFso.GetExtensionName(oFl) 
 
if stExt = "jpg" or stExt = "bmp" then
      WshShell.Run VrPrgImgMgck & "\mogrify -resize 600x600 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages" & "\" & oFl.Name & """"
 
end if 
 Next

pour le 2/ utilise Getbasename :

Code :

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

1
2
 
msgbox oFso.Getbasename(oFl)

**koKoTis** · 06/02/2008, 19h01

Bonjour et merci beaucoup

il y a plusieur objet par ce que j'ai récupérer plusieurs script pour faire mon script est les objet n'avait pas le même nom pour tous

Pour le 1 comment tester l'extension ?

Pour le deux c'est parfait

**koKoTis** · 06/02/2008, 19h11

ah autre chose, j'ai rajouter ceci dans mon script:

Code :

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

1
2
3
4
5
6
7
8
9
10
' On créer le fichier sommaire des galerie:
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie") Then
 For each oFld in  FSO.GetFolder(DesktopPath & "\Galerie").SubFolders
   f.writeline("<a href=""" & oFld.Name & "\index.htm"">" & oFl.Name & "</a>") 
 Next
End If
f.close

Il me dit objet oFL requi, mais il n'est pas créer l'objet ?

**SfJ5Rpw8** · 06/02/2008, 19h30

Envoyé par koKoTis

il y a plusieur objet par ce que j'ai récupérer plusieurs script pour faire mon script est les objet n'avait pas le même nom pour tous

et si je te met un script où je met comme nom de variable oFsoAKokoTis tu vas nous rajouter une autre objet filesystem..?

Envoyé par koKoTis

Pour le 1 comment tester l'extension ?

ben la ligne de code if .... c'est un test .. :

Code :

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

1
2
3
4
5
..
 stExt = oFso.GetExtensionName(oFl) 
 
if stExt = "jpg" or stExt = "bmp" then
...

Envoyé par koKoTis

Il me dit objet oFL requi, mais il n'est pas créer l'objet ?

ben c'est comme pour requis .. il manque la derniére lettre à Ofld

**koKoTis** · 06/02/2008, 19h39

sayet je n'ai plu qu'un seul objet

merci encore

j'ai essayer d'intégrer le test de l'extenison dans mon code mais aucun liens n'est créer dans ma page html:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' On créer le fichier index.html de la galerie avec les vignettes:
Const ForReading = 1, ForWriting = 8 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
 stExt = Fso.GetExtensionName(oFl) 
 
if stExt = "jpg" or stExt = "bmp" or stExt = "gif" then f.writeline("<a href=""pages\" & FSO.Getbasename(oFl) & ".htm""><img src=""vignettes\" & oFl.Name & """ border=""0""></a>") 
 Next
End If
f.close

**SfJ5Rpw8** · 06/02/2008, 19h41

histoire de vérifier la lecture de l'extension rajoute la ligne suivante .: (la seconde..)

Code :

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

1
2
3
 
stExt = Fso.GetExtensionName(oFl) 
Wscript.Echo stExt

**koKoTis** · 06/02/2008, 19h45

ce m'affiche bien les extensions

**koKoTis** · 06/02/2008, 19h51

comme ca alor:

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
68
69
70
71
72
73
74
75
76
77
78
 
Dim FSO, VrPrgImgMgck, stRep, DesktopPath, f
 
set WshShell = WScript.CreateObject("WScript.Shell")               
Set FSO = CreateObject("Scripting.FileSystemObject")
 
VrPrgImgMgck = "C:\_KooKaTix\Kktx_Prog\ImageMagick"
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path 
 
VarSaisieUtilisateur = InputBox("Tapez le nom de la nouvelle galerie", "Tapez le nom de la nouvelle galerie") 
 
If Not FSO.FolderExists(DesktopPath & "\Galerie") Then Set objFolder = FSO.CreateFolder(DesktopPath & "\Galerie")
Set objFolder = FSO.CreateFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur)
 
' On créer le répertoire pour la galerie sur le bureau:
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes"
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages"
 
 
' On créer les vignettes
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 159x170 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes" & "\" & oFl.Name & """" 
 Next
End If
 
' On redimentionne les images:
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 600x600 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages" & "\" & oFl.Name & """" 
 Next
End If
 
 
' On créer le fichier index.html de la galerie avec les vignettes:
Const ForReading = 1, ForWriting = 8 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
 stExt = Fso.GetExtensionName(oFl) 
Wscript.Echo stExt
 'if stExt = "jpg" or stExt = "bmp" or stExt = "gif" then 
     f.writeline("<a href=""pages\" & FSO.Getbasename(oFl) & ".htm""><img src=""vignettes\" & oFl.Name & """ border=""0""></a>") 
 Next
End If
f.close
 
 
' On créer les page html pour les images:
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages\" & FSO.Getbasename(oFl) & ".htm", ForWriting,true)
   f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>") 
   f.close
 Next
End If
 
 
' On créer le fichier sommaire des galerie:
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie") Then
 For each oFld in  FSO.GetFolder(DesktopPath & "\Galerie").SubFolders
   f.writeline("<a href=""" & oFld.Name & "\index.htm"">" & oFld.Name & "</a><br>") 
 Next
End If
f.close

**SfJ5Rpw8** · 06/02/2008, 19h52

pas de probléme minuscule/majuscule ..? ( si oui voir lcase ou ucase)

**koKoTis** · 06/02/2008, 20h03

merci encore

C'est bizzare ca marche dans ma premier boucle, mais dans le deuxième une page est créer pour un fichier qui n'est pas une image:

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
68
69
70
71
72
73
74
75
76
77
 
Dim FSO, VrPrgImgMgck, stRep, DesktopPath, f
 
set WshShell = WScript.CreateObject("WScript.Shell")               
Set FSO = CreateObject("Scripting.FileSystemObject")
 
VrPrgImgMgck = "C:\_KooKaTix\Kktx_Prog\ImageMagick"
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path 
 
VarSaisieUtilisateur = InputBox("Tapez le nom de la nouvelle galerie", "Tapez le nom de la nouvelle galerie") 
 
If Not FSO.FolderExists(DesktopPath & "\Galerie") Then Set objFolder = FSO.CreateFolder(DesktopPath & "\Galerie")
Set objFolder = FSO.CreateFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur)
 
' On créer le répertoire pour la galerie sur le bureau:
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes"
FSO.CopyFolder BrowseAndCreate, DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages"
 
 
' On créer les vignettes
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 159x170 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes" & "\" & oFl.Name & """" 
 Next
End If
 
' On redimentionne les images:
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
   WshShell.Run VrPrgImgMgck & "\mogrify -resize 600x600 """ & DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages" & "\" & oFl.Name & """" 
 Next
End If
 
 
' On créer le fichier index.html de la galerie avec les vignettes:
Const ForReading = 1, ForWriting = 8 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\vignettes").Files
 stExt = Fso.GetExtensionName(oFl) 
 if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then f.writeline("<a href=""pages\" & FSO.Getbasename(oFl) & ".htm""><img src=""vignettes\" & oFl.Name & """ border=""0""></a>") 
 Next
End If
f.close
 
 
' On créer les page html pour les images:
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages\" & FSO.Getbasename(oFl) & ".htm", ForWriting,true)
    stExt = Fso.GetExtensionName(oFl) 
    if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>") 
   f.close
 Next
End If
 
 
' On créer le fichier sommaire des galerie:
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\index.htm", ForWriting,true) 
If FSO.FolderExists(DesktopPath & "\Galerie") Then
 For each oFld in  FSO.GetFolder(DesktopPath & "\Galerie").SubFolders
   f.writeline("<a href=""" & oFld.Name & "\index.htm"">" & oFld.Name & "</a><br>") 
 Next
End If
f.close

**koKoTis** · 11/02/2008, 20h27

tu voi ce qui cloche bbil ?

**SfJ5Rpw8** · 11/02/2008, 20h30

Envoyé par koKoTis

tu voi ce qui cloche bbil ?

ben il manque des lettres...?

je comprends pas ..de quelle boucle tu parle ...?

extrait la de ton code ..? et dis nous pour quel nom de fichier ta page en trop apparait..?

**koKoTis** · 12/02/2008, 08h43

cette boucle:

Code :

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

if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>")

ben pour un fichier temp.tx par exemple

**ced600** · 12/02/2008, 09h59

Envoyé par koKoTis

cette boucle:

Code :

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

if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>")

ben pour un fichier temp.tx par exemple

C pas une boucle, c une condition.

If = Si
Then = alors

Code :

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

1
2
3
4
5
If i < 0 Then
  msgbox i
Else
  msgbox ">1"
End If

=

Code :

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

1
2
3
4
5
Si i est inférieur à 0 Alors
   Afficher i
Sinon
   afficher ">1"
Fin du si

Code :

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

1
2
3
Do while i >0 
  msgbox i
Loop

=

Code :

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

1
2
3
Faire tant que i > 0
   Afficher i
Boucler

Code :

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

1
2
3
For each item in ColItem
   msgbox item.value
Next item

=

Code :

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

1
2
3
Pour chaque item contenu dans ColItem
       Afficher la propriété value de item
Passer à l'item suivant

**koKoTis** · 12/02/2008, 10h31

en fait j'aurai du poster le boucle entiére:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' On créer les page html pour les images:
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages\" & FSO.Getbasename(oFl) & ".htm", ForWriting,true)
    stExt = Fso.GetExtensionName(oFl) 
    if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>") 
   f.close
 Next
End If

**ced600** · 12/02/2008, 12h19

Je ne sais pas si cela marchera mieux, mais il y a plein de chose qui n'ont rien à faire dans la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If FSO.FolderExists(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages") Then
 Set FichierTXT = WScript.CreateObject("WScript.Shell") 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 For each oFl in  FSO.GetFolder(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages").Files
  Set f = fso.OpenTextFile(DesktopPath & "\Galerie\" & VarSaisieUtilisateur & "\pages\" & FSO.Getbasename(oFl) & ".htm", ForWriting,true)
  stExt = Fso.GetExtensionName(oFl) 
  if LCase(stExt) = "jpg" or LCase(stExt) = "bmp" or LCase(stExt) = "gif" then
     f.writeline("<a href=""..\index.htm""><img src=""" & oFl.Name & """ border=""0""></a>")
  end if 
 Next
 f.close
End If