[MOSTAFA.KAMEL]

مشكلة فى كود رابط بيحمل ملف من على النت

المشكلة عايز لما يحمل الملف ينزلو فى ملفات البرنامج ملفات البرنامج

[MOSTAFA.KAMEL]

الووووووووووو

[سعود]

PHP كود :

       wc.DownloadFile(New System.Uri("http://dl.dropboxusercontent.com/s/j100zeaj8csst22/MyDB.accdb"), Application.StartupPath & "\MyDB.accdb") 


[MOSTAFA.KAMEL]

(09-09-16, 07:37 PM)سعود كتب :

PHP كود :

       wc.DownloadFile(New System.Uri("http://dl.dropboxusercontent.com/s/j100zeaj8csst22/MyDB.accdb"), Application.StartupPath & "\MyDB.accdb") 


شكراااااااااا شغال

[سعود]

بس الاحداث ماتشتغل كذا واذا اشتغلت مايحمل

[MOSTAFA.KAMEL]

(09-09-16, 08:06 PM)سعود كتب : بس الاحداث ماتشتغل كذا واذا اشتغلت مايحمل

اه صحيح كلامك بس انا غير الكلمة دى باكلمة دى وشتغل         wc.DownloadFileAsync

بس الرساله مش بتيجى بعد التحميل


        MsgBox("تم التحميل ")

[ممدوح]

هذا مثال تحميل ملف مع عرض شريط التقدم ProgressBar

كود :

Public Class Form1

    Private WithEvents wc As New Net.WebClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        wc.DownloadFileAsync(New System.Uri("http://dl.dropboxusercontent.com/s/j100zeaj8csst22/MyDB.accdb"), Application.StartupPath & "\MyDB.accdb")
    End Sub

    Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
        MsgBox("تم التحميل ")
    End Sub

End Class

[MOSTAFA.KAMEL]

(09-09-16, 10:49 PM)ممدوح كتب : هذا مثال تحميل ملف مع عرض شريط التقدم ProgressBar

كود :

Public Class Form1

   Private WithEvents wc As New Net.WebClient

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       wc.DownloadFileAsync(New System.Uri("http://dl.dropboxusercontent.com/s/j100zeaj8csst22/MyDB.accdb"), Application.StartupPath & "\MyDB.accdb")
   End Sub

   Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
       Me.ProgressBar1.Value = e.ProgressPercentage
   End Sub

   Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
       MsgBox("تم التحميل ")
   End Sub

End Class

شكراااااااااااااااااا لك

[CLARO]

بببووووووووووووركت اخي ممدوح

[abumuhannadzym]

السلام عليكم هل من الممكن وضع الملف في مسار d مثلا