ตัวอย่างในบทความนี้อธิบายวิธีการรับขนาดไฟล์ใน VB แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
<% ' ลิขสิทธิ์ (c) 2009, reusablecode.blogspot.com; ' ' งานนี้ได้รับอนุญาตภายใต้ Creative Commons Attribution License หากต้องการดู ' ให้ส่งจดหมายถึง Creative Commons, 559 Nathan Abbott Way, Stanford, California ' 94305, USA ' รับขนาดไฟล์ของไฟล์ที่กำหนด ฟังก์ชัน getFileSize(someFile) dim fs dim file set fs = Server.CreateObject("Scripting.FileSystemObject") set file = fs.GetFile(Server.MapPath(someFile)) getFileSize = FormatFileSize(file.size) set file = none set fs = none end function ' จัดรูปแบบขนาดไฟล์ให้มากที่สุด หน่วยที่ใช้งานได้จริง ' อินพุต: ฟังก์ชันขนาดเป็นไบต์ FormatFileSize(size) หน่วยสลัว หน่วยตัวประกอบสลัว = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") ปัจจัย = บันทึก (ขนาด) / 7 FormatFileSize = รอบ (ขนาด / (1024 ^ ปัจจัย), 2) & หน่วย (ตัวประกอบ) ฟังก์ชันสิ้นสุด%>ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม VB ของทุกคน