在Client端使用VBScript中使用FSO元件

<font face="verdana">
<font id="caution"><h1>注意，准本跟您的"交互作用".</h1></font>
<h1>FSO Example...</h1><h3> Copyright by Dino Cho 2003. All rights reserved.</h3>

ID | File Name         | Date

<script language="vbscript">
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folderROOT = FSO.GetFolder("C:/")
ID=0
For Each Files in folderRoot.Files
outputD=Left(ID & " ",5) & Left(Files.Name & " ",19) & " " & FormatDateTime(Files.DateCreated,1) & "
"
Document.Write Replace(outputD," "," ")
ID=ID+1
Next
caution.innerhtml=""
</script>
</font>

Copyright by Dino Cho 2003. All rights reserved.