수다닷컴

Imports System.NetImports System.TextImports System.IO
Public Class update
Dim Save_folder As String Dim winhttp As New WinHttp.WinHttpRequest
Dim Client As New WebClient
Private Sub update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
If fdc.ShowDialog() = 1 Then Save_folder = fdc.SelectedPath + \spirit\ path_information.Text = 경로 : + Save_folder Else End End If
MkDir(Save_folder)
Client.DownloadDataAsync(New Uri(링크), Save_folder + kkk.exe)
Me.Text = Save_folder + kkk.wz
AddHandler Client.DownloadProgressChanged, AddressOf down AddHandler Client.DownloadFileCompleted, AddressOf downfinish

End Sub
Private Sub down(ByVal sender As System.Object, ByVal e As DownloadProgressChangedEventArgs)
dpb1.Maximum = e.TotalBytesToReceive dpb1.Value = e.BytesReceived
End Sub
Private Sub downfinish(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) MsgBox(다운끝) End Sub
End Class
위와같이 코딩을했습니다.
다운로드는 되는거같은데. 파일 저장이안됩니다...
도대체 무슨이유인지를 모르겟네요 ㄱ-;
후 3시간동안 이것만...하다가.. .질문해봅니다..
검색해도 없더군요..

신청하기