Kill Folder function with persistence
This is a Kill Folder function with persistence ... It will remove all sub-folders and files and then optionally delete the specified folder ... I found when removing all the files in the temp folder that some locked files would fail and cause it to not continue with the rest of the files ... This function will continue to remove all unlocked files, even after finding locked files. However, if locked files are found, the parent folder will also not get removed.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
<tt> <p nowrap><b> <nobr> <font color="#000099"> Option Explicit <br />   <br /> Private Declare Function</font> <font color="#660000">GetAttributes</font> <font color="#000099">Lib</font> "kernel32" <font color="#000099">Alias</font> "GetFileAttributesA" <font color="#000099">(ByVal</font> <font color="#660000">lpSpec</font> <font color="#000099">As String) As Long <br /> Private Declare Function</font> <font color="#660000">SetAttributes</font> <font color="#000099">Lib</font> "kernel32" <font color="#000099">Alias</font> "SetFileAttributesA" <font color="#000099">(ByVal</font> <font color="#660000">lpSpec</font> <font color="#000099">As String, ByVal</font> <font color="#660000">dwAttributes</font> <font color="#000099">As Long) As Long <br />   <br /> Private Const</font> <font color="#660000">DIR_SEP</font> <font color="#000099">As String</font> = "\" <br /> <font color="#000099">Private Const</font> <font color="#660000">INVALID_FILE_ATTRIBUTES</font> = (-1) <br />   <br /> <font color="#000099">  '-----------------------------------------------------</font> <br />   <br /> <font color="#006600">  ' This is a Kill Folder function with persistence. <br />   <br />  ' It will remove all sub-folders and files and then <br />  ' optionally delete the specified folder.<br />   <br />  ' I found when removing all the files in the temp folder <br />  ' that some locked files would fail and cause it to not<br />  ' continue with the rest of the files. <br />   <br />  ' This function will continue to remove all unlocked files, <br />  ' even after finding locked files. However, if locked files <br />  ' are found, the parent folder will also not get removed.</font> <br />   <br /> <font color="#000099">  '-----------------------------------------------------<br /> </font>   <br /> <font color="#000099">Public Function</font> <font color="#660000">AddBackslash(sPath</font> <font color="#000099">As String) As String <br />   If</font> <font color="#660000">Right$(sPath, 1&) = DIR_SEP</font> <font color="#000099">Then</font> <br />      <font color="#660000">AddBackslash = sPath</font> <br />   <font color="#000099">Else</font> <br />      <font color="#660000">AddBackslash = sPath & DIR_SEP</font> <br />   <font color="#000099">End If <br /> End Function <br />   <br />  '-----------------------------------------------------<br />   <br /> Public Function</font> <font color="#660000">FolderExists(sPath</font> <font color="#000099">As String) As Boolean <br />   Dim</font> <font color="#660000">Attribs</font> <font color="#000099">As Long</font> <br />   <font color="#660000">Attribs = GetAttributes(sPath)</font> <br />   <font color="#000099">If Not</font> <font color="#660000">(Attribs = INVALID_FILE_ATTRIBUTES)</font> <font color="#000099">Then</font> <br />      <font color="#660000">FolderExists = ((Attribs</font> <font color="#000099">And</font> <font color="#660000">vbDirectory) = vbDirectory)</font> <br />   <font color="#000099">End If <br /> End Function <br />   <br />  '-----------------------------------------------------<br />   <br /> Public Function</font> <font color="#660000">KillFolder(sSpec</font> <font color="#000099">As String, Optional ByVal</font> <font color="#660000">bJustEmptyDontRemove</font> <font color="#000099">As Boolean) As Boolean <br />   Dim</font> <font color="#660000">sRoot</font> <font color="#000099">As String,</font> <font color="#660000">sDir</font> <font color="#000099">As String,</font> <font color="#660000">sFile</font> <font color="#000099">As String <br />   Dim</font> <font color="#660000">iCnt</font> <font color="#000099">As Long,</font> <font color="#660000">iIdx</font> <font color="#000099">As Long <br />   <br />   If Not</font> <font color="#660000">FolderExists(sSpec)</font> <font color="#000099">Then Exit Function</font> <br />   <br />   <font color="#006600">' Add trailing backslash if missing</font> <br />   <font color="#660000">sRoot = AddBackslash(sSpec) <br />   iCnt</font> = 2& <font color="#006600">'.' '..'</font> <br />   <br />   <font color="#000099">On Error Resume Next</font> <font color="#006600">' Ignore file errors</font> <br />   <font color="#660000">sFile = Dir$(sRoot & "*.*", vbNormal)</font> <br />   <font color="#000099">Do While</font> <font color="#660000">LenB(sFile) <br />      SetAttributes sRoot & sFile, vbNormal <br />      Kill sRoot & sFile <br />      sFile = Dir$</font> <br />   <font color="#000099">Loop</font> <br />   <br />   On Error GoTo</font> HandleIt <font color="#006600">' No error should occur in here</font> <br />   <font color="#000099">Do:</font> <font color="#660000">sDir = Dir$(sRoot & "*", vbDirectory)</font> <br />      <font color="#000099">For</font> <font color="#660000">iIdx</font> = 1& <font color="#000099">To</font> <font color="#660000">iCnt <br />         sDir = Dir$</font> <font color="#006600">'.' '..' ['fail']</font> <br />      <font color="#000099">Next <br />      If</font> <font color="#660000">LenB(sDir)</font> = 0& <font color="#000099">Then Exit Do <br />      If</font> <font color="#660000">KillFolder(sRoot & sDir & DIR_SEP)</font> <font color="#000099">Then <br />      <font color="#006600">' Sub-folder is now gone but Dir$ was reset <br />      ' during recursive call so Do Dir$(..) again</font> <br />      Else:</font> <font color="#660000">iCnt = iCnt</font> + 1& <br />      <font color="#006600">' Kill folder failed (remnant files) so skip <br />      ' this folder (iCnt + 1) to get the rest</font> <br />      <font color="#000099">End If <br />   Loop <br />   <br />   If</font> <font color="#660000">bJustEmptyDontRemove</font> = <font color="#000099">False Then</font> <font color="#660000">RmDir sRoot</font> <font color="#006600">' Errors here if remnants</font> <br /> HandleIt: <br />   <font color="#660000">KillFolder</font> = <font color="#000099">Not</font> <font color="#660000">FolderExists(sSpec)</font> <br /> <font color="#000099">End Function <br />   <br />  '-----------------------------------------------------<br />   <br />   <br /> </font> </nobr> </b> </p> </tt>
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine