มาแนะนำฟังก์ชั่นการทำงานของไฟล์ FSO ใน ASP
แอตทริบิวต์วัตถุ FSO ไฟล์ (ไฟล์)
Datecreated ส่งคืนวันที่สร้างและเวลาของโฟลเดอร์
DatelaastAccessed ส่งคืนวันที่และเวลาของการเยี่ยมชมครั้งล่าสุดในไฟล์
DatelaastModify ส่งคืนวันที่และเวลาของการปรับเปลี่ยนล่าสุดของไฟล์
ไดรฟ์ส่งคืนวัตถุไดรฟ์ของไดรฟ์ที่ไฟล์อยู่
การตั้งค่าชื่อหรือส่งคืนชื่อไฟล์
ParentFolder ส่งคืนวัตถุโฟลเดอร์ของโฟลเดอร์หลักของไฟล์
PATH ส่งคืนเส้นทางสัมบูรณ์ของไฟล์คุณสามารถใช้ชื่อไฟล์ยาว
ShortName ส่งคืนรูปแบบไฟล์ DOS -style 8.3
shortpath ส่งคืน dos -style 8.3 รูปแบบของไฟล์สัมบูรณ์
ขนาดส่งคืนขนาดของไฟล์ (ไบต์)
หากประเภทอาจส่งคืนสตริงคำสั่งประเภทไฟล์
วิธีวัตถุ FSO (ไฟล์)
วิธีการใช้วิธีวัตถุไฟล์ FSO
CopyFile คัดลอกไฟล์หนึ่งไฟล์ขึ้นไปไปยังพา ธ ใหม่
createTextFile สร้างไฟล์และส่งคืนวัตถุ TextStream
DELETEFILE ลบไฟล์
OpentExtFile เปิดไฟล์และส่งคืนวัตถุ TextStream เพื่ออ่านหรือเพิ่ม
ไฟล์ชื่อ Rena:
รหัสมีดังนี้:
Function Rename (sourcename, destname)
หรี่
Set Offso = Server.CreateObject (Scripting.FilesYstemObject)
Set ofile = Offso.getFile (Server.Mappath (แหล่งที่มา)))))
OFILE.NAME = DESTNAME
ตั้งค่าออกไป = ไม่มีอะไร
Set ofile = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ลบไฟล์:
รหัสมีดังนี้:
ฟังก์ชั่น fsodel (ชื่อไฟล์)
สลัว fso, f
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
f = server.mappath (ชื่อไฟล์)
ถ้า fso.fileexist (f) แล้ว
fso.deletefile f, true
สิ้นสุดถ้า
ตั้งค่า f = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
เปลี่ยนสตริงในไฟล์:
รหัสมีดังนี้:
ฟังก์ชั่น fsoreplace (ชื่อไฟล์, เป้าหมาย, repstring)
Dim objfso, objcountfile, fileTempData
ตั้งค่า objfso = server.createObject (scripting.filesystemobject)
ตั้งค่า objcountfile = objfso.opentextfile (server.mappath (ชื่อไฟล์), 1, true)
fileTempData = objcountfile.readall
objcountfile.close
fileTempData = แทนที่ (fileTempData, เป้าหมาย, repstring)
ตั้งค่า objcountfile = objfso.createtextfile (Server.mappath (ชื่อไฟล์) จริง)
objcountfile.writ fileTempData
objcountfile.close
ตั้งค่า objcountfile = ไม่มีอะไร
ตั้งค่า objfso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: CreateFolder (SPAD)
'ฟังก์ชั่น: สร้างไดเรกทอรี
'พารามิเตอร์: Spath: เส้นทางไดเรกทอรีสัมพัทธ์สร้างขึ้น
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'response.write createFolder (/dgsunshine/uploadfile/demo1/)
ฟังก์ชั่น createFolder (SPI)
เมื่อเกิดข้อผิดพลาดต่อไป
หรี่
ถ้า space = ดังนั้น
createFolder = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
ถ้าเหลือ (spath, 1) = / จากนั้น
โฟลเดอร์ = / /
spath = mid (spath, 2, len (spath))))
อื่น
โฟลเดอร์ = ./
สิ้นสุดถ้า
ถ้าถูกต้อง (spath, 1) = / จากนั้น spath = ซ้าย (spad, len (spad) -1)
arrfolder = split (spath,/)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง ubound (arrfolder)
ถ้าฉัน = 0 แล้ว
โฟลเดอร์ = โฟลเดอร์ & arrfolder (I) & /
อื่น
โฟลเดอร์ = โฟลเดอร์ & arrfolder (I) & /
สิ้นสุดถ้า
ถ้า fso.foldrexists (server.mappath (โฟลเดอร์)) = false แล้ว
Response.write Server.Mappath (โฟลเดอร์)
FSO.CreateFolder (Server.Mappath (โฟลเดอร์))
สิ้นสุดถ้า
ต่อไป
ตั้งค่า fso = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
err.clear ()
createFolder = false
อื่น
createFolder = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น getFile (paramfilepath)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ตั้งค่า fso_read = fso.opentextfile (server.mappath (paramfilepath), 1, false, -2)
getFile = fso_read.readall
ตั้งค่า fso_read = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: createFile (ParamFileContent, ParamFilePath)
'ฟังก์ชั่น: สร้างไฟล์
'พารามิเตอร์: เนื้อหาไฟล์ paramfileContent'
ชื่อไฟล์ 'ParamFilePath' (ไม่รวมเส้นทาง)
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น createFile (ParamFileContent, ParamFilePath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว fso, fwrite
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ตั้งค่า fwrite = fso.createTextFile (Server.Mappath (ParamFilePath), TRUE)
fwrite.write paramfileContent
fwrite.close ()
ตั้งค่า fwrite = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
err.clear ()
createFile = false
อื่น
createFile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: Delfile (FilePath)
'ฟังก์ชั่น: ลบไฟล์
'พารามิเตอร์: พา ธ FilePath' หลายไฟล์สำหรับหลายไฟล์ |
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น delfile (filepath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว fso, arrfile, i
ถ้า getSafestr (filepath,) = แล้ว
createFolder = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
arrfile = split (filepath, | |)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง ubound (arrfile)
filePath = arrFile (i)
ถ้า fso.fileexist (server.mappath (filepath) แล้ว) แล้ว
FSO.DeleteFile Server.Mappath (FilePath)
สิ้นสุดถ้า
ต่อไป
ตั้งค่า fso = ไม่มีอะไร
ถ้าเอ่อแล้ว
err.clear ()
delfile = false
อื่น
delfile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: Delfolder (FolderPath)
'ฟังก์ชั่น: ลบไดเรกทอรี
'พารามิเตอร์: เส้นทางไดเรกทอรี' FolderPath '
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น delfolder (FolderPath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว fso, arrfolder, i
ถ้า getSafestr (folderPath,) = แล้ว
delfolder = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
arrfolder = split (folderPath, |)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง ubound (arrfolder)
folderPath = arrfolder (i)
ถ้า fso.foldrexists (server.mappath (folderPath) จากนั้น) แล้ว
FSO.DeleteFolder Server.Mappath (FolderPath)
สิ้นสุดถ้า
ต่อไป
ถ้าเอ่อแล้ว
err.clear ()
delfolder = false
'อาบน้ำลบไดเรกทอรีล้มเหลว
อื่น
delfolder = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: isExistFile (FilePath)
'ฟังก์ชั่น: ตรวจสอบว่ามีไฟล์หรือไดเรกทอรีอยู่
'พารามิเตอร์: พา ธ FilePath' หลายไฟล์สำหรับหลายไฟล์ |
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น isExistFile (filePath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว fso, arrfile, i
ถ้า getSafestr (filepath,) = แล้ว
isExistFile = false
สิ้นสุดถ้า
arrfile = split (filepath, | |)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง ubound (arrfile)
filePath = arrFile (i)
ถ้า fso.fileexist (server.mappath (filepath) แล้ว) แล้ว
isExistFile = true
สิ้นสุดถ้า
ถ้า fso.foldrexist (server.mappath (filepath)) แล้ว
isExistFile = true
สิ้นสุดถ้า
ต่อไป
ตั้งค่า fso = ไม่มีอะไร
ถ้าเอ่อแล้ว
err.clear ()
isExistFile = false
'อาบน้ำตัดสินว่าไฟล์หรือไดเรกทอรีล้มเหลวหรือไม่
อื่น
isExistFile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: Delfile (FilePath)
'ฟังก์ชั่น: ลบไฟล์หรือไดเรกทอรี
'พารามิเตอร์: พา ธ FilePath' หลายไฟล์สำหรับหลายไฟล์ |
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น delfile (filepath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว fso, arrfile, i
ถ้า getSafestr (filepath,) = แล้ว
createFolder = false
สิ้นสุดถ้า
arrfile = split (filepath, | |)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง ubound (arrfile)
filePath = arrFile (i)
ถ้า fso.fileexist (server.mappath (filepath) แล้ว) แล้ว
FSO.DeleteFile Server.Mappath (FilePath)
สิ้นสุดถ้า
ถ้า fso.foldrexist (server.mappath (filepath)) แล้ว
FSO.DeleteFolder Server.Mappath (FilePath)
สิ้นสุดถ้า
ต่อไป
ตั้งค่า fso = ไม่มีอะไร
ถ้าเอ่อแล้ว
err.clear ()
delfile = false
'ฝักบัวลบไฟล์หรือไดเรกทอรีล้มเหลว
อื่น
delfile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: RenameFile (OldName, NewName)
'ฟังก์ชั่น: เปลี่ยนชื่อไฟล์หรือไดเรกทอรี
'พารามิเตอร์: stroldname' ชื่อไฟล์ต้นฉบับ Multi -use |
'strNewName' ชื่อไฟล์ใหม่ Multi -use |
'โปรดเก็บพารามิเตอร์สองตัวเดียวกันไว้ให้สอดคล้องกัน
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น renamefile (stroldname, strnewname)
เมื่อเกิดข้อผิดพลาดต่อไป
Dim fso, arrold, arrnew, i, oldname, newname
old = getSafestr (stroldname,)
newFile = getSafestr (strNewName,)
ถ้า old = หรือ newfile = จากนั้น
RenameFile = FALSE
ฟังก์ชั่นออก
สิ้นสุดถ้า
arold = split (stroldname, |)
arrNew = split (strNewName, |)
ถ้า ubound (arrods) <> ubound (arrnew) แล้ว
RenameFile = FALSE
ฟังก์ชั่นออก
สิ้นสุดถ้า
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
สำหรับ i = 0 ถึง Ubound (ลูกศร)
oldName = server.mappath (arrods (i))
newName = server.mappath (arrNew (i))
ถ้า fso.fileexist (OldName) และไม่ใช่ fso.fileexists (newName) แล้ว
fso.movefile OldName, NewName
'renameFile = true
สิ้นสุดถ้า
ต่อไป
ตั้งค่า fso = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
err.clear ()
RenameFile = FALSE
อื่น
renameFile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
'ชื่อฟังก์ชั่น: Copyfiles (Tempsource, Tempend)
'ไฟล์: คัดลอกไฟล์หรือไดเรกทอรี
'พารามิเตอร์: Tempsource' ชื่อไฟล์หลายรุ่น -Purpose |
'Tempend' ชื่อไฟล์ destable multi -purpose |
'หมายเหตุ: โปรดเก็บพารามิเตอร์สองพารามิเตอร์ไว้ข้างต้นและทั้งคู่เป็นเส้นทางที่สมบูรณ์
'เมธอดเซิร์ฟเวอร์ได้รับการประมวลผลแล้ว
'ค่าส่งคืน: ความสำเร็จจริงล้มเหลวเท็จ
'*********************************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******
ฟังก์ชั่น Copyfiles (Tempsource, Tempend)
เมื่อเกิดข้อผิดพลาดต่อไป
Dim Copyfso, Arrsource, Arrend
CopyFiles = FALSE
ตั้งค่า copyfso = server.createObject (scripting.filesystemobject)
ถ้า tempsource = หรือ tempend = จากนั้น
ไฟล์หรือไดเร็กทอรี errraise เงื่อนไขว่างเปล่า
CopyFiles = FALSE
ฟังก์ชั่นออก
สิ้นสุดถ้า
arrsource = split (tempsource, |)
arrend = split (tempend, |)
ถ้า ubound (arrsource) <> ubound (อนุญาโตตุลาการ) แล้ว
CopyFiles = FALSE
ฟังก์ชั่นออก
สิ้นสุดถ้า
สำหรับ i = 0 ถึง Ubound (arrsource)
srcname = arrsource (i)
tarname = arrend (i)
ถ้า copyfso.filexists (srcname) และไม่ใช่ copyfso.fileexist (tarname) แล้ว
Copyfso.CopyFile Srcname, tarname
copyfiles = true
สิ้นสุดถ้า
ถ้า copyfso.foldrexist (srcname) และไม่ใช่ copyfso.foldrexist (tarname) แล้ว
Copyfso.copyfolder srcname, tarname
copyfiles = true
สิ้นสุดถ้า
ต่อไป
ตั้งค่า copyfso = ไม่มีอะไร
ถ้าเอ่อแล้ว
'err.clear ()
CopyFiles = FALSE
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-