效果：

源码：

Sub 判断文件是否存在()

    Dim strcfg As String

    strcfg = "D:\a.cfg"

    If Dir(strcfg, vbDirectory) = "" Then

        MsgBox "错误：配置文件不存在!" & Chr(10) & strcfg 'Chr(10)换行符

        Exit Sub

    End If

End Sub

最新文章

1. WIX
2. POJ 1509 Glass Beads
3. 两种PHP生成二维码的方法
4. java 类的关系
5. （翻译）什么是Java的永久代（PermGen）内存泄漏
6. [转] 深刻理解Python中的元类(metaclass)
7. Extjs 4.0 Tab页
8. 初学Python3 - 写一个登录程序
9. redis锁处理并发问题
10. ldd可执行程序时返回not a dynamic executable
11. Rman常用命令
12. CentOS 6.4 源码安装MySQL 5.6
13. 简单封装kafka相关的api
14. Android Studio中的大量findViewById
15. python中的open( )函数
16. OpenCV(2):视频
17. linq操作符：连接操作符
18. Python3学习之路~2.3 字符串操作
19. MySQL 第八篇：ORM框架SQLAlchemy
20. C语言 · 简单加法

热门文章

1. JavaScript 中正则匹配时结果不一致的问题
2. 检查dtd和Xschema文件限制下的xml文件是否符合的Java文件
3. re_path 的 ?P<>
4. mysql order by 多样依照排序
5. 解密华为云FusionInsight MRS新特性：一架构三湖
6. 绿色版 notepad++ 添加鼠标右键菜单
7. 013.Ansible Playbook include
8. Linux_搭建NFS服务（基础）
9. [转载]屏幕PPI、分辨率到底需要多大才能满足？
10. Ansible触发器-tag标签-忽略错误