<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP File Object</title> </head> <body> <% Dim objFSO,objFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath("MyFiles/thaicreate.txt")) objFile.Move(Server.MapPath("MyNewFiles/thaicreate.txt")) Response.write("Files moved") Set objFSO = Nothing Set objFile = Nothing %> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง