El ejemplo de este artículo describe el método para obtener el tamaño del archivo en VB. Compártelo con todos para tu referencia. El método de implementación específico es el siguiente:
<% ' Copyright (c) 2009, reutilizablecode.blogspot.com; algunos derechos reservados ' ' Este trabajo tiene la licencia Creative Commons Attribution License ' envíe una carta a Creative Commons, 559 Nathan Abbott Way, Stanford, California. ' 94305, EE. UU. ' Recupera el tamaño de un archivo determinado función 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 = nada set fs = nada end function ' Formatear un tamaño de archivo en la forma más unidades prácticas. ' Entrada: tamaño en bytes función FormatFileSize(tamaño) unidades tenues unidades de factor tenue = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") factor = log(tamaño) / 7 FormatFileSize = Round(tamaño / (1024 ^ factor), 2) & unidades (factor) función final%>Espero que este artículo sea útil para la programación VB de todos.