Question

运行VBS脚本时提示没有权限 800A0046

1.之前运行都正常。
2.经测试，把路径改成其他的，也可以正常运行，但现在这个文件夹路径下就不行.
3.已有问题路径下管理员权限、删除权限。

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "路径"

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)
WScript.Echo "Done!"

Sub ShowSubFolders(Folder)
On Error Resume next
For Each Subfolder in Folder.SubFolders
strDate = Split(SubFolder.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'WScript.Echo SubFolder.Path
objfso.DeleteFolder subfolder
End If
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next
ShowSubFolders Subfolder
Next
End Sub

Answer 1

重命名为****.exe属性选择以管理员权限运行
再重命名为****.vbs即可

Answer 2

我遇到过一种情况，文件打开后，没有关闭，再次打开时就会出现这个错误提示，f.close后，就可以了。

Answer 3

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "路径"

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "路径"
Sub ShowSubFolders(Folder)
On Error Resume next
For Each Subfolder in Folder.SubFolders
strDate = Split(SubFolder.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'WScript.Echo SubFolder.Path
objfso.DeleteFolder subfolder
End If
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next
ShowSubFolders Subfolder
Next
End Sub fgurefvywegrg
fewhgifugeryfgbyuhhhhh
dsgtg ggggdfrefregerfrgyu

Answer 4

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "路径"

Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)
WScript.Echo "Done!"

Sub ShowSubFolders(Folder)
On Error Resume next
For Each Subfolder in Folder.SubFolders
strDate = Split(SubFolder.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'WScript.Echo SubFolder.Path
objfso.DeleteFolder subfolder
End If
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strDate = Split(objfile.DateCreated," ")
If DateDiff("d",strDate(0),Date) > 3 Then
'Wscript.Echo objfile.ParentFolder & "\" & objFile.Name
objfso.DeleteFile objfile
End if
Next
ShowSubFolders Subfolder
Next
End Sub fgurefvywegrg
fewhgifugeryfgbyuhhhhh
dsgtg ggggdfrefregerfrgyu