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

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,弹出的对话框会告诉你文件或文件夹的基本属性.
后稀缺时代思考:机器横行下的人类夹缝求生 TIOBE 2014年8月编程语言排行榜:Swift跌出Top 20 精华回顾!历届MDCC大会精彩演讲与议程汇总 《近匠》Fancy3D:亿级游戏背后的轻量级引擎 假如李小龙是程序员…… Docker已扎根新一代PaaS 三星或发布首款头戴式VR设备Project Moonlight 英特尔亚太研发总经理何京翔:数据化时代背后的智慧 云络网络科技CEO Steve Mushero:游戏行业的云运维 腾讯游戏运营管理中心总监刘栖铜:腾讯游戏云的理想与实践 一号专车产品总监曹景辉:LBS应用仍有无限的创新空间 昆仑游戏总裁张益豪:做好中国游戏的海外代理 游族首席运营官陈礼标:重点打造全球化IP 我是怎么利用微信月收入三万以上的! 我的Y Combinator黑客马拉松之感! 最炫HTML5 JavaScript框架Famo.us融资2500万美元 看板先驱David J. Anderson:看板方法拉动互联网时代敏捷变革 《近匠》增强现实开发团队LegendTech:AR技术现已加入15元豪华午餐 微软新技术:简单修改,手机摄像头摇身变3D深度相机 Black Hat USA安全隐患盘点及黑客奥斯卡颁奖 MDCC免费展位报名火热!数量有限,征集进行中 迪游信息科技CEO张晓雷:中日游戏面面观 百余款智能电视创意类应用参赛角逐 Top13 App新鲜出炉! 微信公众平台开发——如何保证access_token长期有效? 拼的就是速度!超快HTML5 2D渲染引擎Pixi.js 一周消息树:百度“涉黄”遭警告,网盘内容审核的四种方式 微信开发商现状调查:接口限制成主要困扰 行业需求多样是最大难点 小米:海外扩张需谨慎,信息安全或成最大掣肘 AMD FX系荣耀归来 或成大众新宠! 脑洞大开:《80天环游地球》同名游戏诞生记 2014微信开发者大会 最后30个参会名额! 查找时,随便符合一个字段中的条件,是否可以用or ? 关于读取oracle中clob字段的中文信息的问题 如何让IE6不显示保存图片按钮? 時間比較問題 如何固定DBGridEh的列? 如何在vb.net里面使用资源文件 关于WIN2K管理员密码 在tomcat服务器上发布soap的问题,高分相赠 JSP在websphere4.0中的应用问题! 急,关于COM调用的问题 请问各位C#有DBChart控件吗????????? select的问题 有没有好一些的MP3播放器推荐 关于声音的问题…………等…… xml是不是马上必学的?????? 呜呼!我巍巍中华,铿锵汉字,终将进博物馆了吗? 创建虚拟目录,在另一计算机上的共享位置? 用javascript怎样remove掉数组中的一个元素???急 存储过程问题 java基础类 网络错误718,是什么问题呢?分不够可以再给,急呀!! 怎样加大数据库的连接时间,因为通过远程连接,所以想加大连接时间 紧急求救? 这样的弹性页面能实现吗? 100分求"公司网络管理办法" 寻开发公司 请帮我,关于从WIN2000到WIN98的问题(在线等) 关于firework的问题?急急急!!!!!!!!!!!! 用VC.net应该怎么调试.cpp文件 老有人反复发一些老帖子,早被别人转了几百遍了,烦啊! 展示 怎样删除页面布局表格 或 页面布局单元 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 怎样在一个中英文混合的字符串中添加回车键后而不出乱字符 救命啊!!!!! 关于ocx的问题 如何响应Esc键按下? 寻开发公司 EVB 如何修改 Grid的字体? 怎样来查找在线游戏、即时聊天软件所使用的端口号? 搞过数据库的进来瞧瞧 表中有自增类型字段id,用TABLE 控件与之相连,记录增加时,ID怎么 在asp中我想等程序执行完了,直接把窗口关闭,不要出现提示 我国有什么海洋的科研成果? 声称的近义词最正确的 我发现生命是如此的没有意义 用英语怎么讲 有关曝的成语,曝的意思必须是“晒” 声明的近义词是什么 如图所示,A球在斜面上的A点以水平速度v抛出,斜面的倾角为θ,设斜面足够长,问:自抛出起经过多长时间,小球离斜面最远?小球落点B距A点多远? 生命教育要从小开始? 电解电容上标的多少v是什么,标的一样的电容电压一样吗主板上两个标一样的电容,用万用表测量电压都不一样,一个十几v,一个二十几v. 教体艺 是什么? 水力学的三大方程是什么?最好把式子列出来 陈述的近义词是什么 是要什么特长? 第五签、中签丑宫:【刘晨遇仙】 求姻缘 此签何解第五签、中签丑宫:【刘晨遇仙】 一锥凿地要求泉,努力求之得最难;无意偶然遇知己,相逢携手上青天.诗意:此卦锥地求泉之象.凡事先难 蛛有什么组词 浊化音是如何产生的?例:在S后的t,k,p轻辅音全部都要念成浊辅音d,g,b sky发音是/sgai/ stop发音是/sdop/ australia发音是/ausdreilia/ 这是如何产生的? 请大师帮忙解命 解姻缘 观音灵签 第五签、中签丑宫:【刘晨遇仙】我农历1982年(第一个4月)23日 子时出生,男性,命运,婚姻如何 这几年家里帮相了几个女孩子到交情没有多久都是人 关于纺纱学配棉的问题用129(含杂1.8%)50%,229(含杂2.1%)30%,331(含杂1.5%)10%,回花10%配棉,试计算:(1)平均纤维长度(2)平均等级(3)平均含杂率我要问的是回花的纤维长度,等级是多少, s后面哪几个音要浊化 生命是什么? 生命为什么? 斜塔上的实验 第17段对教堂的环境描写有什么表达作用?_ 品牌kappa中文什么 为什么人一出生就开始走向生命的尽头 同样是常见的吃草动物,牛,羊,马,驴,为什么驴的药用价值最大? KAPPA 应该怎么叫那中文啊 地球人都知道我爱上了你 用英语怎么说 蛛能组什么词 被称为明朝开国文臣之首的是【】,他的代表作有【送东阳马生序】 生命的死亡就是开始之前的状态吗,为什么? 我什么都可以放弃,唯独你我不能放弃 帮我翻译英文 【语文】送东阳马生序八册下语文书上,这篇课文是完整的,还是节选的? 《地球人都知道我爱上了你》歌词 求“黄胜 是不是要等到我放弃了你才想到我对你的好”英文意思 如何证明浮体做的是简谐运动? "地球人都知道我爱上了你"是谁唱的啊在线等,谢谢啊 英语读音哪些情况下要浊化 恶劣的近义词可不可以是险恶 为什么生命终于有一天要结束,那为何还要开始呢? 英语读音浊化有哪些单词开头为s的浊化现象,如stand,speak,sport,sky, 险恶的近义词 天蝎座的格言? 那位科学家坚持对现代药物的研究是为了能改善人们的生活.中译英 高中物理求分析 坏蛋是怎样练成的经典名言 人的性格是随着年龄变化的吗 衣服上的商标 如果反比例函数Y=K/X的图象分布在第一.三象限,则直线Y=K(X-2)经过第_____象限. 人性格会随着年龄变化吗? 1.无题静止在光滑水平面上,先对物体施加一水平向右的恒力F1,经过t秒后物体的速率为V1时撤去F1,立即再对它施一水平向左的水平恒力F2,又经过3t秒后物体回到出发点,此时速率为V2,则V1,V2间的 已知反比例函数的图象经过点A(3,-4).(1)这个函数的图象分布在哪些象限?在图像的每一支上,y随x的增大如何变化?(2)点B(-3,4),C(-2,6)和点D(3,4)是否在这个函数的图像上? 人的性格会随着年龄增长吗? 假设一个物体在某行星的一个悬崖上,从静止开始自由下落,1秒内从起点落下4米,再落下4秒,它将在起点下记米处? 海洋科研属于工业么 高山流水 【急!】伯牙鼓琴,其友钟子期听之.方鼓琴而志在太山,钟子期曰:“善哉乎鼓琴!巍巍乎若太山!”少选之间,而志在流水,钟子期复曰:“善哉乎鼓琴!汤汤乎若流水!”钟子期死,伯牙破 找一部电影许多年前看的,大致剧情好像是讲17世纪左右的事,好像一个人是贵族,他很热爱科学,他研究人体,把好几个人的尸体拼起来,做了一个人,我记得电影一开始是在冰天雪地里,他做的那个 力竭斯底是什么意思啊? 蛛能组词什么 我想找一部电影电影讲的是一群互不相识的不同国籍的高手,被骗到一个岛上,岛上有一种怪物会隐身,怪物会把杀死的人为自己所用,去攻击这些不同国家的人,有美国人,日本人,还有别的国家的 那个底力究竟是什么公式计算的呀?激励哥,底力8级,气力120,满血时轰杂兵5000+,40%HP发动了底力,没有发动异性生命体(气力130).同一招,同一武器,同一杂兵,必定会心,12000+.有没有高手告诉怎么 他们说得什么海子体,韩寒体 是什么东西啊 电影万有引力22分钟那首歌是什么 就是高远追石晓琳那时候那首歌 一直run run run的 意总理会见美国务卿 要求解释监听意通外交部就梅德韦杰夫访华、辛格访华等答朝鲜拒绝单方首先行动解决半岛核问题英多地遭暴风雨袭击 逾20条河流发洪韩媒:韩国泡菜或将成人类非物质文化遗葡萄牙公共债务率超过130%四岁姐姐打开浴缸水龙头 意外将两岁弟网传“2013十大酷刑” 网友不满加澳总督布赖斯访问成都 与大熊猫亲密接老挝打捞出坠毁飞机机身 湍急河水加大英多地遭暴风雨袭击 逾20条河流发洪四岁姐姐打开浴缸水龙头 意外将两岁弟梅德韦杰夫访华是否标志中俄经济对话新中印战略合作伙伴关系未来发展愿景的联必和必拓调高2014财年铁矿石产量四岁姐姐打开浴缸水龙头 意外将两岁弟澳洲青睐中国游客 维多利亚州长在沪“天津狗不理与新加坡企业合作拓展亚太市意总理会见美国务卿 要求解释监听意通租客伪造房产证卖房 新\"房东\"不菲总统再称菲政府不会就香港人质事件致完善价格政策 促进绿色发展苦练精兵东盟地区自然灾害应急演练举行加强教育管理服务 更好地发挥宗教 在中国西藏文化周在德国柏林开幕掠影探索转变政府职能新路径日喀则地区召开宣传思想工作会明思路抓重点强措施 确保安居乐业在雪域高原,坚守就是贡献邓小刚主持召开传达学习贯彻纪念毛泽东发展进步,西藏人民的必然选择最高法要求地方法院试点全面实现审判流岳西市民代表向发展城区公交指挥部赠送成都交警开辟生命通道 18分钟护送重网秦回应浑水指控:严重失实 故意误导广州一德路旁发生火灾续:火势再次增大网络媒体杯-凤凰网3-0百度 晋级决央行:贷款基础利率集中报价和发布机制黄金大米品尝会违规,科技工作者应守底韩国流行“舌头整形”称只为学好英语(高考英语改革提供着更多的教育自由选择
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘