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