L'exemple de cet article décrit la méthode d'obtention de la taille du fichier en VB. Partagez-le avec tout le monde pour votre référence. La méthode spécifique de mise en œuvre est la suivante :
<% ' Copyright (c) 2009, Réutilisablecode.blogspot.com ; certains droits réservés. ' ' Cette œuvre est sous licence Creative Commons Attribution License. Pour afficher ', envoyez une lettre à Creative Commons, 559 Nathan Abbott Way, Stanford, Californie. ' 94305, USA. ' Récupère la taille d'un fichier donné, fonction 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 = rien set fs = rien end function ' Formater une taille de fichier au maximum unités pratiques. ' Entrée : taille en octets, fonction FormatFileSize(size) unités dim unités de facteur dim = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB") facteur = log(taille) / 7 FormatFileSize = Round(taille / (1024 ^ facteur), 2) & unités (facteur) fonction de fin%>J'espère que cet article sera utile à la programmation VB de chacun.