[اليوم السابع]

اريد ان أحفظ ملف داخل مجلد Documents علي الويندوز جربت اكتر من كود ولم يفلح معي

[ابو روضة]

الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت 

وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها

كود :

Imports System.Net
Public Class Form1
   Public WithEvents Download As New WebClient

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Download = New WebClient
       Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
   End Sub
End Class

[اليوم السابع]

(12-07-20, 11:16 AM)ابو روضة كتب :

الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت 

وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها

كود :

Imports System.Net
Public Class Form1
   Public WithEvents Download As New WebClient

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Download = New WebClient
       Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
   End Sub
End Class

شكرا اخي ابو روضه علي المساعده ولكن الكود لغبطني استأذنك تشرحه 
انا اريد احفظ ما بداخل التيكست بوكس داخل فولدر الMyDocuments

---

(12-07-20, 11:16 AM)ابو روضة كتب :

الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت 

وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها

كود :

Imports System.Net
Public Class Form1
   Public WithEvents Download As New WebClient

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Download = New WebClient
       Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
   End Sub
End Class

تم الحل شكرا لك يا كبير 

كود :

Sub savinsta()
       Dim dec As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments

       Dim SFD As New SaveFileDialog
       With SFD
           IO.File.WriteAllText("" + dec + "\Acctocinsta.json", TextBox2.Text)
       End With
   End Sub