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


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

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


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

الأوسمة:

رد واحد to “كيف تعرف معلومات عن أى ملف”

  1. abdoumahrous Says:

    اريد المساعدة فى ملفين اكسيل اريد عمل برنامج لهم جزاك الله خيراً وهل يوجد طريقة لرفع الملفين بالمدونة

ضع رد

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

WordPress.com Logo

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

صورة تويتر

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

Facebook photo

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

Google+ photo

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

Connecting to %s


%d مدونون معجبون بهذه: