Liste Droit Dossier

**Lexounet** · 19/05/2011, 10h32

Bonjours,

J'ai un code *.vbs qui me liste les dossiers et sous dossier dans un tableau dans une page html, mais maintenant on me demande qu'à coté de cette liste dans une nouvelle case dans le tableau je dresse la liste des droits de ce dossier...
J'ai déjà galére sur ce sujet de stage à la 1ère étape, et là çà recommence

car j'ai fais des recherche mais rien de concluant,

en plus connaissant ce code depuis maintenant Lundi

Je ne sais même pas comment le présenter dans le tableau mais déjà, si une personne a une idée de script pour lister les droits d'un dossier spécialisé, dans un fichier txt ou html ou je sais quoi

Merci à vous

**hackoofr** · 19/05/2011, 10h51

Tout d'abord jette un coup d'oeil sur cette Discussion
puis essaye de l'adapter petit à petit dans ton projet

**Lexounet** · 19/05/2011, 10h58

Il est partout ce Hackoofr

Merci je look

Alors j'ai trouvé un programme avec ton aide qui liste bien tous ça... je vais regarder, mais c'est vraiment pas de mon niveau...

BREF

Merci

**Lexounet** · 19/05/2011, 11h23

J'ai une question :

Code :

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

1
2
3
4
Const COLOR_ERREUR = 16
Const COLOR_ECRITURE = 35
Const COLOR_LECTURE = 40
Const COLOR_PARTICULIER = 39

Que fait il ici ?

Et comment faire pour changer les couleurs sur le fichier excel ?
Et comment changer les rayures etc...

de plus si tu as un tuto sur le vbs en general je suis preneur

**Lexounet** · 19/05/2011, 14h10

Dans mon tableau j'ai fais

Code :

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

1
2
3
4
5
6
7
8
9
10
<html>
<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='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='auto' id='Table1'>
<tr><td><strong>Chemin des Dossiers :</strong></td>
<td><strong>Autorisation ECRITURE</strong></td>
<td><strong>Autorisation LECTURE</strong></td>
<td><strong>Autorisation PARTICULIER</strong></td>
<td><strong>ERREUR AUTORISATION</strong></td></tr>
</html>

et je voudrais mettre en vert si oui ou rouge sinon mais je ne vois pas quelle est la "fonction" que je peut utiliser pour la condition de changement de couleur.
Comme ça par ex :

Code :

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

1
2
BGFLG_Arretserveur = "Grey"	
If not objFSOfichiers.FileExists("\\" & objRecordSet.Fields("Name").Value & "\C$\outils\arretServeur.Cmd") Then BGFLG_Arretserveur = "Red"

Je ne saisis pas tous en faite...

**Lexounet** · 23/05/2011, 10h26

Là, j'ai ça qui me permet de trouver la liste des dossier dans un certain répertoire, et j'ai préparé le tableau, mais je ne sais pas comment avec quelle méthode je peut trouver les droits sur ce dossier, et je ne trouve pas sur le net un programme, qui me liste les droits d'un dossier dans un fichier html ou texte, et je ne comprend pas les lien de ce cher hackoofr ^^ (novice en vbs)

Enfin voila j'ai jusqu'à la fin de la semaine pour faire ça... sous peine de mort

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
Dim ShellO: Set ShellO = CreateObject("WScript.Shell")
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim SListe: Dim Schemin
 
'Dossier à traiter
Schemin = InputBox("Entrer le chemin du dossier à lister :")
 
'Dossier Bureau de windows + "\"
SListe = ShellO.SpecialFolders("Desktop")
If Right(SListe, 1) <> "\" Then SListe = SListe & "\"
 
'Ouverture du fichier contenant l'arborescence du répertoire à traiter vers le Bureau
Dim Fichier: Set Fichier = FSO.CreateTextFile(SListe & "ListeDossier.html", 1, True) 
 
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='3' cellpadding='10' style='border-collapse: collapse; font size:11pt' bordercolor='#408080' width='auto' id='Table1'>" &_
				"<tr><td><strong>Chemin des Dossiers :</strong></td>" &_
				"<td><strong>Autorisation ECRITURE</strong></td>" &_
				"<td><strong>Autorisation LECTURE</strong></td>" &_
				"<td><strong>Autorisation PARTICULIER</strong></td>" &_
				"<td><strong>ERREUR AUTORISATION</strong></td></tr>"
 
'Fichier.WriteLine (Schemin & "<br>")			  
Fichier.WriteLine strHTML 'Ecrire la structure du Tableau en HTML
ListerDossier Schemin, Fichier 'Remplissage dynamique des données dans le Tableau 
Fichier.WriteLine "</table>" 'ici on ferme notre tableau par la balise </table>
'Fermeture du fichier contenant l'arborescence du répertoire à traiter
Fichier.Close
 
Function ListerDossier(Schemin, Fichier) 'Lister l'arborescence du dossier
On Error Resume Next
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim ObjRep: Set ObjRep = FSO.GetFolder(Schemin) 'dossier
Dim ObjSubRep: Set ObjSubRep = ObjRep.SubFolders 'sous-dossiers
Dim ObjSubRepItem
   For Each ObjSubRepItem In ObjSubRep 'Traiter chaque sous-dossiers
      Fichier.WriteLine ("<tr><td><a target=_Blank href='" & ObjSubRepItem.Path & "'>" & ObjSubRepItem.Path & "</a></td></tr>") 'Ecrire le path dans les lignes du Tableau en HTML
        For each objsubfolder2 in ObjSubRepItem.subfolders 
            Fichier.WriteLine ("<tr><td><a target=_Blank href='" & ObjSubfolder2.Path & "'>" & ObjSubfolder2.Path & "</a></td></tr>") 'Ecrire le path avec profondeur de 2 Dossiers
		Next
   Next
End Function

**hackoofr** · 19/05/2011, 11h21

Tu peux consulter cette Discussion aussi
Allez Bonne programmation

Liste Droit Dossier

VBScript

Vue hybride

Discussions similaires

Partager

Partager