منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

[صورة مرفقة: p_1663oplrs1.jpg]
جرب هذا الكود :

PHP كود :
   Private Sub GetRestoreFile_Load(sender As ObjectAs EventArgsHandles 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 
هذا السؤال قبل لا احملها في اللست لاني ما عرفت احملها في داتا جريد

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

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