[Jason88]

Hello everybody, is there an API to close all open file handles, similar to Reset (VB6)?

Right now I use CloseHandle, but often I'm writing multiple files at the same time. When the user closes the app while writing the files, the handles are not closed. The only way to do that, is to store the file handles in an array and loop through the array with CloseHandle in the Form_Unload event.

I could show a messagebox and tell the user there are still files being written and that the user needs to wait, but in this case I rather close all files. I'm just looking for an easier way.

[vb5prgrmr]

Usually, and I do mean usually,... file operations are done all at once, meaning, open>write>close and your done! Even if you do have some sort of auto saving feature...

But with that said, there are those applications that need to keep a file open and when this is the case as it seems to be in your case, you need to program defensively and that does mean that if you are closing down unexpectedly, you need to take care of all your handles, connections, and whatever other external or internal references you have open...



Good Luck

[webbone]

Just wondering what your app is actually doing that you would be doing a significant amount of writing to files (?asynchronously, or in another thread??) that you couldn't just 'handle' during shutdown requests (i.e. acknowledge but stall shutdown until you are done writing to the files.

Can you give some more details regarding your application and how you are writing to these files? There might be a simpler and cleaner solution we can suggest

[Jason88]

My app is downloading files with Winsock and writing them to disk. I'm using CreateFile/WriteFile API to write the files, because I like it better than Open/Put.

Actually the file writing is done with a Usercontrol array, so after thinking about it, I don't need to store the file handles in an array. The only thing I have to do is add a sub to the Usercontrol to close the handle and then loop through the usercontrol array and calling the sub the in the Form_Unload event.

Public Sub StopWriting()
    CloseHandle File_Number
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Long
    
    For i = 0 To FileWrite.UBound
        FileWrite(i).StopWriting
    Next
End Sub