[Problem] z pobieraniem pliku.

[mpm112]

Hi, mam problem z pobraniem pliku. Plik musi się znaleźć w tej lokalizacji C:\Users\adm\AppData\Local\MpM

Niestety nie każdy ma nazwę usera adm, wiec jak zrobić aby pobrało tak ?? Wklejanie nie wchodzi grę :/ Próbowałem napisać coś takiego:

Private Sub Tak_Click(sender As Object, e As EventArgs) Handles Tak.Click
	My.Computer.Network.DownloadFile _
 ("http://minecraft.xxx.pl/resources/version_ArialCraft.txt", _
 "%appdata%\Local\MpM\version_ArialCraft.txt")
End Sub

Jednak on zapisuje tam gdzie jest exe :/ Ktoś pomoże ?

[Sunnyline2]

My.Computer.FileSystem.SpecialDirectories.Appdata & "\Local\MpM\version_ArialCraft.txt"

???

[mpm112]

Error 1 'Appdata' is not a member of 'Microsoft.VisualBasic.MyServices.SpecialDirectoriesProxy' ??

[Sunnyline2]

spróbuj z tym

My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData

[somanyidiots]

Tu masz funkcje getcurrentuser(). Sam kiedyś z niej korzystałem, wiem że, można ją skrócić do paru linijek ale nie pamiętam akurat tego kodu więc łap to.

http://support.microsoft.com/kb/161394

//spróbuj też to

Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
   e As System.EventArgs) Handles MyBase.Load
   lblUserName.Text = SystemInformation.UserName
End Sub

[mpm112]

Mam kolejny problem :/

Chciałem aby były pasek postępu oraz informacja, że plik został pobrany, wiec mam taki kod:

Imports System.ComponentModel
Public Class Form1
   Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
    Button1.Enabled = Enabled
    MessageBox.Show("Download completed")
   End Sub
   Private Sub _DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
    ProgressBar.Value = e.ProgressPercentage
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Button1.Enabled = False
    Dim WebClient As New System.Net.WebClient()
    AddHandler WebClient.DownloadFileCompleted, AddressOf DownloadFileCompleted
    AddHandler WebClient.DownloadProgressChanged, AddressOf _DownloadProgressChanged
    WebClient.DownloadFileAsync(New Uri("http:/test.pl/resources/test.zip"), "C:	est	est.zip")
   End Sub
End Class

Niestety on nie pobiera, gdy nacisnę na guzik od razu pokazuje mi się informacja, że niby pobrał, a w tego nie zrobił :X

[Gość Pan Szymek]

Mam kolejny problem :/

Chciałem aby były pasek postępu oraz informacja, że plik został pobrany, wiec mam taki kod:

Imports System.ComponentModel
Public Class Form1
Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
	Button1.Enabled = Enabled
	MessageBox.Show("Download completed")
End Sub
Private Sub _DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
	ProgressBar.Value = e.ProgressPercentage
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	Button1.Enabled = False
	Dim WebClient As New System.Net.WebClient()
	AddHandler WebClient.DownloadFileCompleted, AddressOf DownloadFileCompleted
	AddHandler WebClient.DownloadProgressChanged, AddressOf _DownloadProgressChanged
	WebClient.DownloadFileAsync(New Uri("http:/test.pl/resources/test.zip"), "C:	est	est.zip")
End Sub
End Class

Niestety on nie pobiera, gdy nacisnę na guzik od razu pokazuje mi się informacja, że niby pobrał, a w tego nie zrobił :X

WebClient.DownloadFileAsync(New Uri("http:/test.pl/resources/test.zip"), "C: est est.zip")

Plik jest pobierany w tle, a program leci dalej.

[mpm112]

WebClient.DownloadFileAsync(New Uri("http:/test.pl/resources/test.zip"), "C: est est.zip")

Plik jest pobierany w tle, a program leci dalej.

A wiesz jak to naprawić ??

[Gość Pan Szymek]

A wiesz jak to naprawić ??

Webclient.DownloadFile("http://test.pl/plik.zip", "C/test/test.zip")

[mpm112]

Webclient.DownloadFile("http://test.pl/plik.zip", "C/test/test.zip")

 

Zmieniłem jak pisałeś i teraz mam coś takiego

An exception occurred during a WebClient request.

[Gość Pan Szymek]

Zmieniłem jak pisałeś i teraz mam coś takiego

Pokaż kod, bo mam przeczucie, że się zmieniłeś

[mpm112]

Imports System.ComponentModel
Public Class Form1
Private Sub _DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
	download_button.Enabled = Enabled
	MessageBox.Show("Download completed")
End Sub
Private Sub _DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
	progressBar1.Value = e.ProgressPercentage
End Sub
Private Sub download_button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles download_button.Click
	download_button.Enabled = False
	Dim WebClient As New System.Net.WebClient()
	AddHandler WebClient.DownloadFileCompleted, AddressOf _DownloadFileCompleted
	AddHandler WebClient.DownloadProgressChanged, AddressOf _DownloadProgressChanged
	WebClient.DownloadFile("http:/test.pl/resources/test.zip", "C/test/test.zip")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

[yonji94]

Imports System.ComponentModel
Public Class Form1
Private Sub _DownloadFileCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
	download_button.Enabled = Enabled
	MessageBox.Show("Download completed")
End Sub
Private Sub _DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
	progressBar1.Value = e.ProgressPercentage
End Sub
Private Sub download_button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles download_button.Click
	download_button.Enabled = False
	Dim WebClient As New System.Net.WebClient()
	AddHandler WebClient.DownloadFileCompleted, AddressOf _DownloadFileCompleted
	AddHandler WebClient.DownloadProgressChanged, AddressOf _DownloadProgressChanged
	WebClient.DownloadFile("http:/test.pl/resources/test.zip", "C/test/test.zip")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

 

WebClient.DownloadFile("http:/test.pl/resources/test.zip", "C/test/test.zip") ------> WebClient.DownloadFile("http:/test.pl/resources/test.zip", "C : \ test \ test.zip")

 

Usuń spacje. Możliwe też, że nie ma takiego folderu na dysku i musisz go wcześniej utworzyć.

[Gość Pan Szymek]

Ah, ale głupi jestem

link do pastebin, bo ucina

Tak ma być.