كيف تعرف معلومات عن أى ملف


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

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


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

1 Comment

ضع رد

إملأ الحقول أدناه بالمعلومات المناسبة أو إضغط على إحدى الأيقونات لتسجيل الدخول:

WordPress.com Logo

أنت تعلق بإستخدام حساب WordPress.com. تسجيل خروج   / تغيير )

صورة تويتر

أنت تعلق بإستخدام حساب Twitter. تسجيل خروج   / تغيير )

Facebook photo

أنت تعلق بإستخدام حساب Facebook. تسجيل خروج   / تغيير )

Google+ photo

أنت تعلق بإستخدام حساب Google+. تسجيل خروج   / تغيير )

Connecting to %s