主题：[求助]监控压缩文件，并解压

在老师的指导下，已实现选择文件夹以压缩格式发送给好友。

现在想实现接收端监控接收文件夹，如果有新的压缩文件进入文件夹，就解压它，然后删除压缩文件，保留获取解压的文件夹。

遇到两个问题：

1、在文件监视器中不识别相对路径：ProjectPath & "\QQClient\ReceivedFiles"；
2、不能监控子文件夹，但是在上述目录中的子目录是按照月份创建的，不固定。

文件监控器代码如下：

For Each f As String In FileSys.GetFiles(ProjectPath & "\QQClient\ReceivedFiles")    '遍历文件夹中的Zip文件
If FileSys.GetName(f) Like "*.zip" Then     ’如果有就解压到当前文件夹
    Dim zip As New zipFile
    zip.Open(f)
    zip.ExtractAll("ProjectPath & "\QQClient\ReceivedFiles")
    zip.Close()
    FileSys.DeleteFile(f,2,2)                        ’然后删除压缩文件

End If
Next

这种方式是否可行？或者有没有别的方法，请老师指教。

谢谢！