vbs常用函数

aa

'删除文件夹
sub DeleteFolder(objFolder)
    call OutputLog(objFolder.Path,true)
    err.Clear
    On Error Resume Next
    objFolder.attributes=
    objFolder.delete
    On Error Goto
    if Err.Number then
        Msgbox "删除文件夹[" & objFolder.Path & "]失败" & vbcrlf & Err.Description
    end if
end sub

'删除文件
sub DeleteFile(objFile)
    'call OutputLog(objFile.Path,false)
    err.Clear
    On Error Resume Next
    objFile.attributes=
    objFile.delete
    On Error Goto
    if Err.Number then
        Msgbox "删除文件[" & objFolder.Path & "]失败" & vbcrlf & Err.Description
    end if
end sub