22-12-16, 05:12 PM
22-12-16, 05:34 PM
عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر
ومنه سوف تحصل علي اي بيانات عن الملف
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر
ومنه سوف تحصل علي اي بيانات عن الملف
22-12-16, 08:54 PM
(22-12-16, 05:34 PM)silverlight كتب : [ -> ]عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر
ومنه سوف تحصل علي اي بيانات عن الملف
من الافضل لي
ان تقوم بعمل
لي مشروع حتي
افهمك
وسكرا
22-12-16, 09:10 PM
لا يحتاج لمشروع صديقي فقط قم بعمل فورم بسيط وضع به زر امر و ليبل
ثم استخدم الكود التالي في الزر
ثم استخدم الكود التالي في الزر
PHP كود :
Dim OpenF As New OpenFileDialog()
If OpenF.ShowDialog = DialogResult.OK Then
Dim fileCreatedDate As DateTime = IO.File.GetCreationTime(OpenF.FileName)
Label1.Text = fileCreatedDate
End If
22-12-16, 09:10 PM
السلام عليكم
هذا الكود يعتمد على الأداة OpenFileDialog1
وبعد اختيار ملف يقوم بقراءة معلومات من خصائص الملف من خلال FileInfo
ومن المعلومات نعرض وقت وتاريخ إنشاء الملف من الخاصية CreationTime
هذا الكود يعتمد على الأداة OpenFileDialog1
وبعد اختيار ملف يقوم بقراءة معلومات من خصائص الملف من خلال FileInfo
ومن المعلومات نعرض وقت وتاريخ إنشاء الملف من الخاصية CreationTime
كود :
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fi As New IO.FileInfo(OpenFileDialog1.FileName)
TextBox1.Text = fi.CreationTime
End If22-12-16, 09:25 PM
الفكرة في استخدام FileInfo انك تستطيع الحصول علي معلومات كثيرة عن الملف بل و تستطيع ان تستخدمها بتوسع اكبر لأغراض اخري مثل عمل Encrypt للملف مثلا
و الكود لن يختلف كثيرا عن ما كتبه لك الأخوة و الكود سيكون هكذا
أنت فقط لو أضعت من وقتك قليلا لدراسة الكلاس لن تحتاج لمن يكتب لك الكود أصلا
و الكود لن يختلف كثيرا عن ما كتبه لك الأخوة و الكود سيكون هكذا
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim fi As New IO.FileInfo(OpenFileDialog1.FileName)
' ممكن تحصل علي معلومات كثيرة بهذا الاسلوب
Me.Label1.Text = fi.CreationTime.ToString
Me.Label2.Text = fi.LastWriteTime.ToString
Me.Label3.Text = fi.Name
Me.Label4.Text = fi.IsReadOnly
End If
End Sub