01.
<%
Option
Explicit %>
02.
<html>
03.
<head>
04.
<title>ThaiCreate.Com ASP List Files
In
Directory</title>
05.
</head>
06.
<body>
07.
<%
08.
Dim
objFSO,objFiles,Vol
09.
Set
objFSO = Server.CreateObject(
"Scripting.FileSystemObject"
)
10.
set objFiles = objFSO.GetFolder(Server.MapPath(
"MyFiles"
))
11.
For
Each
Vol in objFiles.Files
12.
Response.write(Vol.Name&
"<br>"
)
13.
Next
14.
Set
objFiles =
Nothing
15.
Set
objFSO =
Nothing
16.
%>
17.
</body>
18.
</html>