Sujet Précédent Sujet Suivant

Document.Last.Modified

ewadrel - 22 oct. 2001 à 17:48
 Bud - 22 oct. 2001 à 19:11
Hello,

quelqu'un saurait-il comment afficher la date de derniere modification d'une page ? Mais ATTENTION ! Pas celle de la page en cours (document.last.modified) mais celle d'un fichier que l'on appelle avec la fonction include ?

Merci a tous.

Ewad.

4 réponses

Réponse 1 / 4
Bud
22 oct. 2001 à 17:58
Avec le fileSystemObject, tu devrait pouvoir y arriver. Je n'ai pas de code ici, mais je peux peut-être te trouver quelque-chose.
0
Réponse 2 / 4
ewadrel
22 oct. 2001 à 18:02
Merci bien.
Ca m'aidreait pas mal si tu trouvais ca.
@ + et merci ;-)

Ewad.
0
Réponse 3 / 4
ewadrel
22 oct. 2001 à 18:02
Merci bien.
Ca m'aidreait pas mal si tu trouvais ca.
@ + et merci ;-)

Ewad.
0
Réponse 4 / 4
Bud
22 oct. 2001 à 19:11
Voilà:

<%
function ExamineFolders(ByRef objFolder, ByVal filePath)
Dim Folder, File, strI
For each Folder in objFolder.SubFolders
ExamineFolders Folder, (filePath&"/"&Folder.Name)
Next
for Each File in objFolder.Files
response.write(filePath & "/" &File.Name & " " & File.DateLastModified & "
")
Next
end function

IF IsObject(Session("DBConnexion")) then
Set OBJdbConnection = Session("DBConnexion")
else
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("") & "\les-scouts-ch.mdb")
Set Session("DBConnexion")=OBJdbConnection
end if
%>

<html>
<head></head>

<%
Dim objFS, objRootFolder, strVRoot
strVRoot = Server.MapPath("/")
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRootFolder=objFS.GetFolder(strVRoot)
ExamineFolders objRootFolder, ""
Set objRootFolder = Nothing
Set objFS = Nothing
%>

</html>
0
Rejoignez-nous