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

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,弹出的对话框会告诉你文件或文件夹的基本属性.
UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% MDCC 2013垂直行业应用与O2O专题论坛透露劲爆话题 专访豌豆荚产品设计团队:Design Hackathon是绞尽脑汁之后的海阔天空 首日报名爆满超300 向C++大师Lippman提问征集 做华为合伙人:华为开发者联盟沙龙(北京站)即将开幕 Windows XP发行12周年 我仍年轻而你已垂暮 2013浏览器市场份额:Chrome领衔,Firefox、IE相去甚远 人人网陈弢:从RecSys2013看大数据和移动给推荐系统带来的挑战 继续紧逼Oracle:在占领谷歌等公司之后,MariaDB迈向企业端 移动周报:十款最实用的Android UI设计工具 阿里巴巴CTO王坚:开发者精神是云计算与移动互联网的“信仰” 黑客老鹰:安全软件同样需要用户体验 六届中国大数据技术大会PPT精粹(二) 专访百度蒋凡:从RecSys2013大会看推荐系统发展新趋势 Hike副总裁杜中强:携手阿里云OS,拥抱云时代 玩蟹科技CEO叶凯:手游和云计算的合作相得益彰 倒计时20天!金玩奖各大奖项花落谁家由你主宰 宅男程序员福利:来自纽约的28位智慧与美貌并存的IT女神 创季度记录:苹果发布第四季财报 iPhone仍是苹果商业心脏 在破晓中行走:一位盲人开发的盲人应用 腾讯云俱乐部成都站——云时代手游开发:用数据说话 首届微App峰会将在MDCC2013上举行 微信易信百度新浪等平台开发商云集 如何在菜单中显示图片?谢谢! 在线等待!急,tomcat中文问题 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 谁帮我写英语作文?小弟我重谢、写的好积分再加!以“Why a sense of humor is important”为题,写一篇100词左右的短文.提示如下:1.幽默能体现个性.2.幽默有益于身心健康.3.幽默能融洽与他人的关系. 感动中国人物的故事 作文 550字 中国三大平原是哪些? 谁能帮我检查这篇英语作文啊,如果无错小弟必有重谢The Commander Fort Henry of the FortHenry was very angrily,he accuse Ashley is accomplice.Ashley was Imprisoned for 8hour.Ashleyemploy John for his lawye.Henry Dundas employChief J 中国的三大丘陵有那些 春作者朱自清,现代著名散文家、( )、( )、( ).他的代表作有( )等 本人考托福 今天写了一篇作文 大神看看能得几分,哪里可以改进的?Many teachers assign homework to students every day.Do you think daily homework is necessary for students?Use specific reasons and details to support your answer. 有什么适合女生唱的英文歌?最好是有创意的,比如cups那类的~`星期一就要在英语课上表演了.就是课前.不要太长,好听一点 我国的三大平原是哪些 小明和小强原有图画纸之比是4:3,小明有买来15张,小强用掉了8张,现有的图画纸之比是5:2,则原来他们各有多少张? 李华读一本书,第一天读了全书的1/5,第二天读了全书的1/3,这是时还剩350页 ,这本书一共有多少页? 请告诉我一篇《清晨》三年级作文有多少字 假如给我三天光明作者是谁? 以“守候”为话题的作文怎么写?只需提纲!提纲格式参照问题补充一.标题二.中心论点三.开头(必须是一整段文字,不能概括)四.主体.1.分论点 论据 说理方式 2.分论点 论据 说理方式 3.分论 用好像仿写句子,不是比喻句.好的要重谢!还有分 假如给我三天光明作者 超市买的瓷茶杯怎么检测是否含有有毒物质?如何消毒? 作文:清晨,我走进校园写清楚走进校园看到的、听到的、想到的,描写要具体,想想要合理. 《反对邪教,崇尚科学》征文五一回校要交 中国的三大平原 有带像、似乎但又不是比喻句的句子吗? 急需《崇尚科学 反对邪教》的征文, 杯子怎样消毒 以舒适的早晨为题,写一篇350字左右的作文!急!一定要快!1快!有急用!!! 三角方程(2cosx-1)(2sinx+3)=0的解集为 新买的白瓷杯子怎么消毒还有 可以盛沸水吗 用不用每次盛沸水的时候先温一温杯子? 雨后的早晨(400字左右作文)《雨后的早晨》400字左右作文,急!好心人帮帮忙吧!还有,要怎么样点击才能选择满意答案呢? 三角方程2sinx+1=0的解集是 目前,普遍使用什么消毒茶杯?A.煮沸 B.高压蒸汽 C.红外线 D.速消净 用上‘好像’一词 写一个不是比喻句的句子怎么写呢 三角方程2sinx=-1的解集是?三角方程,急 关于初三离别的作文 用好像一词写一个不是比喻句的句子 求三角方程2sinx+1=0在[0,2π]范围内的解集 作文提纲,根据以下一段话,列作文提纲.“华盛顿走上大街,挥动礼帽,向群众致意.人们依依难舍,不愿离去,跟随他的马车一直走到他的寓所门前,这是任何语言也难以描绘的情景,这是任何人为的 小明,小英和小美三人定期向李老师求教,小明每六天去一次,小英每八天去一次,小美每九天去一次.他们每多少天会同时想李老师求教?最先的再加5分 已知x,y,z是一个三角形的三个内角,求三元方程2cosx+2cosy+2cosz=3的所有解 总有一种期待的作文提纲 有没有否定语气的比喻句?就是,有“不像”的句子是不是比喻句?比如说,桥像彩虹,这是比喻句,并且是肯定句。有本体和喻体。但是,如果变为“桥不像彩虹”本体和喻体还成不成立呢? 位于我国地势第二级阶梯上的地形区是 A阴山山脉,吐鲁番盆地 B武夷山山脉,四川盆地 求作文提纲——等待不如行动以 “等待不如行动” 为中心,列出三个分论点以及论证事例.最好是用辩证性思维去论证……EG:标题XXX分论点:1XXX(用XX、XX事例←一两句话概述)……可以多送 什么句子有“如”,“像”却不是比喻句,能举例子吗,比喻句有什么特点?"如玩电脑那般激动"是不是把干某件事情的心情比作玩电脑时的心情呢? 描写泰山的语句 比较优美的哲理性散文有哪些?要朱自清的.(全文) 为什么句子中有“像”字却不是比喻句? 如何婉转拒绝被别人抄作业 含有昆虫的成语 甲乙两队修一条路,甲队独自修10天完成,乙队独自修15天完成.之后他们两队一起修,乙队因事请了几天假,之后两队一共用了8天,乙队请了几天假. 一个直圆锥和一个直圆柱底面积和高都相等,已知直圆锥的底面周长是18.84厘米,高是21厘米.求直圆柱的体积是多少立方厘米快快快快快快快快快 崇尚科学,反对邪教 征文 我国三大平原是哪些? 小明和李强原有的画纸张数之比是4:3,后来,他们图画纸之比是5:2,原来两个各有多少张图画纸?是不是少了条件? 老师有100张面值50元和20元的人民币,一共有4100元,50元和20元的人民币各有多少张? 春是一篇 散文?朱自清是现代著名 ,,,. 小明和小强原有的图画纸之比是4:3小明又买来14张,现有的图画纸之比是5:2,问原来两人各有多少张图画纸?不要用方程 中国的三大平原是什么?主要山脉和主要丘陵呢? 我国的三大平原 小明和小强原有图画纸张数的比是4:3,小明又买来35张,现在两人的张数比是5:2,原来两人各有多少张图画纸?急啊 算术法 中国三大丘陵包括哪些? 求一篇朱自清的2000字散文 穆兄会领导人将首次在埃及受审 原定于羊城晚报报业集团将派工作组调查整顿新强风暴袭击欧洲多国 致海陆空交通全部天津召开纪念毛泽东同志诞辰120周年日本外相拟11月出访伊朗 推动伊核问十八届三中全会将于11月9日至12日周恩来诞辰115周年 入党履历表手书消息称人社部正组织研究延迟退休 尚无原山东大学校长任中央综治委办公室专职早恋小情人偷尝禁果 1男孩被判强奸坐日本明仁天皇夫妇将首次访印 前首相森泰国代孕黑市剥削孕母 酬劳低至5.8韩国有望于2015年实现医生对患者远中国3名实习生因多次伪造在留卡 在日日本明仁天皇夫妇将首次访印 前首相森学生用400年前地图合成3D游戏 重强风暴袭击欧洲多国 致海陆空交通全部尼泊尔大选首次准许“第三性”公民拥有网友质疑延迟退休因养老金缺口 南京人索马里政府称无人机击毙“青年党”高级韩国有望于2015年实现医生对患者远中国队两主力意外失利大菲尔谨慎:对方有绝对实力资源板块望获基本面支撑新会陈皮产学研战略合作项目落户江门省中医药管理局驻院调查斯诺克世锦赛中国4将进正赛 张安达有这个周末阵雨绵绵首条可变导向车道启用第119届广交会今日开幕科比,谢谢,再见!公办普高将招3500随迁子女周末有雷阵雨酒后乱报火警换来5天行拘坚决守住食品安全底线回复退订存款尽失张靓颖王铮亮携手忆青春年底前陆丰惠来完成“摘帽”塘厦:自来水公司多措施防灾“睡城”之忧阿布将上演“少年游”音乐会商务之旅
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘