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
|
Function FCT_Aff_Liste_Log (Chemin_Fichier, URL)
Dim F, AccFichier, ListeFichier, ListeRepertoire, Extention_Fichier, I, Nbr, Extention, Net, File, Folder, AffListe, Html
Set net = server.CreateObject("WScript.Network")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'//--- Connection au lecteur M: (Maping)
if FSO.DriveExists("M:") then
net.RemoveNetworkDrive "M:", True
end if
net.MapNetworkDrive "M:", URL
Set AccFichier = FSO.GetFolder(Chemin_Fichier)
Set ListeRepertoire = AccFichier.SubFolders
AffListe = False
if ListeRepertoire.Count <> 0 then
'//--- En-Tête
Html = "HTML"
'//--- Afficher la liste des fichiers
for each Folder in ListeRepertoire
Set ListeFichier=Folder.Files
for each File in ListeFichier
Extension_Fichier = split(File.name,".",-1,1)
if I = 0 then '//--- Ouverture de la première ligne du tableau
Html = Html & "HTML"
end if
if UCase(Extension_Fichier(1)) = "LOG" then
Nbr = I mod 2
If Nbr = 0 and I <> 0 then '//--- On affiche 3 fichier par ligne, ce si change de ligne
Html = Html & "Html"
end if
I = I + 1
end if
next
I = 0
set ListeFichier = nothing
If AffListe = True then
Response.Write( Html))
else '//--- Si aucun fichier disponible
Response.Write("HTML") end if
next
end if
net.RemoveNetworkDrive "M:"
Set WshShell = Server.CreateObject("Wscript.Shell")
Set WshShell = nothing
end Function |
Partager