Why does this code not download the file? - vba

Question

Here is the code, please help! I'm so lost. It successfully goes through each ID in the database.txt but every time it throws the exception and reports cannot download. I'm at my wits end, I've tried changing this so many times but nothing. The idea here is to download a file based on the date and the user id.
If its not found - catch the exception, if it is found - print in the datagridview.
Loop until all the IDs have been read.
Dim myDate = Format(DateTimePicker2.Value, "yyyyMMdd")
Do Until DateTimePicker2.Value > DateTimePicker3.Value
For Each strID As String In System.IO.File.ReadAllLines("database.txt")
Try
My.Computer.Network.DownloadFile("ftp://user:pass#ftp.ftp.net/" & strID & "/" & myDate & ".txt", My.Application.Info.DirectoryPath & "\logs\" & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt")
Catch nullDownload As System.Net.WebException
MsgBox("File " & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt could not be downloaded")
End Try
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\logs\" & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt") Then
For Each line As String In
System.IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\logs\" & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt")
DataGridView1.Rows.Add(line.Split(","))
Next
End If
Next
DateTimePicker2.Value = DateTimePicker2.Value.AddDays(1)
Loop
If DateTimePicker2.Value > DateTimePicker3.Value Then
MsgBox("Download complete.")
End If
EDIT: Just wanted to clear some things up...this fails to download ANYTHING. Even if the file exists. I can pull the existing file using a separate function in my application so I know it works and I know the downloading code works. Something is just missing here...
Also for clarity the file address should be ftp://ftp.ftp.net/ID9999/20150718.txt

Answer 1

HUZZAH! It was the date. by using the date as a variable, it fails.
Instead of
My.Computer.Network.DownloadFile("ftp://user:pass#ftp.ftp.net/" & strID & "/" & myDate & ".txt", My.Application.Info.DirectoryPath & "\logs\" & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt")
I use
My.Computer.Network.DownloadFile("ftp://user:pass#ftp.ftp.net/" & strID & "/" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt", My.Application.Info.DirectoryPath & "\logs\" & strID & "\" & Format(DateTimePicker2.Value, "yyyyMMdd") & ".txt")