<html> <head> <title>ShotDev.Com Tutorial</title> </head> <body> <% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") objFSO.CopyFile Server.MapPath("d:\17.jpg"),Server.MapPath("PicMaterial/17.jpg"),True Response.write ("File Copyed") Set objFSO = Nothing %> </body> </html>
Quote:Server.MapPath("d:\17.jpg")
objFSO.CopyFile "d:\17.jpg",Server.MapPath("PicMaterial/17.jpg"),True
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง