首 页最新软件下载排行文章资讯投稿发布下载专题
维维下载站
您的位置:首页编程开发网络编程编程其它 → VB自定义函数实现删除文件或文件夹功能示例代码

VB自定义函数实现删除文件或文件夹功能示例代码

来源:维维整理 发布时间:2017-9-6 15:34:20 人气:

VB自定义函数实现删除文件或文件夹功能示例代码是小编为大家整理的一个VB删除文件夹、目录及文件的实例,这里自定义了一个函数KillPath,函数只需传入一个参数sPath——文件路径即可,函数执行成功返回True,否则返回False,,,赶紧来看看下面的文章介绍吧,具体代码如下:

Public Function KillPath(ByVal sPath As String) As Boolean
    On Error Resume Next
    Dim udtPath   As SHFILEOPSTRUCT
    KillPath = False
    udtPath.hwnd = 0
    udtPath.wFunc = FO_DELETE
    udtPath.pFrom = sPath
    udtPath.pTo = ""
    udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
    KillPath = Not CBool(SHFileOperation(udtPath))
    If FileExists(sPath) = False And FolderExists(sPath) = False Then
    KillPath = True
    End If
End Function

本函数在删除文件或者是目录之前会先判断目录或文件是否存在,假如存在就会执行删除操作,否则就会退出函数。

相关下载
栏目导航
本类热门阅览