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

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,弹出的对话框会告诉你文件或文件夹的基本属性.
改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 软件发布:九城的修行器 软件发布:龙飞定时器 软件发布:加密vfp的exe,防止反编译 软件发布:“破解注册表编辑器” 软件发布:神奇注册表 软件发布:CDWizard(光驱精灵.NET) 软件发布:神通 2001 豪华版 软件发布:VB6历史文件清理器 菜单问题!!送分哟! 请问PB7.0中,Freeform格式的数据窗口中,为何按滚动条,数据不是滚动到第一页就是最后一页?如何实现自由滚动? B/S结构用何东东编最快? 关于mpeg-4 请问各位大虾:CBitmap对象如何写入一个BMP文件? 对面的大哥看过来!高分征解有关SetWindowPos的问题。 如何刷新文件内容的缓冲? 昨天一夜星际~~~后 一个捉摸的问题,、高分请解决! 在WEBLOGIC5.1上发布EJB1.1的一个小问题 请教,如何用jbuilder 写midas的服务器, 我们公司一个程序员的头式太难看了,我每次见他就恨不得拿剃头的推子给他剃光光! 寻最好的ftp软件 autoCAD的问题 找本站里面《程序员测试软件》的注册码 刚毕业的不能报? .lib 文件到底是怎么回事?如何查看它的内容? 请问,下面的警告提示什么意思(关于sybase) 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 王大伯家购进2分之1吨煤,第一天用去总数的4分之1,第二天用去总数的5分之1,剩下的占总数的几分之几? 王师傅加工一批零件,第一天加工了44个,第二天加工总数8分之3,这时两天已加工的零件个数与未加工的零件个数比13:7,这批零件一共有多少个?算术解 修路对修一条公路,第一天修了全长的3分之1,第二天修了全长的2分之1,两天共修了全长的几分之几 有7/8吨煤,第一天用去1/3,第二天用去2/5,还剩下几分之几?1-(1/3+2/5)=4/15对吗? 李师傅加工一批零件,第一天加工了全部零件的三分之一,第二天加工了15个零件,两天已加工的零件盒剩下加工的零件个数比是1:1,这批零件一共有多少个? 某修路队修一条公路,第一天修了全长3/10..某修路队修一条公路,第一天修了全长3/10,第二天修了全长9/20,第二天比第一天多修24千米.(1)第二天比第一天多修这条公路的几分之几?(2)这条公路共长 张师傅加工一批零件第一天完成了总数的15分之7第二天比第一天多加工了18个这批零一共多少个 王师傅加工一批零件,第一天完成这批零件的25% 第二天完成了35%,还剩360个零件没加工.问这批零件共有多少个? 一堆煤,第一天运走4分之1,第二天运走剩的乙班,第三天又运走剩下的3分之2,最后剩下的煤比第三天运走的4分之3少10吨.这堆煤共有多少吨? 秦师父两天加工完一批零件,第一天完成了总数的十五分之七,第二天比第一天多加工了18个.这批零件有多少个 车间要生产一批零件,第一天完成总量的1/4,第二天350个,剩下的与已做的比是2:3,共有零件多少 一堆煤,第一天用去30%,第二天用了4分之1,还剩13.5吨,这堆煤共有多少吨急 王师傅加工一批零件,第一天完成的个数是未完成个数的2分之1,如果再加工240个,就可以成这批零件的50%,这批零件有多少个 某车间生产一批零件,第一天完成总数的3/1,第二天做了400个,这时剩下的零件与做的零件的个数的比是2比3这批零件有多少个? 一堆煤,第一天用去5/1.第二天用了5/2吨,刚好用完,这堆煤共有多少吨? 王师傅加工一批零件,第一天加工了总数的5分之1,第二天加工总数的15分之2,还剩下160个,这批零件共有多 某车间做一批机器零件,8天做了360个,还剩下3/11,照这样计算,剩下的还要几天完成? 一堆煤10吨,第一天用去4分之1,第二天用去4分之3吨,还剩多少吨?是求还剩多少吨的啊 王师傅加工一批零件 第一天加工了总数的3分之1,第二天加工的个数是第一天的2分之1第二天加工了总数的几分之几? 王师傅要加工360个零件,第一天加工了6分之1,根据算式补充条件(1) 360×6分之1【 】?(2)360×(6分之1+10分之3)【 】?(3)360×(10分之3-6分之1)【 一堆煤,第一天运走了3分之1,第二天运的比第一天多5车,剩下的20车第三天运完,这堆煤共有多少车?1,2,3题! 王师傅加工一批零件,第一天完成总数的1/4又7第二天完成余下的2/5多2个,还剩全部的5/18,共多少零件? 王师傅接了加工360个零件的任务,第1天完成任务的9分之1,第2天完成啦18%.第2天加工啦多少. 第一天用去这批煤炭的1/7,第二天用去剩下的1/6,第三天用去剩下的1/5,第四天用去剩下的1/4,第五天用去剩下的1/3,第六天用去剩下的1/2,这时还剩120吨煤,问第一天、第二天共用了多少吨煤? 王师傅加工一批零件 第一天完成总数的1/4又7第二天完成余下的2/5多2个,还剩19个,共多少零件? 王师傅计划加工360个零件,结果第一天完成了任务的6分之1,第二天完成的是第一天的3分之2,还有多少个零件没有完成? 一堆煤三天运完,第一天运走2/7,第二天比第一天多运4吨,第三天运走这堆煤的1/5.这堆煤有多少吨? 加工一批零件,第一天完成总数的的1/4多7个、第二天完成余下的2/5多2个,还剩全部的5/18,共多少零件? 刘师傅要加工360个零件,第一天加工了总数的20%,第2天又加工了总数的30%.还剩下多少个 一堆煤,第一天运走5分之1,第二天运走剩下的3分之2,这堆煤还剩多少最好是方程谢谢 李师傅加工一批零件,第一天加工了总数的四分之一,第二天比第一天多加工20个,还剩下100个没有加工,这批零件共有多少个 方程解 小王加工360个零件,其中有4个不合格,合格的零件占加工零件总数的几分之几? 有一堆煤,第一天运走全部的八分之三,第二天运走了剩下的四分之三,第三天全部运完.已知第二天比第一天多运走六吨这堆煤共多少吨?三天个运走多少吨? 某车间加工一批零件,第一天加工225个,占总数的3/10,第二天加工的是第一天的4/5还有多少个零件没加工? 计划生产1800个零件,第一天生产了计划的1/4,第二天生产了计划的1/6.还剩下计划的几分之几没生产?还剩下多少个没生产? 一堆煤,第一天运走48吨,比第二天少运4分之1,第三天比第二天多运3分之1,第三夭运多少吨? 某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个?问他在下面某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个,第三天加工的零件相当于前 生产一批零件,第一天生产180个,第二天生产的比总数的4分之1少30个,两天共生产了总数的3分之一.共有多少个?我知道列式,但不知道为什么是(180-30)÷(三分之一减四分之一)【180减30表示什 有一堆煤,第一天运全部的八分之三,第二天运走剩下的四分之三,第三天全部运完.已知第二天比第一天多运走6吨,这堆煤共有多少吨?三天个运走多少吨?算式写上 工厂加工一批零件,第一天加工总数的20%,第二天比第一天多加工120个,第三天加工的相当于前两天的和,这时还剩下100个没加工.这批零件一共有多少个?请列出详细算式.歇歇. 某车间两天生产完一批零件,第一天完成零件总数的7/12,比第二天多生产180个零件.这批零件共有多少? 妈妈买来10千克苹果,吃了3千克,还剩几分之几没吃? 1.某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个,第三天加工的零件数相当于天两天加工个数的总和,这时还剩下100个没加工.这批零件一共有多少个? 一段路,第一天修了它的9分之5,第二天修了第一天的5分之1,两天共修了这段路的几分之几? 妈妈买了一些苹果,第一天吃了全部的1/3又1/3个,第二天吃了剩下的1/4又1/4个,第三天吃去再剩下的1/3又1/3个,这时还剩下3个苹果.问妈妈买了多少个苹果?每天各吃了几个苹果? 雷锋车间三天生产了一批零件,第一天生产了总数的七分之二,第二天比第一天多生产了十五个,第三天生产了六十个,这批零件共有多少个? 修一条路,第一天修了全路的10分之1,还剩下全路的几分之几.第二天修了剩下的9分之1,第二天修了全路的几分之几? 妈妈买了一些苹果,第一天吃了一半,第二天吃了剩下的一半,最后还剩下2个,妈妈一共买了几个?要有式子 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12件,第3天完成了剩下的60件,求这批零件的总数.用设x的方程 修一段公路,第一天修了这段路的16分之5,第2天与第一天修的同样多,还剩下这段路的几分之几没有修? 妈妈买了一些苹果,第一天吃了一半,第二天吃了剩下的一半,还剩5个,妈妈共买回多少 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12第3天完成了剩下的64件,求这批零件的总数.用方程 修路队修一条公路,第一天修了全长的3分之1,第二天修了全长的2分之1,两天共修了全长的几分之几? 妈妈苹果,第一天吃1/3又1/3,第二天吃剩下的1/4又1/4,第三天吃再剩下的1/3又1/3,这时还剩3个,多少个苹果? 一本100页的故事书,小飞,每天看20页.他每天看这本书的几分之几?四天呢? 某工厂加工一批零件,第一天完成总零件数的1三分之一又25件,第二天完成的是剩下零件数的三分之二少12件第三天完成了剩下的64件,求总数 一个修路队要修一段公路,第一天修了全长的1/3,第2天修的长度一天的3/4,两天一共修了全长的几分之几计算 一本故事书,小飞要10天看完,前4天每天看书20页,后6天每天看25页,这本书有多少页 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12件,第3天完成了剩下的60件,求这批零件的总数.用设x的方程 修路队修路.第一天修了全程的1/5,第二天修了剩下的1/4,第二天修了这条路的几分之几
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn