a propos d'un script

Version imprimable

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

Code:

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 ?

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

Code:

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:

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:

1
2
 
msgbox oFso.Getbasename(oFl)

06/02/2008, 19h01
koKoTis

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 :D

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

Code:

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 ?

06/02/2008, 19h30
SfJ5Rpw8
Citation:

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..?

Citation:

Envoyé par koKoTis

Pour le 1 comment tester l'extension ?

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

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

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

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:

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

06/02/2008, 19h41
SfJ5Rpw8
histoire de vérifier la lecture de l'extension rajoute la ligne suivante .: (la seconde..)
Code:

1 2 3 stExt = Fso.GetExtensionName(oFl) Wscript.Echo stExt
06/02/2008, 19h45
koKoTis

ce m'affiche bien les extensions ;)

comme ca alor:

Code:

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

06/02/2008, 19h52
SfJ5Rpw8

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

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:

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

11/02/2008, 20h27
koKoTis

tu voi ce qui cloche bbil ?
11/02/2008, 20h30
SfJ5Rpw8

Citation:

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..?
12/02/2008, 08h43
koKoTis

cette boucle:

Code:

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

Citation:

Envoyé par koKoTis

cette boucle:

Code:

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:

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

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

1 2 3 Do while i >0 msgbox i Loop
=
Code:

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

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

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

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

Code:

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

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

Code:

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

12/02/2008, 12h24
koKoTis

ce que tu vien de me donner ne créer qu'une seuk page pour toutes les images
12/02/2008, 13h13
ced600

Hum oui en effet, je viens de modifier mon post et le code.
12/02/2008, 13h17
koKoTis

il créer toujours des pages pour les fichiers qui ne sont pas des images
12/02/2008, 14h42
ced600

Citation:

Envoyé par koKoTis

il créer toujours des pages pour les fichiers qui ne sont pas des images

Hum
J'avais perdu le pb de vu avec toutes les réponses.

Je pense que cela viens du fait que tu testes avec "jpg", je crois me souvenir que lorsque tu demandes l'extension, tu la reçois avec le "."

Donc essaye en testant avec ".jpg", ".bmp", ....
12/02/2008, 14h51
koKoTis

non ca ne renvoi pas le point