ファイルサイズ取得 Select Case 使用
ファイルサイズ取得ファンクションを作ってみた。
型がオブジェクトなのは、文字や数値をまとめて配列に入れたかったからで、そうでなければ Double がいいかな。
Private Sub method(ByVal FullPath As String) Dim info As New System.IO.FileInfo(FullPath) Dim FileSize As object = ChangeFileSize(info.Length) End Sub Function ChangeFileSize(ByVal FileSize As Object) Dim dFileSize = CType(FileSize, Double) Select Case dFileSize Case 0 To 1024 Return "1 KB" Case (1024 + 1) To (1024 ^ 2) Return Math.Round((dFileSize / 1024), 0) & " KB" Case ((1024 ^ 2) + 1) To (1024 ^ 4) Return Math.Round((dFileSize / (1024 ^ 2)), 2) & " MB" Case ((1024 ^ 4) + 1) To (1024 ^ 8) Return Math.Round((dFileSize / (1024 ^ 4)), 2) & " GB" Case ((1024 ^ 8) + 1) To (1024 ^ 16) Return Math.Round((dFileSize / (1024 ^ 8)), 2) & " TB" Case Else Return dFileSize End Select End Function