说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB获取文件或文件夹属性

HTML文档下载 WORD文档下载 PDF文档下载
VB获取文件或文件夹属性
文件或文件夹有几个基本属性,那就是"只读","隐藏","存档","系统".当然我们也可以用Vb方便的读出这些属性.
请看下例:
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.
>>步骤2----添加如下代码:

Private Declare Function GetFileAttributes Lib "kernel32" Alias _
"GetFileAttributesA" (ByVal lpFileName As String) As Long

Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_HIDE = &H2
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_NORMAL = &H80

Private Sub Command1_Click()
Dim InputFileName As String
InputFileName = "C:\autoexec.bat"

If (GetFileAttributes(InputFileName) And _
FILE_ATTRIBUTE_READONLY) Then
MsgBox "只读" '只读
End If

If (GetFileAttributes(InputFileName) And _
FILE_ATTRIBUTE_HIDE) Then
MsgBox "隐藏" '隐藏
End If

If (GetFileAttributes(InputFileName) And _
FILE_ATTRIBUTE_ARCHIVE) Then
MsgBox "存档" '存档
End If

If (GetFileAttributes(InputFileName) And _
FILE_ATTRIBUTE_SYSTEM) Then
MsgBox "系统" '系统
End If

If (GetFileAttributes(InputFileName) And _
FILE_ATTRIBUTE_DIRECTORY) Then
MsgBox "文件夹" '系统
Else
MsgBox "文件" '文件
End If
End Sub

>>步骤3----编译运行,按下Command1,弹出的对话框会告诉你文件或文件夹的基本属性.
隐私之战:金山手机毒霸宣布开放安全检测平台 世界人民的头上有张监控大网——Xkeyscore 美国“监控门”情报收集系统 X-Keyscore 技术揭秘 为啥REST如此重要? 并非PHP Frameworks而是WordPress让PHP更加流行! Twitter Bootstrap深受开发者喜爱的11大理由 假如3D打印机也有“撤销”键 大数据的游戏运营:不能起死回生,只能锦上添花 15个步骤创立技术公司,并收获千万用户(一) 红帽再发力 将MongoDB整合到Linux系统 ZestFinance:前谷歌CIO创立的机器学习+大数据分析公司 7月份浏览器份额:IE仍最受欢迎 Chrome成最大赢家 2013 Q2 Android手机出货量再创新高 iPhone三年来新低 如何一个人打造日PV百万的网站架构——SDCC 2013讲师曹力专访 【一周观察】动辄9位数以上的投资,云数据中心缺口巨大! 硬件创业到底有多火? 知名网站分享:PHP代替Perl,Redis置换MySQL,日处理过亿PV 涨姿势了:Unity CEO聊如何玩转开发者生态 移动周报:再造Ruby女神背后的开发故事 超算什么都弱爆了:模拟一秒人脑计算需要8.3万处理器40分钟 人才短缺不能只靠等 看分析人士给硅谷的3个方案 九个相当有吸引力的WebGL演示 巨人网络朱永明谈运营:游戏就是社会的缩影 Dragon Forged创始人:不想当空军的开发者,不是好程序员 创业者应该怎样走出idea迷宫? TIOBE 2013年8月编程语言排行榜:Java领衔称霸 Gartner新报告:为改善风险管理,云服务合同需要更透明 没有银弹:探讨 Java 8 新增特性的优缺点 SDCC 2013议题更新 Pinterest架构实践、推荐系统、微信应用... 拥有82944个处理器的超级计算机 40分钟才能模拟一秒人脑活动 剑指IE10 最新测试版Chrome增加更多触摸屏功能 一个很菜的问题:怎么查看所有的变量或属性值? 请问VB.NET如何获取IE收藏夹的位置? 迷惑不解,请教了 怎么用按钮来控制复选框的全部选中呀??? Excel中宏的问题!急 大难题:在Win2000或者WinXP上安装 Oracle7.3.3 ??? 关于窗口的大小和位置的问题 视图指针问题,高手帮忙!谢谢! 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 中秋佳节,兄弟们发Cash了吗 ? 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 用户控件 高手请进!!关于线程问题,本人在线等候!!! 如何禁止局域网中的MSN `×××怎样验证一个文本宽是否输入了汉字××× 为什么我的程序编译后跟没编译一样!大家救救我啊!急! JAVA发展趋势是什么? WEB服务器问题?????? 如何处理编码的问题 100分求助!关于多选框的问题!急啊!在线等!! 关于布局管理器的问题 recvfrom 的超时怎么不行呢? IIS不能访问asp文件,只能访问html文件,而且网页中的所有弹出类网页链接全都打不开(在线等) 在JSP里边怎么动态插入文件 设计物流系统应该考虑那些问题,实现那些功能,拜托 设计物流系统应该考虑那些问题,实现那些功能,拜托 php中的register_globals为off,怎么获得url中传递参数 设计物流系统应该考虑那些问题,实现那些功能,拜托 上海日記:震撼 这是为什么? 在JBuilder 下 如何单步debug SOAP 服务器端程序? 求助:手机短信是以什么编码发送的呢?UTF还是普通的GB2312? 另外移动和联通用的编码一样么? 急求《c#高级编程》2nd 英文版! windows 2003 下我的p4x266e 板载声卡驱动好了,但是没有声音,怎么解决? SOS:菜鸟问题! 如何来判断字段类型????初级问题..... 求助:请问vbscript什么函数可以让一个单精度的数保留两位小数 wps2000加密文件问题 程序员调查 C/S下如何访问ODBC数据库,客户端不配置任何东西。 大家有何看法???????????? 程序在系统启动时起动,如何做? 局域網計算機間訪問問題﹐進來看看﹗﹗ 为什么我向数据库插入数字时总是出错? 做网页是用切片好做还是用表格好? ftp代码,求救 中秋节,你和MM咋过的,有过风花雪月的事吗? 庆祝升级!!!一夜间有多了一条裤衩,爽歪歪了 我想捕获特殊字段…………高分…… 如何在iframe中表格边框成虚线? 勤的近义词 高一的函数最大最小值怎么求啊!要分哪些情况 古代的“而”有没有却的意思. 长江和黄河都是我国的母亲河,那么你对它们的理解有多少呢?黄河说:我的长度比长江长度的4/5多424千米;长江说:我比黄河长836千米.(1)请你选择一个适合的未知数列方程.(2)6400和6300 荆轲刺秦王中的戮没的意思尽可能是正确的…… 荆轲刺秦王翻译中戮没的意思 1+36a^2b^2-4a^2-9b^2因式分解 运输大米需要交过路费吗? 已知sinθ=(a-1)sinψ,tanθ=(a+1)tanψ,|a|≥6求角θ的取值范围 余故道为学之难以告之的故是什么意思 已知tan a>1,则锐角a的取值范围是 日本举行国内首次大规模“夺岛”演习日本举行国内首次大规模“夺岛”演习英国10月份制造业PMI回落至56.今年全国平均雾霾日数为4.7天 系5河南新乡“失误”审批百亩别墅 五责任云南泸西爆炸枪击案两主犯伏法日本外相将于明年春季访俄 就签署和约尼日尔将为92名被困沙漠渴死移民哀悼杭州中小学秋游“扎堆”博物馆 学生抱浙江一超载货车轮胎脱落飞出 电动车主外交部:美澄清日媒有关美日涉钓鱼岛共中国最后一批蒸汽火车将在哈密谢幕 影当代李白杜甫!天才网友吟诗讽英超 国永州一高校女生宿舍后发现一死婴 警方专家强调尊重知识产权更有利于科技创新日媒:日本股市为何“跌跌不休”?再来一发!联想乐檬K5 Note亮相联手浙江江苏等强势卫视,南方黑芝麻糊Moto G不会停产! 大家放心!电视盒子圈里唯一坚持软硬件结合的竟然学生党新年购机推荐 这两款手机最值得你真的了解澳大利亚吗?还有这些你不曾血色梦游战斗法神三个青春梦网游三国之乱世神医指间的黑客皇上说的是重生纨绔独霸隋唐仙之机甲佛本是道流氓剑客在异世青春之歌小寨子沟旅游地震遗址纪念公园旅游澳凼大桥旅游香港大巴士观光游旅游元上都遗址旅游红石寨旅游度假区旅游雷锋纪念馆旅游河源文化广场旅游成都植物园旅游和平寺旅游丰渚园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘