apiSHFileOperat ion preventing Folder deletion

[Eike]

Hi,
I am unable to delete a subfolder that I have created programatically .
I am using a modification of the apiSHFileOperat ion by Dev Ashish
(http://www.mvps.org/access/api/api0026.htm) to copy the files.

A File Copy function is called as part of a loop to copy a series of
files from a variety of locations that are stored in the database. All
the files are copied to a folder specified by the user. Once the user
has used this folder (to write a CD of the files) he is supposed to be
able to delete it. However, for as long as Access remains open, it keeps
a handle on this directory it has created, preventing Windows from
deleting the folder. The files within the folder can be deleted, but not
the folder itself.

This is a bit of an inconvenience, but mostly I am not too keen on using
code that I don't comprehend. Can anyone point me to how to make Access
release the folder? Perhaps I am not terminating the operation correctly?

Thanks in advance
Eike

Bits of code below:

##this is within the main Sub, it retrieves the recordset, then calls
the file copy function for each item;
With rsSelected
.MoveFirst
Do While Not .EOF
If fCopyAToB(!File Name, txtCopyFolder) <> True Then
MsgBox "Abandoning File Copy Process" & vbNewLine & "There was
an error writing....", vbOKOnly & vbCritical, AppnName
GoTo Leave_Sub
End If
.Edit
![CD-id] = txtCDID
!Temp = False
.Update
.Bookmark = .LastModified
.MoveNext
Loop
End With

##Here is the functional bit of the apiSHFileOperat ion;
Function fCopyAToB(strA As String, strB As String)As Long
....
With tshFileOp
.pFrom = strA & vbNullChar
.pTo = strB & vbNullChar
.fFlags = FOF_NOCONFIRMMK DIR + FOF_NOCONFIRMAT ION
End With
lngRet = apiSHFileOperat ion(tshFileOp)
fCopyAToB = (lngRet = 0)
End Function

[Eike]

I have solved my own problem; guess I should have delved around at MSDN
a little more before asking. Rather than calling SHFileOperation for
each file to be copied, I compiled a list of the files to be copied,
each separated by vbNullChar. The two strings of source and destination
files are then passed to the SHFileOperation with the flag
FOF_MULTIDESTFI LES.

This way Access does not hang onto any of the folders created so they
can be deleted by the user as and when. I guess just using the call
properly stops my original error from occuring. The simplified code I
have used is below, in case anyone else wants it:

'first loop through the set and create a list of source and destination
files
With rsSelected
.MoveFirst
Do While Not .EOF
strLstFrom = strLstFrom & vbNullChar & !FileName
strLstTo = strLstTo & vbNullChar & !FileName
.MoveNext
Loop
End With

'now call the copy function, trim the leading vbNullChar first
Func_Copy(Right (strLstFrom, Len(strLstFrom) - 1), & _
Right(strLstTo, Len(strLstTo) - 1))

and in Dev's function I used these flags:
lngFlags= FOF_NOCONFIRMMK DIR + FOF_NOCONFIRMAT ION & _
+ FOF_SIMPLEPROGR ESS + FOF_MULTIDESTFI LES
With tshFileOp
.wFunc = lngwFunc
.hwnd = hWndAccessApp
.pFrom = strFrom & vbNullChar & vbNullChar
.pTo = strTo & vbNullChar & vbNullChar
.fFlags = lngFlags
End With
lngRet = apiSHFileOperat ion(tshFileOp)
Func_Copy = (lngRet = 0)