示例：移除文件夹

本示例用于删除指定文件夹中的所有子文件夹。这也会删除其全部子文件夹和标签。
Sub RemoveFolders(sFolderName As String)
On Error GoTo Err_Handler
Dim oFolder As Folder
Dim oFolders As Folders
Set oFolder = TagDB.GetFolder(sFolderName)
Set oFolders = oFolder.Folders
'Delete the subfolders in specified folder.
Do While oFolders.Count > 0
oFolders.Remove 1
Loop
'Release resources associated with the objects.
Set oFolder = Nothing
Set oFolders = Nothing
Exit Sub
Err_Handler:
'Release resources associated with the objects.
Set oFolder = Nothing
Set oFolders = Nothing
MsgBox "Error removing folders." & vbCrLf & vbCrLf & _
Err.Description, vbExclamation, " RemoveFolders"
End Sub
提供反馈
对本文档有问题或反馈吗？ 请在这里提交您的反馈 。
Normal