Contoh pada artikel ini menjelaskan metode mendapatkan ukuran file di VB. Bagikan dengan semua orang untuk referensi Anda. Metode implementasi spesifiknya adalah sebagai berikut:
<% ' Hak Cipta (c) 2009, reusablecode.blogspot.com; beberapa hak dilindungi undang-undang. ' ' Karya ini dilisensikan di bawah Lisensi Atribusi Creative Commons. Untuk melihat ' kirim surat ke Creative Commons, 559 Nathan Abbott Way, Stanford, California ' 94305, AS. ' Ambil ukuran file dari file tertentu. fungsi 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 = tidak ada set fs = tidak ada fungsi akhir ' Memformat ukuran file paling banyak unit praktis. ' Masukan: ukuran dalam byte fungsi FormatFileSize(ukuran) unit redup unit faktor redup = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") faktor = log(ukuran) / 7 FormatFileSize = Bulat(ukuran / (1024 ^ faktor), 2) & unit(faktor) fungsi akhir%>Saya harap artikel ini bermanfaat untuk pemrograman VB semua orang.