[asemshahen5]

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

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