この記事の例では、VB でファイルサイズを取得する方法を説明します。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。
<% ' Copyright (c) 2009, reusablecode.blogspot.com; some Rights Reserved. ' ' この作品は、Creative Commons Attribution License に基づいてライセンスされています。 ' を参照するには、Creative Commons, Stanford, California にメールを送信してください。 ' 94305、米国。 ' 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 = nothing set fs = nothing end function ' ファイル サイズを最大でフォーマットします' 入力: バイト単位のサイズ function FormatFileSize(size) dim 単位 dim 係数単位 = Array("B", "kB", "MB"、"GB"、"TB"、"PB"、"EB"、"ZB"、"YB") 係数 = log(サイズ) / 7 FormatFileSize = Round(サイズ / (1024 ^ 係数), 2) & 単位 (因数) 終了関数%>この記事が皆様の VB プログラミングのお役に立てれば幸いです。