Greetings,

I have a program that uses the FindFirstFile API.
It worked perfectly for months, but recently I started
getting an application error crash when running the compiled
version of the program. It runs fine in debug mode.

It is actually crashing on the FileCopy line below:

FileCopy sINIPath & sOrderNumber & "\" & typFileData.cFileName, flstCadFile.Path & "\" & typFileData.cFileName

I'm guessing something is happening to the typFileData
information that is populated by FindFirstFile, but the data
looks fine.

I have not changed the code at all, so this is very frustrating.
I'm running VB6 Enterprise on NT4.

Does anyone have any ideas as to what could be happening?


Here are my module declarations:

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 50
cAlternate As String * 14
End Type
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Thank you!