01.
<%
Option
Explicit %>
02.
<html>
03.
<head>
04.
<title>ThaiCreate.Com ASP FileSystemObject
Object
</title>
05.
</head>
06.
<body>
07.
<%
08.
Dim
objFSO,str1,str2,str3
09.
Set
objFSO = Server.CreateObject(
"Scripting.FileSystemObject"
)
10.
str1 = objFSO.GetSpecialFolder(0)
11.
str2 = objFSO.GetSpecialFolder(1)
12.
str3 = objFSO.GetSpecialFolder(2)
13.
Response.write(
"<br>Windows Folder = "
&str1)
14.
Response.write(
"<br>System Folder = "
&str2)
15.
Response.write(
"<br>Tempolary Folder = "
&str3)
16.
Set
objFSO =
Nothing
17.
%>
18.
</body>
19.
</html>