تستطيه معرفة معلومات الملف مثل اسم الملف وحجمة ومتى أنشيء ومتى كان اخر تعديل تم على هذا الملف
وذلك من خلال الكود التالى :
قم بفتح ملف اكسيل جديد ثم افتح محرر البيسك

وانشيء وحدة نمطية جديدة وضع فيها هذا الكود :


Sub ShowFolderSize(filespec)

Dim fs, F, S
Set fs = CreateObject("Scripting.FileSystemObject")

Set F = fs.GetFile("E:\Bids.xls")

S = "File Name :" & UCase(F.Name) & vbLf & _
"Total Size: " & FormatNumber(F.size) & " Kbytes" & vbLf & _
"Created :" & F.DateCreated & vbLf & _
"Modifide :" & F.DateLastModified & vbLf & _
"Last Accessed: " & F.DateLastAccessed

MsgBox S, 0, "File Size Info"

Open "Log.log" For Append As #2 'Open file
Print #2, S

Close #2 'Close
Exit Sub 'Exit

End Sub
'
Sub GetII()
'
ShowFolderSize (filespec)
'
End Sub