Hi,

I appreciate your response but it is not that.

After I delete a file I check in that same folder whether there are other 
files. If the folder contains no files it is only then that I try to use 
RmDIR on that folder. So, if it is empty, I take the same path minus the 
file and the extension and use RmDIR strPath.

The function I posted yesterday gets only the path and verify if the path 
is a directory or a file, then it will eight do a RmDIR to remove the 
Directory or Kill
to delete the file.
The function that verifies if the folder contains other files tells me 
that there is no more file, in the particular case that I am testing that 
is, but when I execute the RmDIR I got an error.
I even verify in the Win Explorer and indeed the folder is empty but 
cannot RmDIR it.

Thanks


Anthony Delcy
MIS
delcyan@m...

>>> Marco Straforini <marco.straforini@c...> 07/26 4:40 PM >>>
Anthony,

You cannot use RmDir to remove a folder if it still contains files.
Do remove a folder you have to recursively remove
all files and subfolders.

m.


> -----Original Message-----
> From:	Anthony Delcy [SMTP:DELCYAN@l...]
> Sent:	Thursday, July 26, 2001 11:26 AM
> To:	professional vb
> Subject:	[pro_vb] Problem with file
>
> Hi,
>
> In the following function I am trying to delete a directory and it =3D
> generates this error: Path/File access error
>
> Details:
>
> My function gets a string value (a Path). I delete this path and then 
loop
> =3D
> through the directory to see whether there are other files in this =3D
> directory. If not, delete this folder.
> If I get a path which finishes with a "\" then I know it's a directory, 
so
> =3D
> I remove this directory.
>
> Does anyone have an idea of what or how to overcome this problem.
> =3D20
>
> Private Sub SHDeleteFile(ByVal pstrDel_file As String)
>    =3D20
> On Error GoTo ERR_SHDeleteFile
>
>     If Dir(pstrDel_file, vbDirectory) <> "" Then
>         If Right$(pstrDel_file, 1) <> "\" Then
>             Kill pstrDel_file
>             ''Update the ITG_File_Path that this File has been deleted
>             Call SQLDeleteFile(pstrDel_file)
>         Else
>            RmDir pstrDel_file
>         End If
>     End If
>     Exit Sub
>    =3D20
> ERR_SHDeleteFile:
>     Err.Raise Err.Description
>    =3D20
> End Sub
>
> Thank you
>
>
> Anthony Delcy
> MIS
> delcyan@m...