fso.deletefolder not working??

[kdbailey]

I'm trying to delete a folder it ends up empty following deleting files while on a form.

I've read all over about RmDir and fso.DeleteFolder, however both end up having the same problem for me. The folder remains afterwards, and ends up inaccessable until I either restart my computer or, through vba, recreate the folder and add new files.

I've troubleshooted for hours now and cannot seem to figure out why it simply won't delete the folder.

Here is the section of code that ensures there are 0 files remaining and subsequently deletes the folder. The folder remains accessible until the red line occurs, in which the folder still appears and is inaccessible. RmDir has the same effect.

    Set fso = New FileSystemObject    Set srcfolder = fso.GetFolder("S:\Shared\Warranty Returns\WRA Data Storage\Backups\Files\Claims\" & claimnum & " " & serialno & "\")
    If srcfolder.files.count > 0 Then
        For Each fsfile In srcfolder.files
            If InStr(1, fsfile.Path, "Thumbs") = 0 Then Kill fsfile.Path
        Next
    End If
    Set fso = Nothing
    Set srcfolder = Nothing
    Set fso = CreateObject("Scripting.FileSystemObject")
    SetAttr "S:\Shared\Warranty Returns\WRA Data Storage\Backups\Files\Claims\" & claimnum & " " & serialno, vbNormal
    fso.DeleteFolder "S:\Shared\Warranty Returns\WRA Data Storage\Backups\Files\Claims\" & claimnum & " " & serialno, True
    Set fso = Nothing

After this is run, this is the effect...

[JamesDeckert]

After you reboot the computer is the folder gone?
I'm assuming the rmdir (or deletefolder) did not error?
Ever since Vista I've seen occurrences of deleting a file or folder manually, and it would not visually delete. But if you tried again, it gave an error. It really did delete, but windows explorer wasn't updating to show it gone. I'm wonder if this might be the same problem.
If you close and reopen explorer does that make a difference?

[kdbailey]

The folder does not delete when restarting windows explorer. It does delete after restarting the PC.

[June7]

Try RmDir(). This is intrinsic VBA function. Don't need fso.

But if there are permission limitations, any code could fail.

[kdbailey]

I used RmDir previously, it ended up with the same issue. It was actually the first method I was using. Permissions are not a problem at this location.

[June7]

Sorry, see that now in OP.

RmDir works for me. No idea why it fails for you.

[Perceptus]

The next time this fails. I would run

compmgmt.msc /computer:\\comp_name

where comp_name is the pc that the share comes from and verify there are no open file handles to the location. Sounds more of an issue with the share than an access issue.

[kdbailey]

Keep in mind the code runs fine. I now believe the folder is really deleted but the explorer just doesn't represent it. It is still visible but unmanageable because it really is not there. I guess this may be more of a windows explorer error.

[June7]

Interesting, I see the folder disappear immediately from Windows Explorer.

[kdbailey]

You're running 2010?

[June7]

Exactly what my profile states.

[kdbailey]

I really don't know. Files delete fine, the folder does not.

[June7]

Okay, tried again. This time I put file inside the folder. Won't let me delete folder. Even crashed Access. That's using RmDir().

[Perceptus]

Since its a shared drive. Does the deleted folder appear deleted after remounting the shared resource?

[orange]

I just found this

Sub Delete_Whole_Folder()
'Delete whole folder without removing the files first  
    Dim FSO As Object
    Dim MyPath As String

    Set FSO = CreateObject("scripting.filesystemobject")

    MyPath = "C:\Users\Ron\Test"  '<< Change

    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If

    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & " doesn't exist"
        Exit Sub
    End If

    FSO.deletefolder MyPath

End Sub