Output text File creation/saving VBA code timing issue

[portews]

Greetings!

I'm working on an portion of code in my workbook to FTP some files. To do that, I'm creating a FTPcmd.txt file via code containing the FTP commands, closing the file and then shelling the FTP command in the CMD window. It looks like the command file is taking too long to complete the write and, therefore, I'm getting an "Permission Refused" error. The FTP log says "Error opening script file C:\temp\FTPcmd.txt." I am error checking to see if the file exists, but I think the file shows up as existing after the open statement, not the close. I'm not hitting the else statement in the DIR <>"" The IsFileOpen function was found on VBA Express : Excel - Check If a File Is Already Open

If I step through it manually, it works, after I see the file appear in the directory.

I'm also piping the FTP output to a file and reading it back in for success/failure messaging in a similar manner and I'm getting the same problem with that.

Anyone have any ideas? Thanks in advance!

Open temppath & "FTPcmd.txt" For Output As #2    
    Print #2, "user " & FSOUserName
    Print #2, FSOpw
    Print #2, "lcd " & temppath
    Print #2, "cd public_html"
    Print #2, "binary"
    Print #2, "mput " & Chr(34) & "index.htm" & Chr(34)
    Print #2, "cd .."
    Print #2, "cd public_ftp"
    Print #2, "mput " & Chr(34) & myfilename & Chr(34)
    Print #2, "bye"
Close #2
Start = Timer
FTPlooper:
If Timer - Start > 30 Then saveme = 1: Text = Text & " FTP Failure": GoTo failpoint
If Dir(temppath & "FTPcmd.txt") <> "" And IsFileOpen(temppath & "FTPcmd.txt") = False Then
    Shell "cmd /c ftp -n -i -g -s:" & temppath & "FtpCmd.txt " & FSOHostURL & ">" & temppath & "ftpout.txt 2>&1"
Else
    GoTo FTPlooper
End If

Here's the function I'm using to see if the file is open.

Function IsFileOpen(FileName As String)'http://www.vbaexpress.com/kb/getarticle.php?kb_id=468
    Dim iFilenum As Long
    Dim iErr As Long
     
    On Error Resume Next
    iFilenum = FreeFile()
    Open FileName For Input Lock Read As #iFilenum
    Close iFilenum
    iErr = Err
    On Error GoTo 0
     
    Select Case iErr
    Case 0:    IsFileOpen = False
    Case 70:   IsFileOpen = True
    Case Else: Error iErr
    End Select
     
End Function