تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في حفظ ملف
#1
اريد ان أحفظ ملف داخل مجلد Documents علي الويندوز جربت اكتر من كود ولم يفلح معي
الرد
تم الشكر بواسطة: essawq , essawq
#2
الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت 
وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .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
الرد
#3
(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
الرد
تم الشكر بواسطة: ابو روضة , essawq , essawq , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم