[Problem] Pobieranie pliku oraz zapis go

[mciochu]

Witam.

Mam problem z zapisem pliku w danym miejscu.

Otóż chce by zapisywało dany plik w %appdata%\.minecraft\versions\1.6.2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            MkDir("%APPDATA%\.minecraft\versions\1.6.2\")
            WC.DownloadFileAsync(New Uri("http://www.mciochu.cba.pl/launcher/1.6.2.jar"), "%APPDATA%\.minecraft\versions\1.6.2\1.6.2.jar")
        Catch
            MsgBox("Błąd Podczas Łączenia Z Serwerem")
        End Try
    End Sub

Kiedy klikam aby zaczęło pobierać piki zapisują się w tym samym miejscu co program.

 

Jeśli ktoś zna przyczynę to proszę o pomoc i wyjaśnienie.

[Adrian327d]

Zrób tak :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim appdata as string =  "%APPDATA%\.minecraft\versions\1.6.2\1.6.2.jar"
Dim logDirectoryProperties As System.IO.DirectoryInfo        
If My.Computer.FileSystem.DirectoryExists("%APPDATA%\.minecraft\versions\1.6.2\") 
        Else
            My.Computer.FileSystem.CreateDirectory("%APPDATA%\.minecraft\versions\1.6.2\")
        End If
Try
WC.DownloadFileAsync(New Uri("http://www.mciochu.cba.pl/launcher/1.6.2.jar"), appdata)
Catch
MsgBox("Błąd Podczas Łączenia Z Serwerem")
End Try
End Sub

i dodaj :

 Imports System.IO