تقييم الموضوع :
  • 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 , ابو ليلى


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  data type mismatch in criteria expression access um_noor20 3 797 08-10-23, 10:14 AM
آخر رد: um_noor20
  عمل نسخه احتياطيه والاستعاده لملف قاعدة بيانات Backup/Restore Localdb MDF file Owz 1 714 25-09-23, 11:52 AM
آخر رد: devpos
  تعديل بيانات data table المتألق9 1 702 19-03-23, 11:24 PM
آخر رد: عضو جديد
  مشكلة في نقل قيمة الخلية الفارغة من data grid view الى ملف الاكسل Mohammed Nafa 1 542 12-01-23, 08:32 PM
آخر رد: salamandal
Star ҉ كتابة مسار ملف معين File Path ҉ أبو خالد الشكري 15 2,735 04-09-22, 07:08 PM
آخر رد: Taha Okla
  Data Grid View mohamedassim 1 758 01-07-22, 06:41 PM
آخر رد: سعود
Lightbulb *○● قراءة نوع البيانات Data Type من قاعدة البيانات ●○* أبو خالد الشكري 10 2,456 29-06-22, 11:51 PM
آخر رد: أبو خالد الشكري
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 1,659 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  سؤال بخصوص الshortcut file اليوم السابع 4 1,583 09-02-22, 11:35 AM
آخر رد: اليوم السابع
  تشغيل برنامج موجود في مجلد programmes file i1982 1 1,209 15-12-21, 02:16 AM
آخر رد: ابو انس

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


يقوم بقرائة الموضوع: