منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده في حفظ ملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده في حفظ ملف (/showthread.php?tid=35604)

مساعده في حفظ ملف - اليوم السابع - 12-07-20

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

RE: مساعده في حفظ ملف - ابو روضة - 12-07-20

الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت 
وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .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


RE: مساعده في حفظ ملف - اليوم السابع - 12-07-20

(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