[سعود]

تفضل الدالتين واحدة للميجابايت والاخرى للكيلو والفرق بسيط

كود :

Private Function gmbfs(ByVal pth As String) As Single
       Dim fs As Single = My.Computer.FileSystem.GetFileInfo(pth).Length
       Return CInt(fs / 1024) / (1024)
   End Function

كود :

Private Function gkbfs(ByVal pth As String) As Single
       Dim fs As Single = My.Computer.FileSystem.GetFileInfo(pth).Length
       Return CInt(fs / 1024)
   End Function

للاستخدام

كود :

       Dim ofd As New OpenFileDialog
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Label1.Text = gkbfs(ofd.FileName) & "Size: kb" & vbNewLine & gmbfs(ofd.FileName) & "Size: mb"
       End If