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