JScript Sample: jscript/general/fileio/info.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<%@ language=jscript %>
<%// Response.expires=0%>

<html>
<head>
<title>File Info Example</title>
<SCRIPT Language="JavaScript">
function Ok_OnClick(form){
   form.submit();
}
</SCRIPT>

</head>
<body>
<%
   var fs
   var fi
   var dir1
   var filename1
   var content
   var Attributes=""
   var datecreated=""
   var datelastaccessed=""
   var datelastmodified=""
   var drive=""
   var name=""
   var parentfolder=""
   var path=""
   var shortname=""
   var shortpath=""
   var size=""
   var type1=""
   var newline
   newline="\n"
   content="File properties are:"+newline
   content =content +"Attributes: " +Attributes +newline
   content = content +"DateCreated : " +datecreated +newline
   content =content +"DateLastAccessed : " +datelastaccessed +newline
   content =content +"DatelastModified : " +datelastmodified +newline
   content =content +"Drive : " +drive +"\n"//newline
   content =content +"Name : " +name +"\n"//newline
   content =content +"ParentFolder : " +parentfolder +"\n"//newline
   content =content +"Path : " +path +"\n"//newline
   content =content +"ShortName : " +shortname +"\n"//newline
   content =content +"ShortPath : " +shortpath +"\n"//newline
   content =content +"Size : " +size +newline
   content =content +"Type : " +type1+newline

   fs=Server.CreateObject("Scripting.FileSystemObject")
   var tempvar

   tempvar =new String (fs.GetFile(Server.MapPath("default.html")).ParentFolder )
   if (tempvar.indexOf("/") !=-1)
      dir1=tempvar.concat ("/")
   else
      dir1=tempvar.concat ("\\")

      filename1="test.txt"


      if(Request.Form("dir").Count!=0)
         dir1 =Request.Form("dir")

         if(Request.Form("filename").Count!=0){
            filename1 =Request.Form("filename")
            var fi =fs.GetFile(dir1+filename1)
            Attributes = fi.Attributes
            datecreated =fi.Datecreated
            datelastaccessed = fi.DateLastAccessed
            datelastmodified =fi.DatelastModified
            drive =fi.Drive
            name= fi.Name
            parentfolder=fi.ParentFolder
            path =fi.Path
            shortname=fi.ShortName
            shortpath=fi.ShortPath
            size=fi.Size
            type1=fi.Type
            content= "FILE PROPERTIES ARE : " +newline
            content =content +"Attributes : " +Attributes +newline
            content =content +"DateCreated : " +datecreated +newline
            content =content +"DateLastAccessed : " +datelastaccessed +newline
            content =content +"DatelastModified : " +datelastmodified +newline
            content =content +"Drive : " +drive +newline
            content =content +"Name : " +name +newline
            content =content +"ParentFolder : " +parentfolder +newline
            content =content +"Path : " +path +newline
            content =content +"ShortName : " +shortname +newline
            content =content +"ShortPath : " +shortpath +newline
            content =content +"Size : " +size +newline
            content =content +"Type : " +type1 +newline
         }
      
}
   }
%>


<form name="Form1" Method="Post" Action="info.asp">
<p>Directory : <input type="text" name="dir" cols="25" value="<% = dir1 %>">
<p>File Name : <input type="text" name="filename" cols="25" value="<%=filename1 %>">

<p>File Property:<br> <textarea rows="10" name="Con" cols="40"><%=content %></textarea>
<input type="button" name="ok" value="File Properties" onClick="Ok_OnClick(this.form)">
</form>
<hr>
<a href="infofolder.asp">Folder Property </a> <br>
<a href="default.html">Go Back </a>
</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.