+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : data of file (/showthread.php?tid=18534)
data of file - ddemed - 22-12-16
السلام عليكم
اريد مشروع
يقوم بفتح اداه
Open file dialoge
ويقوم بختيار اي
ملف من اي نوع
يقوم باظهار تاريخ
انشائه في
Textbox
وشكرا
RE: data of file - silverlight - 22-12-16
عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر
ومنه سوف تحصل علي اي بيانات عن الملف
RE: data of file - ddemed - 22-12-16
(22-12-16, 05:34 PM)silverlight كتب : عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر
ومنه سوف تحصل علي اي بيانات عن الملف
من الافضل لي
ان تقوم بعمل
لي مشروع حتي
افهمك
وسكرا
RE: data of file - ابو ليلى - 22-12-16
لا يحتاج لمشروع صديقي فقط قم بعمل فورم بسيط وضع به زر امر و ليبل
ثم استخدم الكود التالي في الزر
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
RE: data of file - مساعدة - 22-12-16
السلام عليكم
هذا الكود يعتمد على الأداة OpenFileDialog1
وبعد اختيار ملف يقوم بقراءة معلومات من خصائص الملف من خلال FileInfo
ومن المعلومات نعرض وقت وتاريخ إنشاء الملف من الخاصية CreationTime
كود :
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fi As New IO.FileInfo(OpenFileDialog1.FileName)
TextBox1.Text = fi.CreationTime
End IfRE: data of file - silverlight - 22-12-16
الفكرة في استخدام 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