如何在不使用第三方工具的情况下在vb6中压缩文件夹？

Private Sub CompressFolder(ByVal sourceFolder As String, ByVal destinationFile As String)
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    
    ' 获取源文件夹的Shell对象
    Dim sourceFolderObj As Object
    Set sourceFolderObj = shellApp.NameSpace(sourceFolder)
    
    ' 创建目标压缩文件
    Dim destinationObj As Object
    Set destinationObj = shellApp.NameSpace(destinationFile)
    
    ' 将源文件夹中的所有文件复制到目标压缩文件中
    destinationObj.CopyHere sourceFolderObj.Items
    
    ' 等待压缩完成
    Do Until destinationObj.Items.Count = sourceFolderObj.Items.Count
        Sleep 100 ' 等待100毫秒
    Loop
    
    ' 释放对象
    Set sourceFolderObj = Nothing
    Set destinationObj = Nothing
    Set shellApp = Nothing
End Sub

Private Sub Command1_Click()
    Dim sourceFolder As String
    Dim destinationFile As String
    
    sourceFolder = "C:\FolderToCompress"
    destinationFile = "C:\CompressedFolder.zip"
    
    CompressFolder sourceFolder, destinationFile
    
    MsgBox "文件夹压缩完成！"
End Sub