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

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

遇到两个问题：

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

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

谢谢！

1、识别的

With FileWatcher
    .Path = ProjectPath & "QQClient\\ReceivedFiles"
    .Delay = 1000
    .Enabled = True
End With

或者下面这样

With FileWatcher
    .Path = ProjectPath
    .Delay = 1000
    .Enabled = True
End With

2、目录下的所有文件，都能监视。你代码处理有问题。你加入msgbox(e.fullpath)看看

3、如果想单独做一个按钮，把所有zip文件解压，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107338&skin=0

按照老师提示，重写代码如下，基本达到要求，代码也运行、并执行完毕，只是运行监视代码时，提示压缩文件内的文件被占用，怎样处理：

项目事件 AfterOpenProject:
With FileWatcher
    .Path = ProjectPath & "QQClient\\ReceivedFiles"
    .Delay = 1000
    .Enabled = True
End With

文件监视器FileCreated：

If FileSys.GetName(e.FullPath) Like "*.zip" Then     \'如果有压缩文件就解压到当前文件夹
    Dim zip As New zipFile
    zip.Open(e.FullPath)
    Dim ifo As new FileInfo(e.FullPath)
    Dim s As String = ifo.Name
    zip.ExtractAll(ifo.Path & "\\" & s.substring(0,s.LastIndexOf(".")))    \'解压到以压缩文件名为名称的文件夹下   

    zip.Close()
    \'FileSys.DeleteFile(e.FullPath,2,2)                       \'然后删除压缩文件-这句不用，否则在QQ窗口找不到发送的文件
End If

1、解压文件是否正常？只是删除文件有问题？

2、每一个zip都是这样还是说只有某个这样？

3、你可以另外写一个定时器，定时删除zip文件。