首页 > 其他 > 详细

vbs常用函数

时间:2018-08-30 23:15:06      阅读:210      评论:0      收藏:0      [点我收藏+]

aa

 

删除文件夹
sub DeleteFolder(objFolder)
    call OutputLog(objFolder.Path,true)
    err.Clear
    On Error Resume Next
    objFolder.attributes=0
    objFolder.delete
    On Error Goto 0
    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=0
    objFile.delete
    On Error Goto 0
    if Err.Number then
        Msgbox "删除文件[" & objFolder.Path & "]失败" & vbcrlf & Err.Description
    end if
end sub

 

vbs常用函数

原文:https://www.cnblogs.com/SilenceRet/p/9563145.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!