Vbscript DeleteFolder删除文件内容，但不删除文件夹

我想在电子邮件中发送文件夹的内容，然后删除文件夹和内容

下面的代码可以工作，只是它只删除文件夹的内容，然后给我一个运行时错误70-权限被拒绝并离开文件夹。如果我单独运行DeleteAFolder子系统并定义strFolder，那么DeleteAFolder子系统将起作用。所以，这似乎是一个问题的东西仍然在使用，但我不知道什么或如何关闭它。这只是一个空文件夹，我无法删除。文件已通过电子邮件发送并删除

Sub SendMultiDocsEmail()

strFolder = "C:\Users\UserID\Desktop\Admin"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Testing my files email"
objMessage.From = "myemail@company.com"
objMessage.To = "myemail@company.com"
objMessage.TextBody = "This is a test, files should be attached to this email."
For Each objFile In objFolder.Files
    strFileExt = objFSO.GetExtensionName(objFile.Path)
    objMessage.AddAttachment objFile.Path
    'objFile.Close
    ' Run-time error 438 - Object doesn't support this property or method
Next

'Configuration Info
objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.company.com"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update
objMessage.Send

'strFolder.Close
' Run-time error 424 - Object required
'objFolder.Close
' Run-time error 438 - Object doesn't support this property or method

'Tried adding the Set to Nothing lines - didn't change result
'Set objFSO = Nothing
'Set objFolder = Nothing

DeleteAFolder (strFolder)
End Sub


Sub DeleteAFolder(strFolder)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder (strFolder)
End Sub

---

发送后释放对象。

set-objMessage=Nothing

谢谢！这很容易做到，因为我之前花了很多时间试图解决这个问题。从来没有想过，一封已经发送的邮件仍然会链接到一个空文件夹，并阻止它被删除。