[RESOLVED] Slow, sporadic print

[re_turner_jr]

OK, The app. is loaded on an XP network, with a shared USB OkiData dot matrix printer as the default printer on all PC's.
My app. simply monitors a certain folder, when a file is saved to that folder the app prints the file (via a third party application) and moves the file to another folder. Below is the code. On each PC there are two applications that are running.

There is a PointOfSale application - This is the app that writes files to the watched folder, this application is run in a Cmd window.

And the Print App - Below is the code

Option Explicit
    Dim DelFiles(0 To 100) As String
    Dim FS As New FileSystemObject
    Dim FSfolder As Folder
    Dim File As File
    Dim Cmd As String
    Dim ErrCnt As Integer
    Dim ErrCnt1 As Integer
    Dim strStartPath As String
    Dim ClkInt As Long
    Dim LstTen(0 To 9) As String
   
Private Sub CmdRprint_Click()
    Dim TNum As String
    Dim dFil As String
    Dim Highest As Currency
    Dim sFileName As String
    TNum = InputBox("Enter the six digit Invoice Number:", _
                        "Re-Print Ticket")
    dFil = "c:\invprnt\" & TNum & ".txt"
    TNum = "c:\bkupinv\" & TNum & ".txt"
    If MRpt.CheckFileExist(TNum) = True Then
        Call FileCopy(TNum, dFil)
        Kill TNum
    ElseIf TNum = "c:\bkupinv\747.txt" Then
        Call Form_Load
    ElseIf TNum = "c:\bkupinv\00.txt" Then
        sFileName = Dir$("c:\bkupinv\" & "*.txt", vbNormal)
        Do Until sFileName = ""
            If Val(sFileName) > Highest Then
                Highest = Val(sFileName)
            End If
            sFileName = Dir
        Loop
        Debug.Print "highest number file name = " & Highest & ".txt"
        Call FileCopy("c:\bkupinv\" & Highest & ".txt", _
                      "c:\invprnt\" & Highest & ".txt")
    Else
        MsgBox "Invalid invoice number.", vbOKOnly, "Entry error"
    End If
End Sub
 
Private Sub Form_Load()
    Dim I As Integer
    ClkInt = CLng(basRegistry.regQuery_A_Key _
            (HKEY_LOCAL_MACHINE, "SOFTWARE", "PRNTMONITOR"))
    Timer.Interval = ClkInt
    ListFolder.Interval = ClkInt
    ListFolder.Enabled = False
    Timer.Enabled = False
    strStartPath = "C:\invprnt"
    Cmd = "c:\dosprint\dosprinter /raw "
    Set FSfolder = FS.GetFolder(strStartPath)
    For I = 0 To 9
        LstTen(I) = ""
    Next
    ListFolder.Enabled = True
End Sub
 
Private Sub ListFolder_Timer()
    Dim Cnt As Integer
    Dim I As Integer
    On Error GoTo ErrorHandle
    Timer.Enabled = False
    ListFolder.Enabled = False
    Cnt = 0
    ErrCnt1 = 0
        Text1.Text = ""
        For Each File In FSfolder.Files
            DoEvents
                Text1.Text = Text1.Text & File & vbCrLf
                Shell (Cmd & File)
                DelFiles(Cnt) = File
                Cnt = Cnt + 1
        Next File
    Timer.Enabled = True
    Exit Sub
ErrorHandle:
    ErrCnt = ErrCnt + 1
    If ErrCnt < 2 Then
        ListFolder.Enabled = True
    Else
        Call MsgBox(Error & vbCrLf & "ListFolder")
    End If
End Sub
 
Private Sub Timer_Timer()
    Dim Flag As Boolean
    Dim Cnt As Integer
    On Error GoTo ErrorHandle
    ListFolder.Enabled = False
    Timer.Enabled = False
    ErrCnt = 0
    Flag = True
    Cnt = 0
    Do While Flag = True And Cnt < 101
        If IsNull(DelFiles(Cnt)) = True Or DelFiles(Cnt) = "" Then
            Flag = False
        Else
            Call FileCopy(DelFiles(Cnt), "c:\bkupinv\" & _
                            Right(DelFiles(Cnt), 10))
            Call Kill(DelFiles(Cnt))
            Cnt = Cnt + 1
        End If
    Loop
    Cnt = Cnt - 1
    Do While Cnt >= 0
        DelFiles(Cnt) = ""
        Cnt = Cnt - 1
    Loop
    ListFolder.Enabled = True
    Exit Sub
ErrorHandle:
    ErrCnt1 = ErrCnt1 + 1
    If ErrCnt1 < 2 Then
        Timer.Enabled = True
        ListFolder.Enabled = False
    Else
        Timer.Enabled = False
        ListFolder.Enabled = True
    End If
End Sub

The problem is that sometimes (not all the time) the application does not print the file. It still move it to the other folder, but it is not send to the printer.
Also sporadically, the printer is very slow in printing the file, by slow I mean sometimes it takes 20 - 40 seconds.

Does anyone see anything that I can fix in the above code? I'm out of options on this and will soon have to try and find another solution, so any help is very much appreciated.

Thanks
-RT