求关于VB监视一个文件夹的代码

楼主你好,我测试了一下OK的,想了挺长时间的 代码如下

控件.filelistbox

Dim sua As Integer 'sua是存放上次的文件数的,所以必须为通用,静态，不然会丢失

Private Sub Form_Load()

File1.FileName = App.Path "\" "新建文件夹" '这里写你的那个什么数据库的地址