Конвертация размера файла (байты в кило-, мегабайты)
'При загрузке файла вы передаете в функцию полное имя файла и получаете ''удобоваримое' обозначение размера файла. В данном примере ссылка на файл 'уже расположена в функции.
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 - "Конвертация размера файла (байты в кило-, мегабайты)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!