Das Beispiel in diesem Artikel beschreibt die Methode zum Ermitteln der Dateigröße in VB. Teilen Sie es als Referenz mit allen. Die spezifische Implementierungsmethode ist wie folgt:
<% ' Copyright (c) 2009, usedcode.blogspot.com; ' ' Dieses Werk ist unter der Creative Commons Attribution License lizenziert. ' Senden Sie einen Brief an Creative Commons, 559 Nathan Abbott Way, Stanford, Kalifornien ' 94305, USA. ' Rufen Sie die Dateigröße einer bestimmten Datei ab. Funktion 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 = Nothing set fs = Nothing end function ' Formatieren Sie eine Dateigröße in den meisten Fällen praktische Einheiten. ' Eingabe: Größe in Bytes Funktion FormatFileSize(size) Dim-Einheiten Dim-Faktor-Einheiten = Array("B", "kB", „MB“, „GB“, „TB“, „PB“, „EB“, „ZB“, „YB“) Faktor = log(Größe) / 7 FormatFileSize = Round(Größe / (1024 ^ Faktor), 2) & Einheiten(Faktor) Endfunktion%>Ich hoffe, dass dieser Artikel für die VB-Programmierung aller hilfreich sein wird.