ฟังก์ชั่นการทำงานของไฟล์ที่ใช้กันทั่วไปของออบเจ็กต์ FileSystem คืออะไร?
1. ราก
รูปแบบฟังก์ชัน root()
คำอธิบายฟังก์ชันส่งคืนตัวแปรสตริงเส้นทาง
รหัสแอปพลิเคชัน 'sample string = c:/intels/jingcaichunfeng/'
ฟังก์ชั่นสาธารณะ root()
root = Request.ServerVariables (Appl_Physical_Path)
ฟังก์ชันสิ้นสุด
2. URL
รูปแบบฟังก์ชัน url()
คำอธิบายฟังก์ชันส่งคืนตัวแปรสตริง URL
รหัสแอปพลิเคชัน 'สตริงตัวอย่าง = http://www.intels.net/filesys.asp'
URL ฟังก์ชั่นสาธารณะ()
url =http://&Request.ServerVariables(ชื่อเซิร์ฟเวอร์)
&Request.ServerVariables(Script_Name)
ฟังก์ชันสิ้นสุด
3. mkdir
รูปแบบฟังก์ชัน mkdir(DIrName)
คำอธิบายฟังก์ชัน สร้างไดเร็กทอรีและข้อมูลส่งคืน
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ mkdir(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FolderExists( xVar ) แล้ว
msg =ขออภัย มีไดเร็กทอรีอยู่แล้ว!
อื่น
Sys.CreateFolder(xVar)
msg =ขอแสดงความยินดี สร้างไดเร็กทอรีสำเร็จแล้ว!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
mkdir = ผงชูรส
ฟังก์ชันสิ้นสุด
4.rmdir
รูปแบบฟังก์ชัน rmdir(DirName)
คำอธิบายฟังก์ชันลบไดเร็กทอรีและส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ rmdir(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FolderExists( xVar ) แล้ว
Sys.DeleteFolder(xVar)
msg =ขอแสดงความยินดี ไดเร็กทอรีถูกลบเรียบร้อยแล้ว!
อื่น
msg =ขออภัย ยังไม่ได้สร้างไดเร็กทอรี!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
rmdir = ข้อความ
ฟังก์ชันสิ้นสุด
5.อิสดีร์
รูปแบบฟังก์ชัน isdir(DirName)
คำอธิบายฟังก์ชัน ตรวจสอบว่ามีไดเร็กทอรีอยู่หรือไม่และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ isdir(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FolderExists( xVar ) แล้ว
ผงชูรส = จริง
อื่น
ผงชูรส = เท็จ
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
isdir = ข้อความ
ฟังก์ชันสิ้นสุด
6.cpdir
รูปแบบฟังก์ชัน cpdir(DirName, Destination, OverWrite)
คำอธิบายฟังก์ชัน: คัดลอกโฟลเดอร์และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ cpdir(xVar, yVar, zVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FolderExists( xVar ) แล้ว
Sys.CopyFolder xVar, รูต&yVar, zVar
msg =ขอแสดงความยินดี การคัดลอกไดเรกทอรีสำเร็จแล้ว!
อื่น
msg =ขออภัย ไม่พบไดเรกทอรีที่คุณกำลังมองหา!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
cpdir=ข้อความ
ฟังก์ชันสิ้นสุด
7.เอ็มวีดีร์
รูปแบบฟังก์ชัน mvdir(DirName, Destination)
คำอธิบายฟังก์ชัน ย้ายโฟลเดอร์และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ mvdir(xVar, yVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FolderExists( xVar ) แล้ว
Sys.MoveFolder xVar, รูต&yVar
msg =ขอแสดงความยินดี ไดเร็กทอรีถูกย้ายแล้ว!
อื่น
msg =ขออภัย ไม่พบไดเรกทอรีที่คุณกำลังมองหา!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
mvdir = ข้อความ
ฟังก์ชันสิ้นสุด
8.isfile
รูปแบบฟังก์ชัน isfile (ชื่อไฟล์)
คำอธิบายฟังก์ชัน: ตรวจสอบว่ามีไฟล์อยู่หรือไม่และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ isfile(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
ผงชูรส = จริง
อื่น
ผงชูรส = เท็จ
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
isfile = ข้อความ
ฟังก์ชันสิ้นสุด
9.wfile
รูปแบบฟังก์ชัน wfile (ชื่อไฟล์, เขียนทับ, สตริง)
คำอธิบายฟังก์ชันเขียนสตริงลงในไฟล์และส่งกลับข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ wfile(xVar, yVar, zVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้าใช่แล้ว
ตั้งค่า Txt = Sys.OpenTextFile(xVar, 2)
Txt.เขียน(zVar)
Txt.ปิด
msg =ขอแสดงความยินดี ไฟล์ถูกสร้างและบันทึกสำเร็จแล้ว!
อื่น
ถ้า Sys.FileExists( xVar ) แล้ว
msg =ขออภัย มีไฟล์อยู่แล้ว!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
wfile=msg
ฟังก์ชันสิ้นสุด
10.อาร์ไฟล์
รูปแบบฟังก์ชัน rfile(ชื่อไฟล์)
คำอธิบายฟังก์ชันอ่านไฟล์และส่งกลับข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ rfile(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
ตั้งค่า Txt = Sys.OpenTextFile(xVar, 1)
msg = Txt.ReadAll
Txt.ปิด
อื่น
msg =ขออภัย ไม่มีไฟล์อยู่!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
rfile=msg
ฟังก์ชันสิ้นสุด
11. เอไฟล์
รูปแบบฟังก์ชัน afile (ชื่อไฟล์, สตริง)
คำอธิบายฟังก์ชัน เพิ่มสตริงลงในไฟล์และส่งกลับข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ afile(xVar, zVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
ตั้งค่า Txt = Sys.OpenTextFile(xVar, 8)
Txt.เขียน(zVar)
Txt.ปิด
msg =ขอแสดงความยินดี ไฟล์ถูกเพิ่มและบันทึกเรียบร้อยแล้ว!
อื่น
msg =ขออภัย ไม่มีไฟล์อยู่!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
afile = ข้อความ
ฟังก์ชันสิ้นสุด
12.cpfile
รูปแบบฟังก์ชัน cpfile(ชื่อไฟล์, ปลายทาง, เขียนทับ)
คำอธิบายฟังก์ชัน: คัดลอกไฟล์และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ cpfile(xVar, yVar, zVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
Sys.CopyFile xVar, รูท&yVar, zVar
msg =ขอแสดงความยินดี คัดลอกไฟล์สำเร็จแล้ว!
อื่น
msg =ขออภัย การคัดลอกไฟล์ล้มเหลว!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
cpfile = ข้อความ
ฟังก์ชันสิ้นสุด
13.เอ็มวีไฟล์
รูปแบบฟังก์ชัน mvfile(ชื่อไฟล์, ปลายทาง)
คำอธิบายฟังก์ชัน ย้ายไฟล์และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ mvfile(xVar, yVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
Sys.MoveFile xVar, รูท&yVar
msg =ขอแสดงความยินดี ย้ายไฟล์สำเร็จแล้ว!
อื่น
msg =ขออภัย การย้ายไฟล์ล้มเหลว!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
mvfile = ข้อความ
ฟังก์ชันสิ้นสุด
14.rmไฟล์
รูปแบบฟังก์ชัน rmfile(ชื่อไฟล์)
คำอธิบายฟังก์ชันลบไฟล์และส่งคืนข้อมูล
รหัสแอปพลิเคชันฟังก์ชันสาธารณะ rmfile(xVar)
ตั้งค่า Sys = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Sys.FileExists( xVar ) แล้ว
Sys.DeleteFile(xVar)
msg =ขอแสดงความยินดี ไฟล์ถูกลบเรียบร้อยแล้ว!
อื่น
msg =ขออภัย การลบไฟล์ล้มเหลว!
สิ้นสุดถ้า
ตั้งค่า Sys=ไม่มีอะไร
rmfile = ข้อความ
ฟังก์ชันสิ้นสุด