Can't seem to figure this out...

Option Explicit

Private Sub Form_Load()
Call ShowFileList("D:\ftp\FedEx\Invoices")
tstTimer1.Interval = 60000
End Sub
Private Sub ShowFileList(folderspec)
    Dim fs, f, f1, fc
    Dim FedEx1
    Dim FedEx2 As String
    Dim FedEx3
    Dim FedExFile
    Dim Counter As Long
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("D:\ftp\FedEx\Invoices")
    Set fc = f.Files
    
    On Error Resume Next
    For Each f1 In fc
      If fs.FileExists("D:\ftp\FedEx\invoices\fxInvDetRec.txt") Then
         fs.DeleteFile ("D:\ftp\FedEx\invoices\fxInvDetRec.txt")
      End If
      If fs.FileExists("D:\ftp\FedEx\invoices\" & f1.Name) And f1.Name <> "D:\ftp\FedEx\invoices\fxInvDetRec.txt" Then
         fs.CopyFile "D:\ftp\FedEx\invoices\" & f1.Name, "D:\ftp\FedEx\invoices\Archive\archive" & f1.Name
         fs.MoveFile "D:\ftp\FedEx\invoices\" & f1.Name, "D:\ftp\FedEx\invoices\fxInvDetRec.txt"
         Call run_FedEx_Invoice_Detail_Record_Import
         FedEx1 = Shell("D:\ftp\FedEx\RECV_INVOICES.cmd")
         Counter = 1
      Else
         FedEx1 = Shell("D:\ftp\FedEx\RECV_INVOICES.cmd")
         Counter = 1
      End If
   Next
End Sub
Private Sub tstTimer1_Timer()

Static Counter As Long
   tstTimer1.Enabled = False
   Do While Counter >= 60
      tstTimer1.Enabled = False
      Call ShowFileList("D:\ftp\FedEx\Invoices\")
   Loop
   Counter = Counter + 1
   
End Sub