- <%@ Import Namespace="System.IO" %>
- <script language="VB" runat="server">
- sub Page_Load(obj as object, e as eventargs)
-
- dim f as new FileInfo(Server.MapPath("Hello.txt"))
-
- lblMessage.Text = "Informations sur le fichier<br>" & _
- "<b>Nom : </b>" & f.Name & "<br>" & _
- "<b>Chemin : </b>" & f.DirectoryName & "<br>" & _
- "<b>Dernier accès : </b>" & f.LastAccessTime & _
- "<br>" & _
- "<b>Dernière modification : </b>" & f.LastWriteTime & _
- "<br>" & _
- "<b>Longueur : </b>" & f.Length & " octets"
- end sub
- </script>
-
- <html>
- <body>
- <asp:label id="lblMessage" runat=server/>
- </body>
- </html>
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
sub Page_Load(obj as object, e as eventargs)
dim f as new FileInfo(Server.MapPath("Hello.txt"))
lblMessage.Text = "Informations sur le fichier<br>" & _
"<b>Nom : </b>" & f.Name & "<br>" & _
"<b>Chemin : </b>" & f.DirectoryName & "<br>" & _
"<b>Dernier accès : </b>" & f.LastAccessTime & _
"<br>" & _
"<b>Dernière modification : </b>" & f.LastWriteTime & _
"<br>" & _
"<b>Longueur : </b>" & f.Length & " octets"
end sub
</script>
<html>
<body>
<asp:label id="lblMessage" runat=server/>
</body>
</html>