تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
data of file
#1
Wink 
السلام عليكم
اريد مشروع 
يقوم بفتح اداه
Open file dialoge
ويقوم بختيار اي 
ملف من اي نوع
يقوم باظهار تاريخ
انشائه في 
Textbox
وشكرا
الرد
تم الشكر بواسطة:
#2
عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر

ومنه سوف تحصل علي اي بيانات عن الملف
الرد
تم الشكر بواسطة: Basil Abdallah , ابو ليلى
#3
(22-12-16, 05:34 PM)silverlight كتب : عليك أن تستخدم FileInfo Class
تقوم بتعريف متغير يعبر عن الكلاس اعلاه
ثم تمرر له اسم الملف كاملا شاملا الفولدر

ومنه سوف تحصل علي اي بيانات عن الملف

من الافضل لي
ان تقوم بعمل
لي مشروع حتي
افهمك
وسكرا
الرد
تم الشكر بواسطة:
#4
لا يحتاج لمشروع صديقي فقط قم بعمل فورم بسيط وضع به زر امر و ليبل
ثم استخدم الكود التالي في الزر


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 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: ddemed
#5
السلام عليكم

هذا الكود يعتمد على الأداة OpenFileDialog1
وبعد اختيار ملف يقوم بقراءة معلومات من خصائص الملف من خلال FileInfo
ومن المعلومات نعرض وقت وتاريخ إنشاء الملف من الخاصية CreationTime
كود :
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    Dim fi As New IO.FileInfo(OpenFileDialog1.FileName)

    TextBox1.Text = fi.CreationTime

End If
الرد
تم الشكر بواسطة: ddemed , ابو ليلى
#6
الفكرة في استخدام FileInfo انك تستطيع الحصول علي معلومات كثيرة عن الملف بل و تستطيع ان تستخدمها بتوسع اكبر لأغراض اخري مثل عمل Encrypt للملف مثلا

و الكود لن يختلف كثيرا عن ما كتبه لك الأخوة و الكود سيكون هكذا



PHP كود :
  Private Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 
أنت فقط لو أضعت من وقتك قليلا لدراسة الكلاس لن تحتاج لمن يكتب لك الكود أصلا
الرد
تم الشكر بواسطة: ddemed , ابو ليلى



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم