[SaedAmer]

(18-03-20, 08:23 AM)سعود كتب :

لدي برنامج kaspersky  وقد منع تحميل الصور  لعلة في الموقع فلو احببت الرفع مرة اخرى في موقع https://postimages.org/

و اعتذر لاي ازعاج

---

محاولتي وهي بإجرائين:
تحميل كامل الملف وحذف الملف واستبداله بالمحتوى الجديد سواء تم التحديث ام لا.

PHP كود :

Public Class Form1
    Dim fn As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.ReadAllText(fn, System.Text.Encoding.UTF8).Trim = "" Then Exit Sub
        d.Rows.Clear()
        For Each h As String In My.Computer.FileSystem.ReadAllText(fn, System.Text.Encoding.UTF8).Split(vbNewLine)
            If h.Trim = "" Then Exit For
            d.Rows.Add(h.Split("|")(0), h.Split("|")(1), h.Split("|")(2))
        Next
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        IO.File.Delete(fn)
        For Each row As DataGridViewRow In d.Rows
            If row.IsNewRow Then Exit For
            My.Computer.FileSystem.WriteAllText(fn, row.Cells(0).Value & "|" & row.Cells(1).Value & "|" & row.Cells(2).Value & vbNewLine, True, System.Text.Encoding.UTF8)
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        fn = CurDir() & "\t.txt"
        If IO.File.Exists(fn) = False Then
            IO.File.Create(fn).Close()
        End If
    End Sub
End Class