Public Sub DeleteFolderTree(ByVal vFolder As String)
Dim FSOAs FileSystemObject Dim FoldersObj As Folders Dim FolderObj As Folder Set FSO = New FileSystemObject If Not FSO.FolderExists(vFolder) Then Set FSO = Nothing Exit Sub End If Set FolderObj = FSO.GetFolder(vFolder) Set FoldersObj = FolderObj.SubFolders For Each FolderObj In FoldersObj DeleteFolderTree FolderObj.Path Next FolderObj On Error Resume Next Kill vFolder & "\*.*" RmDir vFolder Err.Clear On Error Goto 0 Set FolderObj = Nothing Set FoldersObj = Nothing Set FSO = Nothing End Sub Questo progetto utilizza il File system Object quindi si richiede che nel progetto venga referenziato MicroSoft Scripting |