Beranda › 4_2005-2006 › Recursive Deltree Sub
Advertisement
4_2005-2006 Files/ File Controls/ Input/ Output #153809

Recursive Deltree Sub

Andy Ault
★★★★★
4.8 · Unduhan: 2,341

Deletes a specified directory tree.

AI

Ringkasan 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.

Kode Sumber
original-source 
Public Sub KillFolderTree(sFolder As String)
 Dim sCurrFilename As String
 sCurrFilename = Dir(sFolder & "\*.*", vbDirectory)
 Do While sCurrFilename <> ""
 If sCurrFilename <> "." And sCurrFilename <> ".." Then
  If (GetAttr(sFolder & "\" & sCurrFilename) And vbDirectory) = vbDirectory Then
  Call KillFolderTree(sFolder & "\" & sCurrFilename)
  sCurrFilename = Dir(sFolder & "\*.*", vbDirectory)
  Else
  On Error Resume Next
  Kill sFolder & "\" & sCurrFilename
  On Error Goto 0
  sCurrFilename = Dir
  End If
 Else
  sCurrFilename = Dir
 End If
 Loop
 On Error Resume Next
 RmDir sFolder
End Sub
Komentar Asli (3)
Dipulihkan dari Wayback Machine