这里我们直接创建个应用来测试下前面生成activex exe文件监视组件:

　　 新建个\"standard exe\"工程；

　　 下面需要添加个引用到我们新文件组件中去然后添加少量代码作尝试:

　　 选择\"project\"->\"references\"菜单；

　　 选中\"file\"组件选项然后单击[ok]按钮；

　　 在表单通用声明部分添加下列代码:

　　 dim withevents myfileobject as filecheck

　　 从\"object\"下拉列表中选择\"myfileobject\"；

　　 确保插入符在filefound事件中；

　　 键入下列代码:

　　 msgbox \"found: \" & filename

　　 在表单form1中添加个命令按钮；

　　 在该按钮中添加下列代码:

　　 myfileobject = filecheck

　　 myfileobject.monitorfile (\"c:\\test.txt\")

　　 这里我们是将myfileobject定义成filecheck个新例子然后用c:\\test.txt参数运行monitorfile思路方法这时在后台中启用计时器且每隔60秒都来检测次这个文件

　　 由于我们计算机中还没有这个文件所以什么也没有发生现在我们用notepad(记事本)在c盘中创建个名为test.txt文件

　　 则在60秒内弹出个消息对话框用来表示我们文件被找到这就是我们刚刚创建activex exe！

　　 对于上述这样组件使用异步处理是没有太大必要正如我们以前讨论那样activex exe是有自己进程空间因此当计时器启用并检测文件存在性时它不会使其它暂停而如果使用是dll那么就可以使用异步处理了

　　 即使这样你能在计时器中放入任何代码吗？是能放入创建大型报表、复杂计算代码还是其他？

　　 至此我们构造了些实际常规组件但我们还没有来得及讨论它们发布问题这将在下节中进行