[سعود]

فيه خطا بسيط
التعديل

PHP كود :

           Dim o As New OpenFileDialog
            o.Multiselect = True
            If o.ShowDialog = Windows.Forms.DialogResult.OK Then
                For Each f As String In o.FileNames
                    If IsValidImage(f.ToString) Then
                        Dim dr As DataRow = dt.NewRow
                        dr(1) = IO.Path.GetFileName(f)
                        dr(2) = f
                        dr(3) = filesize(f)
                        dr(4) = GetFileExtension(IO.Path.GetExtension((f)))
                        dr(5) = My.Computer.FileSystem.ReadAllBytes(f)
                        dt.Rows.Add(dr)
                        da.Update(dt)
                    End If
                Next
            End If 


توجد دوال بالموديول