'เดิมเขียนไว้ใน VB เพื่อห่อหุ้มมันลงใน DLL สำหรับการใช้ ASP และต่อมาอัพเกรดเป็น vb.net
'นี่เป็นส่วนหนึ่งของเว็บไซต์ภาพยนตร์ที่ฉันเขียนไว้ก่อนหน้านี้ โปรแกรมค่อนข้างง่ายและไม่มีความคิดเห็น ทุกคนสามารถจัดการกับมันได้
'Programbysomeeyes
'เปิดใช้งานเพื่อประกาศ importssystem.io namespace
PublicFunctionMyFileExists (byvalpathnameasstring) asstring'check ว่าไฟล์มีอยู่จริงหรือไม่
iffile.exists (ชื่อพา ธ ) = falsethen
myFileExists = "<fontColor =" "red" "> ไฟล์หายไป </font>"
อื่น
myFileExists = "<fontColor =" "#0066ff" "> ไฟล์มีอยู่ </font>" "
endif
endfunction
PrivatesubMyCreatDirectory (byvalpathnameasstring) 'สร้างโฟลเดอร์
พยายาม
ifdirectory.exists (ชื่อพา ธ ) = falsethen
directory.createdirectory (ชื่อพา ธ )
endif
การรับรู้
myerrmsg = myerrmsg & "สร้าง" & pathname & "เกิดข้อผิดพลาดที่ไม่คาดคิดเมื่อฉันสร้างโฟลเดอร์"
myerrmsg = myerrmsg & e.toString
httpContext.current.response.write ("โปรแกรมพบข้อผิดพลาดที่ไม่คาดคิดโปรดตรวจสอบไฟล์บันทึกสำหรับรายละเอียด! <br>")
กลุ่ม
enddub
Privatesubmydeldirectory (ByvalPathnameasstring) 'DELETE FOLLETE
พยายาม
ifdirectory.exists (ชื่อพา ธ ) = truethen
directory.delete (ชื่อพา ธ )
endif
การรับรู้
myerrmsg = myerrmsg & "ลบ" & pathname & "เกิดข้อผิดพลาดที่ไม่คาดคิดเกิดขึ้นเมื่อ myerrmsg = myerrmsg &" โฟลเดอร์ "