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
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
Edité le 19/05/2011 à 16:47
C’est un peu tordu : tu écris déjà la partie du tableau contenant la couleur avant de faire le test.
Teste ça :
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:\Outils") Then 'Fichier à TROUVER
Set objFolder = objFSO.GetFile("C:\Outils") 'Fichier à TROUVER
BGFLG_Existe = "Green"
Else
BGFLG_Existe = "Red"
End If
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='" & 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
Ca marche oui & non (rien n’est simple)
C’est la couleur du tableau qui change et non la case mais je vais essayé de chercher
[h2]
Trouvé ! Des Améliorations ???[/h2]
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
Edité le 20/05/2011 à 10:32
Ouais le faire dans un vrai langage