McAfee DAT Download - UPDATED!

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

 Dim i As String
 Dim j As String
 Dim x As Integer
 Dim fso
 Dim fil
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set fil = fso.OpenTextFile(App.Path & "\CopyLog.log", 8, True)
 j = "C:\1 Share\McAfee 4.5.1 Install Tools\SDAT\" 'Download location
 On Error Resume Next
 fso.DeleteFile j & "sdat*.exe", True 'Delete old SuperDAT file
 On Error GoTo ErrorFTP
 
 x = 4248
 Do While Now = Now 'Run continuously
 i = "ftp://ftp.nai.com/pub/antivirus/superdat/intel/sdat" & x & ".exe" 'Location and file to download from
 DoEvents 'Do Windows Events
 URLDownloadToFile 0, i, j & "sdat" & x & ".exe", 0, 0 'Download the file to your Download Location
 DoEvents
 s = "sdat" & x & ".exe"
 If fso.FileExists(j & s) Then 'If the file exists,
  Shell j & s & " -s" 'then run the SuperDAT in Silent Mode
  Set fso = Nothing 'Destroy Objects
  Set fil = Nothing
  Exit Sub 'Exit Sub or Unload Me
 End If
 x = x + 1 'Add another number and
 Loop 'loop to start again if not terminated.
 
ErrorFTP:
 fil.WriteLine "FTP Error: " & Err.Number & " " & Err.Description
 Resume Next