<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Folder Object</title>
</head>
<body>
<%
Dim objFSO,objFolder,Vol
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(Server.MapPath("MyFiles"))
For Each Vol in objFolder.SubFolders
Response.write(Vol.Name&"<br>")
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
