Getting "Error: 6 Overflow" trying to copy a file.
I have an application that runs fine on several machines, but gets
"Error: 6 Overflow" trying to copy a file on two new computers (all
running WinNT 4.0 SP5.) All the older machines seem fine, it's just the
two new ones that crash. It seems to work logging in, changing
directories, doing a "dir filename" followed by GetChunk to verify a
file exists, but then crashes on the "get" command. Any help would be
appreciated.
Thank you.
Private Function sFTP_Report() As String
'*** Set Up FTP Parameters ***
sFTP_Report = ""
inetFTP.AccessType = icDirect
inetFTP.Document = ""
inetFTP.Password = sFTP_PASSWORD
inetFTP.Protocol = icFTP
inetFTP.RemoteHost = sFTP_ADDRESS
inetFTP.RequestTimeout = 30
inetFTP.UserName = sFTP_LOGON
bFTP_Error = False
'*** Disable "Cancel" during FTP ***
cmdCancel.Enabled = False
Refresh
'*** Start FTP Script ***
lblStatus = "FTP:Logging In"
Refresh
'*** Change Directory ***
lblStatus = "FTP:Changing Directory to " & sFTP_DIRECTORY
Refresh
Call Execute_FTP_Command("cd " & sFTP_DIRECTORY)
'*** Check that File Exists on Remote Machine ***
lblStatus = "FTP:Checking that " & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION & " exists."
Refresh
Call Execute_FTP_Command("dir " & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION)
lblStatus = inetFTP.GetChunk(1024, icString)
If (Left$(lblStatus, Len(sFTP_FILE_NAME & sFTP_FILE_EXTENSION)) =
sFTP_FILE_NAME & sFTP_FILE_EXTENSION) Then
lblStatus = "FTP:File " & sFTP_FILE_NAME & sFTP_FILE_EXTENSION &
" exists."
Refresh
'*** Delete Old File, If Exists ***
If (Dir(sBEARERCAGE_DATABASE_PATH & "\" & sDOWNLOAD_DIRECTORY &
"\" & sFTP_FILE_NAME & sGetJulianDate() & sFTP_FILE_EXTENSION) <> "")
Then
lblStatus = "FTP:Deleting Old " & sFTP_FILE_NAME &
sGetJulianDate() & sFTP_FILE_EXTENSION & " file."
Refresh
Kill sBEARERCAGE_DATABASE_PATH & "\" & sDOWNLOAD_DIRECTORY &
"\" & sFTP_FILE_NAME & sGetJulianDate() & sFTP_FILE_EXTENSION
End If
'*** Get New File ***
lblStatus = "FTP:Getting New " & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION & " file."
Refresh
Call Execute_FTP_Command("get " & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION & " " & sBEARERCAGE_DATABASE_PATH & "\" &
sDOWNLOAD_DIRECTORY & "\" & sFTP_FILE_NAME & sGetJulianDate() &
sFTP_FILE_EXTENSION)
'*** Check for Error ***
If (inetFTP.ResponseCode <> 0) Then
MsgBox "There was an Error FTPing " & sFTP_ADDRESS & ":" &
sFTP_DIRECTORY & "/" & sFTP_FILE_NAME & sFTP_FILE_EXTENSION
Else
lblStatus = "FTP:Succesfully got" & sFTP_FILE_NAME &
sGetJulianDate() & sFTP_FILE_EXTENSION & "."
Refresh
Call Execute_FTP_Command("delete " & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION)
sFTP_Report = sFTP_FILE_NAME & sGetJulianDate() &
sFTP_FILE_EXTENSION
End If
Else
MsgBox "There is no New " & """" & sFTP_FILE_NAME &
sFTP_FILE_EXTENSION & """" & " Query to get."
End If
'*** Close FTP Connection ***
lblStatus = "FTP:Closing FTP Conection."
Refresh
Call Execute_FTP_Command("close")
'*** Enable "Cancel" after FTP is done ***
cmdCancel.Enabled = True
Refresh
If (bFTP_Error = True) Then
MsgBox "An FTP Error Ocurred. Aborting.", vbCritical + vbOKOnly,
"FTP Error"
sFTP_Report = ""
Call cmdCancel_Click
End If
inetFTP.Cancel
End Function
Private Sub Execute_FTP_Command(ByVal sCommand As String)
Dim x As Integer
x = 0
inetFTP.Execute , sCommand
Do While (inetFTP.StillExecuting = True)
x = x + 1
DoEvents
Loop
Refresh
End Sub
