0

ファイルダウンローダーを作成していますが、選択したディレクトリまたはデフォルトのディレクトリにファイルをダウンロードしたいと考えています。

コードのダウンロードはこちら：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Button1.Enabled = False
    Button1.Text = "Updating..."
    WebBrowser1.Visible = True

    Dim uri As System.Uri = New System.Uri("http://199.91.154.170/e9f6poiwfocg/pei02c8727sa720/Ultra+v08.zip")
    Dim webclient As System.Net.WebClient = New System.Net.WebClient()

    Dim path As String = 
            If apppath = Nothing then
                New String(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "test\\Test.zip"))
            Else New String
                (apppath)
            End if

    Dim fileInfo As System.IO.FileInfo = New System.IO.FileInfo(path)
    If Not System.IO.Directory.Exists(fileInfo.Directory.FullName) Then
        System.IO.Directory.CreateDirectory(fileInfo.Directory.FullName)
    End If

    AddHandler webclient.DownloadFileCompleted, AddressOf webclient_DownloadDataCompleted

    webclient.DownloadFileAsync(uri, path)

End Sub
Private Sub

そして、ユーザーが選択したパスapppathはここで定義されます：

If apppath = "" Then
        Dim dialog As New FolderBrowserDialog()
        dialog.RootFolder = Environment.SpecialFolder.Desktop
        dialog.SelectedPath = Path.Combine(Environment.GetFolderPath( _
        Environment.SpecialFolder.ApplicationData))
        dialog.Description = "Select directory where to install the files"
        If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            apppath = dialog.SelectedPath
        End If
        My.Computer.FileSystem.WriteAllText(apppath & " apppath.txt", apppath, False)
    End If

Dim path As String elseステートメントを修正する方法は？

前もって感謝します！

4

1 に答える 1

1

あなたの質問を正しく理解していれば、簡単な解決策があると思います。それは次のとおりです。

Dim path As String
If apppath = Nothing then
    path = New String(System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "test\Test.zip"))
Else New String
    path = apppath
End if

あなたの要件を正しく理解していない場合は、さらに情報を提供してください。

于 2013-03-11T18:06:03.780 に答える