1つのファイルしかダウンロードできません

Question

最初のファイルが完成した後に2番目のファイルをダウンロードしようとすると、問題が発生しています。

これはエラーです：

System.IO.IOException: 'Cannot create "C:\Users\user\Desktop\d.zip" because a file or directory with the same name already exists.'

このファイルには、そう何が起こっているのか見当がつかないが存在しません。

コード：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim req As System.Net.WebRequest 
    Dim resp As System.Net.WebResponse 
    req = Net.WebRequest.Create("https://filedownloads.000webhostapp.com/RedAlert1_Online.rar") 
    resp = req.GetResponse 
    req.Method = Net.WebRequestMethods.Http.Get 
    download_size = resp.ContentLength 
    ProgressBar1.Maximum = download_size 

    File_name = InputBox("Please Enter File Name!") 
    File_save = File_save + "\" + File_name + ".zip" 

    If File_name.Length > 0 Then 
     My.Computer.Network.DownloadFile("https://filedownloads.000webhostapp.com/RedAlert1_Online.rar", (File_save), "", "", False, 360000, True) 
     Timer1.Start() 
     Button1.Hide() 
    End If 
End Sub 

Dim download_size As Long 
Dim downloaded_size As Long 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    downloaded_size = My.Computer.FileSystem.GetFileInfo(File_save).Length 
    ProgressBar1.Value = downloaded_size 
End Sub 

私は進捗バーが、私はちょうど変更されたブロック内の第二のダウンロードのために、この同じコードの別のブロックを持っている、タイマーなどが開始されます。

Answer 1

ダウンロードする前に、既にファイルが存在するかどうかを確認してください。コメントにコードを表示することはできないので、答えとして書くことができます。ちなみに、URLは.rarですが、File_saveは.zipです。

If File_name.Length > 0 Then 
    If File.Exists(File_save) Then 
     MessageBox.Show("File already exist") 
    Else 
     My.Computer.Network.DownloadFile("https://filedownloads.000webhostapp.com/RedAlert1_Online.rar", (File_save), "", "", False, 360000, True) 
     Timer1.Start() 
     Button1.Hide() 
    End If 
End If