[سعود]

السلام عليكم ورحمة الله وبركاته
اخواني اخواتي
اسال الله لي ولكم التوفيق والسداد في الدارين.
رفعت ملف نصي بالكود ولا مشكلة هنا لكن للافادة فقط الكود التالي هو المسؤول:

كود :

My.Computer.Network.UploadFile(Application.StartupPath & "\testing.txt", "ftp://username:password@ftp.drivehq.com/testing.txt")

ولتنزيله الكود التالي:

كود :

My.Computer.Network.DownloadFile("ftp://username:password@ftp.drivehq.com/testing.txt", Application.StartupPath & "\newtxt.txt")

التالي هو السؤال
يوجد روتينين واحد لرفع النص لملف موجود على استضافة والاخ لتنزيل النص اي قراءة النص فقط
القراءة لا مشكلة لكن اريد حين ارفع نص لملف موجود على استضافة اريد ان يحدث اي يضيف وليس يستبدل
الملف التالي لرفع النص

كود :

Public Sub UploadString(ByVal address As String)

        Dim client As WebClient = New WebClient()
        client.Encoding = System.Text.Encoding.UTF8
        Dim reply As String = client.UploadString(address, myip.text)
        MsgBox("تم رفع النص للملف")
    End Sub

لكنه يستبدل النص فكيف الى تحديثه؟ هل بحيلة ام توجد طريقة معتبرة؟

وهذا لتنزيل النص

كود :

Public Sub DownloadString(ByVal address As String)

        Dim client As WebClient = New WebClient()
        Dim reply As String = client.DownloadString(address)
        Label1.Text = reply
    End Sub

طبعا اريد اضافة ميزة رفع الاي بي مع اسم الجهاز حتى اي شخص يريد ان يدردش مع احد ينقر زر ليتم جلب كافة محتوى الملف النصي طبعا قد نواجه اخطاء لكن نعالجها لاحقا ان شاء الله تعالى

المهم الان هل بكود رفع نص بشكل الحاقي للنص الموجود بالملف النصي المرفوع