方法一：

1. 工程——〉引用：microsoft scripting runtime

2.  ' 引用filesystemobject对象

      Dim fs as new filesystemobject

     ' 利用filesystemobject对象的fileexists方法判断文件是否存在

      if  fs.fileExists("C:*.gif") then

            MsgBox "文件存在"

      Else

            MsgBox "文件存在"

      End if

by feifeiwua 阅读全文 | 回复(1) | 引用通告 | 编辑

by 魔塔作家(游客) 个人主页 | 引用 | 返回 | 删除 | 回复