VBA 清空文件夹中的文件 moveitem

在VBA中，如果你想要清空文件夹中的所有文件，并且希望避免直接删除可能存在的权限问题，可以使用 `MoveItem` 方法配合循环结构。`MoveItem` 方法可以将文件移动到指定的位置，比如回收站或者其他已知位置，这里是一个简单的例子：

Sub ClearFolderContent(folderPath As String)
    Dim fso As Object ' FileSystemObject
    Dim folder As Object
    Dim file As Object
    
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置要处理的文件夹
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹中的所有文件
    For Each file In folder.Files
        ' 将文件移动到指定的备份文件夹（如Backup）
        Dim backupFolderPath As String
        backupFolderPath = "C:\path\to\backup\" & file.Name
        file.Move backupFolderPath
    Next file
    
    ' 如果需要释放资源
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    
End Sub