Главная страницаОбратная связьКарта сайта

Конвертация размера файла (байты в кило-, мегабайты)



'При загрузке файла вы передаете в функцию полное имя файла и получаете
''удобоваримое' обозначение размера файла. В данном примере ссылка на файл
'уже расположена в функции.

Dim FileSize1 As String
Dim FileSize2 As String

Private Function FileSize()
Static xx
FileSize1 = FileLen("C:\Мои документы\courier.txt")
xx = FileSize1 / 1024
If Len(FileSize1) >= 7 Then
FileSize2 = Format((xx / 1024), "0.00")
FileSize2 = FileSize2 & " MB"
ElseIf Len(FileSize1) >= 4 Then
xx = Format((FileSize1 / 1024), "0.00")
FileSize2 = xx & " K"
Else
FileSize2 = FileSize1 & " Bytes"
End If
Print "File: " & "C:\Мои документы\courier.txt " & vbCrLf & "Old Size: "; FileSize1 & vbCrLf & "New Size: " & FileSize2
Me.Caption = "C:\Мои документы\courier.txt " & " - Size: " & FileSize2
End Function

Private Sub Command1_Click()
Call FileSize
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Конвертация размера файла (байты в кило-, мегабайты)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info