Question : Cannot delete these folders.

I cannot delete this folder to the Recycle Bin. It is folder 'Movies': 'Movies' folder/'Choke'folder/'Choke' movie. There is a movie file in it. These are the error messages.
Thank you for your help.

Attachments:

-Cannot-delete--picture.docx (238 KB) (File Type Details)

'cannot delete' message

-Access-denied--picture.docx (242 KB) (File Type Details)

'Access-denied' message

Answer : Cannot delete these folders.

You could write a custom function such as the one I've put together below.. Add more bits in the 'Select Case' section to decode more characters.

HTH
Matt

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:



Public Function DecodeText(mytext As String)

Dim intLength As Integer
Dim i
Dim strCurrentLetter As String
Dim strNewText As String

intLength = Len(mytext)

For i = 1 To intLength
    strCurrentLetter = Mid(mytext, i, 1)
    
    Select Case strCurrentLetter
        Case "{"
            strNewText = strNewText & "D"
        Case "t"
            strNewText = strNewText & "a"
        Case "r"
            strNewText = strNewText & "v"
        Case "4"
            strNewText = strNewText & "i"
        Case Else
            'Do nothing
            'Add more 'Case' statements above to convert more letters that are encoded
    End Select
Next

DecodeText = strNewText

End Function