<
您还没有登录┊登录注册 当前在线:269
源码程序系统工具编程开发图形图像网络软件应用软件多媒体类娱乐休闲驱动程序各类教程各类论文文章阅读
ASPPHPJSPASP.NETVBVF百度搜索星星练题网络文摘股市消息技能习题详细分类
当前位置:首页 \ 源码程序 \ vb代码
站内搜索


VB检测在目录下的文件

文件大小:1 k
运行平台:Windows9X/ME/NT/2000/XP
级别评定:
添加时间:2010-2-7 14:53:04
最后更新:2010-2-7 14:53:04
相关链接:无
所需金额:0 元
添加者:管理员

Download.1

/ ::软件简介:: / ::相关软件:: / ::软件点评:: /::上一个::/ ::下一个:: /
管理首页
在程序运行时,检测目录下文件是否存在。

如果文件不存在,就弹出msgbox窗口。

弹出的msgbox窗口要有“帮助”按钮,“帮助”按钮文本:无法显示帮助


目录文件:

001.exe

002.exe

003.pep

004.pep

005.wav
我把这两个自己写的函数放在一个模块文件里然后调用这两个函数判断,还不错,挺方便的。


'判断目录是否存在。返回布尔值:True 存在,False 不存在,foldername 需要检查的文件夹名
Function MyFolderExist(foldername As String)
Dim FileSystemObject As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

If FileSystemObject.FolderExists(foldername) = True Then
MyFolderExist = True
Else
MyFolderExist = False
End If

Set FileSystemObject = Nothing
End Function

'判断文件是还存在。返回布尔值:True 存在,False 不存在,filername 需要检查的文件名
Function MyFileExist(filename As String)
Dim FileSystemObject As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

If FileSystemObject.FileExists(filename) = True Then
MyFileExist = True
Else
MyFileExist = False
End If

Set FileSystemObject = Nothing
End Function

相关软件
·excel表格建立目录索引的方法
·35分类目录管理系统v1.0
·35dir分类目录系统1.0
·酷站目录(仿Coodir)
·webavail目录-黑人汉化修改版 v6.0
·思翔网站分类目录 20080325
·义乌网站目录baidu新闻订阅 v1.0
·网站分类目录管理系统NZWDS v2.50
·下一页工作室二级目录图片直读系统 LightBox版
·图片目录直读程序


1分 0
2分 0
3分 0
4分 0
5分 0
共有 0 人打分
平均得分:0


按字符查询:ABCDEFGHIJKLMNOPQRSTUVWXYZ0~9中文
下载图示: - 附汉化补丁 - 附注册 - 会员软件 - 推荐 - 最新添加
Rainight, 星旺坡 联网备案号:41092802000212 豫ICP备19032584号-1 页面执行时间: 0.11秒
业务QQ:80571569 手机:13030322310