01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP File Object</title>
05.</head>
06.<body>
07.<%
08. Dim objFSO,objFile
09. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
10. Set objFile = objFSO.GetFile(Server.MapPath("MyFiles/thaicreate.txt"))
11. objFile.Move(Server.MapPath("MyNewFiles/thaicreate.txt"))
12. Response.write("Files moved")
13. Set objFSO = Nothing
14. Set objFile = Nothing
15.%>
16.</body>
17.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
