Option Explicit

Sub fileSizeInfo()
Dim myFilepath As String
Dim myFilesize As Integer

myFilepath = "C:\Users\Dell\Desktop\Adobe Photoshop Cc 2019\"
myFilesize = FileLen(myFilepath & "1.xlsm")
Dim kbVal As Double
kbVal = myFilesize / 1024


MsgBox Format(kbVal, "0.00") & "KB"

End Sub

Keytronic E03601PS25PKB-C Wired KeyboardPrice:
US $55.30
Was US $70.00
Save US $14.70 (21% off)

របៀបដោះស្រាយ CorelDRAW X7 ក្នុង WinDow 11 -Patch-REPT-64 bits

ពន្លឺផ្ទាំងកម្មវិធី coreldraw x7

ពន្លឺផ្ទាំងកម្មវិធី CorelDRAW 2020 V22