منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس (/showthread.php?tid=35773)

هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس - المهنا - 22-07-20

اريد عند فتح الفورم يظهر لي كل النسخ المتوفرة من قاعدة البيانات في لست بوكس أو DataGridView
يعني هي طريقة تحميل أسماء الملفات في مجلد محدد في لست بوكس أو DataGridView مع بيانات التاريخ والحجم

اقدر احمل الملفات في اللست بوكس بس بدون حجم وتاريخ الملف اللي ابغاه يظهر اذا 
تم الضغط على اسم data في اللست بوكس أو تطهر كلها في DataGridView 

[صورة مرفقة: p_1663oplrs1.jpg]

RE: هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس - asemshahen5 - 26-07-20

جرب هذا الكود :

PHP كود :
   Private Sub GetRestoreFile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each filext As String In System.IO.Directory.GetFiles(LblDirectory.Text, "*.Bak")
            Dim getdate = System.IO.File.GetLastWriteTime(filext).ToString("yyyy-MM-dd")
            Dim gettime = System.IO.File.GetLastWriteTime(filext).ToString("hh:mm:ss tt")
            Dim zipsize As String = getsize(filext)
            filext = filext.Replace(LblDirectory.Text, "").Replace("\", "")
            DgvZipFile.Rows.Add(filext.Replace(LblDirectory.Text, "").Replace("\", ""), getdate, gettime, zipsize)
        Next
        LoadDgvColor(DgvZipFile)
    End Sub
    Function getsize(FilePath) As String
        Dim sc As New IO.FileStream(FilePath, IO.FileMode.Open)
        Dim x As String
        x = sc.Length / 1024
        sc.Close()
        x = FormatNumber(x, 2)
        If x < 1024 Then
            Return x & " " & " ك.ب "
        ElseIf x > 1024 Then
            Return (x / 1024).ToString & " " & " م.ب "
        End If
        Return x & " " & " ك.ب "
    End Function 


RE: هل يمكن تحميل اسم قاعدة البيانات في جدول DataGridView أو لست بوكس - المهنا - 26-07-20

هذا السؤال قبل لا احملها في اللست لاني ما عرفت احملها في داتا جريد

بس انت ما قصرت في موضوع النسخة الاحتياطية

ربي يرعاك ويحفظك حليت كل المشاكل