Existence fichier tableau html couleur

Version imprimable

Etant novice, je cherche donc à me faire un script simple pour le completer au fur et à mesure...
Simplement : je veux si le fichier ou répertoire existe, mettre le fond la case en vert sinon en rouge et récupérer dans le tableau le nom + le chemin...

j'ai commencé mais là je suis bloquer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Existence.html", 1, True)
 
strHTML=strHTML &"<center><h2><B><font color=red>Le Fichier existe t'il dans C:\ </font></B></h2></center>" &_
				"<table border='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='auto' id='Table1'>" &_
				"<tr><td><strong>Nom du fichier :</strong></td>" &_
				"<td><strong>Chemin </strong></td>" &_
				"<td><strong>Existe ? ? ?</strong></td>" 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists("C:\Outils") Then  'Fichier à TROUVER
    Set objFolder = objFSO.GetFile("C:\Outils") 'Fichier à TROUVER
	BGFLG_Existe = "Green"
Else
    BGFLG_Existe = "Red"
End If
 
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier contenant l'arborescence du répertoire à traiter
Fichier.Close

j'avance mais c'est le tableau qui change et non le fond de la case ? une idée

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
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Existence.html", 1, True)
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists("C:\Documents and Settings\detourna\Bureau\Lister Droits\XCACLS.vbs") Then 'Fichier à TROUVER
 Set objFolder = objFSO.GetFile("C:\Documents and Settings\detourna\Bureau\Lister Droits\XCACLS.vbs") 'Fichier à TROUVER
BGFLG_Existe = "Yellow"
Else
 BGFLG_Existe = "Red"
End If
 
strHTML=strHTML &"<center><h2><B><font color=Grey>Le Fichier existe t'il dans C:\ </font></B></h2></center>" &_
"<table border='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='" & BGFLG_Existe & "' width='auto' id='Table1'>" &_
"<tr><td><strong>Nom du fichier :</strong></td>" &_
"<td><strong>Chemin </strong></td>" &_
"<td><strong>Existe </strong></td>"
 
 
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier contenant l'arborescence du répertoire à traiter
Fichier.Close

20/05/2011, 09h44
pc75

Bonjour,

Tu utilises ta variable BGFLG_Existe dans la balise <table>. Si tu veux modifier une cellule, il faut mettre cette variable dans la balise <td>.

J'ai trouvé !

Mais n'avez vous pas une solution plus simple, ou facile ou amélioration de ce code ?

MERCI

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
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Existence.html", 1, True)
 
Dim Chemin
Chemin = "C:\Documents and Settings\detourna\Bureau\Lister Droits\XCACLS.vbs" 'Emplacement fichier à CHANGER !!!
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists(Chemin) Then 'Fichier à TROUVER
 Set objFolder = objFSO.GetFile(Chemin) 'Fichier à TROUVER
 
 strHTML=strHTML &"<img src='http://portail.euralis.intra/wps/themes/html/eurGroupeEuralis2011/img/bandeau.jpg' alt='Euralis'/>" &_
 "<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" &_
 "<table border='1' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='100%' id='Table1'>" &_
 "<tr><td><strong>Chemin du Fichier :</strong></td>" &_
 "<TD><strong>Existe t'il ?</strong></td></tr>"&_
 "<td>" &Chemin & "</td>" &_
 "<TD BGCOLOR='Green'><center><strong> /!\ Il existe /!\ </center></strong></td></tr>"
 
Else
 strHTML=strHTML &"<img src='http://portail.euralis.intra/wps/themes/html/eurGroupeEuralis2011/img/bandeau.jpg' alt='Euralis'/>" &_
 "<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" &_
 "<table border='1' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='100%' id='Table1'>" &_
 "<tr><td><strong>Chemin du Fichier :</strong></td>" &_
 "<TD><strong>Existe t'il ?</strong></td></tr>"&_
 "<td>" &Chemin & "</td>" &_
 "<TD BGCOLOR='Red'><center><strong> /!\ Il n'existe pas /!\ </center></strong></td></tr>"
 
End If
 
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier 
Fichier.Close

J'ai fais également une inputbox mais je voudrais qu'a la fin du prog il m'ouvre le fichier html IDEE ? :)

Citation:

Envoyé par Lexounet

J'ai fais également une inputbox mais je voudrais qu'a la fin du prog il m'ouvre le fichier html IDEE ? :)

IDEE c'est quoi :koi: Tu veux Dire "IE" "Internet Explorer" si c'est le cas alors essaye ce Code :

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
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "Existence.html", 1, True)
 
Dim Chemin
Chemin = "C:\Documents and Settings\detourna\Bureau\Lister Droits\XCACLS.vbs" 'Emplacement fichier à CHANGER !!!
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists(Chemin) Then 'Fichier à TROUVER
 Set objFolder = objFSO.GetFile(Chemin) 'Fichier à TROUVER
 
 strHTML=strHTML &"<img src='http://portail.euralis.intra/wps/themes/html/eurGroupeEuralis2011/img/bandeau.jpg' alt='Euralis'/>" &_
 "<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" &_
 "<table border='1' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='100%' id='Table1'>" &_
 "<tr><td><strong>Chemin du Fichier :</strong></td>" &_
 "<TD><strong>Existe t'il ?</strong></td></tr>"&_
 "<td>" &Chemin & "</td>" &_
 "<TD BGCOLOR='Green'><center><strong> /!\ Il existe /!\ </center></strong></td></tr>"
 
Else
 strHTML=strHTML &"<img src='http://portail.euralis.intra/wps/themes/html/eurGroupeEuralis2011/img/bandeau.jpg' alt='Euralis'/>" &_
 "<center><h2><B><font color=red>Liste des Dossiers et Sous-Dossiers dans C:\ </font></B></h2></center>" &_
 "<table border='1' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='100%' id='Table1'>" &_
 "<tr><td><strong>Chemin du Fichier :</strong></td>" &_
 "<TD><strong>Existe t'il ?</strong></td></tr>"&_
 "<td>" &Chemin & "</td>" &_
 "<TD BGCOLOR='Red'><center><strong> /!\ Il n'existe pas /!\ </center></strong></td></tr>"
 
End If
 
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier 
Fichier.Close
 
Call Explorer("Existence.html")
 
Function Explorer(File)
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set ws=CreateObject("wscript.shell")
	 GetAbsolutePath = fso.GetAbsolutePathName(file)
	 ws.run "iexplore " & GetAbsolutePath
end Function