O exemplo neste artigo descreve o método de obtenção do tamanho do arquivo em VB. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
<% ' Copyright (c) 2009, reusablecode.blogspot.com; alguns direitos reservados. ' ' Este trabalho está licenciado sob a licença Creative Commons Attribution. ' 94305, EUA. ' Recupera o tamanho do arquivo de um determinado arquivo function 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 ' Formate um tamanho de arquivo no máximo unidades práticas. ' Entrada: tamanho em bytes função FormatFileSize(size) dim unidades dim factor unidades = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") fator = log(tamanho) / 7 FormatFileSize = Round(tamanho / (1024 ^ fator), 2) & unidades (fator) função final%>Espero que este artigo seja útil para a programação VB de todos.