':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::DEBUT RECUPERATION DES GROUPES:::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Private Sub btn_traitement_Click() Dim objFSO, objDossier, objFichier, objResultat Dim Repertoire, NomFichierTxt Set objFSO = CreateObject("Scripting.FileSystemObject") Repertoire = "C:\repertoire" 'Accède au dossier If objFSO.FolderExists(Repertoire) Then Set oFld = objFSO.GetFolder(Repertoire) MsgBox "Dossier des groupes trouvé, en cours de traitements" Else MsgBox "Ce dossier n'existe pas" End If ' extraction de la liste des groupes - utlisateurs Const ctePourLecture = 1 Const ctePourEcrire = 2 Const ctePourAjouter = 8 On Error Resume Next NomFichierTxt = "Resultat.csv" Set objDossier = objFSO.GetFolder(Repertoire) Set objResultat = objFSO.CreateTextFile(("C:\repertoire" & "" & NomFichierTxt), ctePourEcrire) If (objDossier.Files.Count > 0) Then 'si les fichiers du dossier sont > 0 alors For Each objFichier In objDossier.Files 'pour chaques fichiers du dossier If (InStr(1, objFichier.Name, ".txt", 1) > 0) Then 'si la chaine des noms de fichier est > à 0 alors objResultat.WriteLine objFichier.Name 'je créer le fichier et j'ecris les noms de fichiers End If Next End If objResultat.Close Set objResultat = Nothing Set objDossier = Nothing Set objFSO = Nothing ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::FIN RECUPERATION DES GROUPES:::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::DEBUT TRAITEMENT DES UTILISATEURS / GROUPE:::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Dim Table_ID(1000, 500) As String Dim nl As Integer, nc As Integer, MaxL As Integer, MaxC As Integer Dim strStart As Integer, strStop As Integer Dim strLigne As String Dim NomFichierTxt_Out, NomFichierTxt_Inp, NomFichierTxt_Dat ' Repertoire NomFichierTxt_Out = Repertoire & "Resultat2.csv" 'Fichier à créer NomFichierTxt_Inp = Repertoire & "Resultat.csv" 'Fichier avec les Noms des Fichiers txt Close 'Fermer tous les fichiers 'Open NomFichierTxt_Out For Output As #1 'création du fichier Resultat2.csv nc 0: nl 0: MaxL = 0: MaxC = 0 Open NomFichierTxt_Inp For Input As #2 'lecture du fichier Resultat.csv While Not EOF(2) Line Input #2, strLigne 'Lecture de la ligne NomFichierTxt_Dat = Repertoire & strLigne 'Nom du fichier de données Open NomFichierTxt_Dat For Input As #3 'Lecture du fichier de données While Not EOF(3) Line Input #3, strLigne 'Lecture ligne de donnée If InStr(1, strLigne, "CN=") > 0 Then strStart = InStr(1, strLigne, "CN=") + 3 strStop = InStr(strStart, strLigne, ",") strLigne = Mid(strLigne, strStart, strStop - strStart) Table_ID(nl, nc) = strLigne nl = nl + 1 End If If nl > MaxL Then MaxL = nl Wend Close #3 'Fermer Fichier de données nl = 0 nc = nc + 1 Wend MaxC = nc Close 'Fermer tous les fichiers Open NomFichierTxt_Out For Output As #1 'création du fichier Resultat2.csv nc 0: nl 0 For nl = 0 To MaxL - 1 For nc = 0 To MaxC - 1 Write #1, Table_ID(nl, nc), Next Print #1, "" Next Close MsgBox "Traitements des fichiers effectués" End Sub ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::FIN TRAITEMENT DES UTILISATEURS / GROUPE:::::::::::::::::::::::::::::::::::::::: '::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::