用FSO(文件系统对象模型)可以解决你的问题;
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中,它同包含了DRIVE、FOLDER、FILE、FILESYSTEMOBJECT、TEXTSTREAM五个对象。
调用方法如下:
在项目菜单中选择引用,在COM中选择MICROSOFT SCRIPTING RUNNTIME 在代码最顶端添加
IMPORTS SCRIPTING
在代码模块中添加 DIM FSOTEST AS NEW FILESYSTEMOBJECT()
在按钮中添加事件:
Dim folder1 As Folder
folder1 = FsoTest.GetFile("c:\")
If (FsoTest.FileExists("c:\temp\test.txt") = True) Then