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

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,弹出的对话框会告诉你文件或文件夹的基本属性.
【程序员电子刊精选】躺枪的互联网思维 Algolia的分布式搜索网络架构 对抗苹果?豪雅联合Google、Intel开发智能奢表 VR产品技术解析之三星Gear VR 雅虎北研即将关闭 人才抢夺战迅速拉响 移动应用中的AR开发,5款最受欢迎工具推荐! 中国黑客Pwn2Own再创佳绩 Keen Team三年五夺魁 星环CTO孙元浩:技术解析Transwarp Inceptor是怎样炼成的 第七届中国云计算大会将于6月3-5日在北京召开 两大设计模式 塑造高可读性的网页布局 IP争夺战:任天堂与DeNA联手意味着什么? UNITE 2015干货不断,三天日程抢先看! iOS 8发布近一年,苹果HomeKit都带来了什么? Facebook开源移动网络测试工具Augmented Traffic Control 用JavaScript开发移动原生应用,Facebook正式开源React Native! 《知性》,探寻移动化社区的敏感带 【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 怎样让程序只运行一次? 怎样合并两个EXE文件? 只含字母y的多项式最多有几项 谁帮我写一段程序啊!用JS求1-100之间的偶数之和的、、 用C语言编写一程序,统计从键盘输入的任意自然数中偶数的个数并求其和#include "stdio.h"main(){\x05int num,count=0,sum=0;\x05printf("please input one number(>0):\n");\x05scanf("%d",&num);\x05for(;num!=-1;)\x05{\x05\x05if(num% 0.5是有几个千分之一组成的 程序填空:求100~200之间的偶数之和(存放在S中)的程序CLEARS=________X=100DO WHILE _________IF ___________________ENDIF X=_________ENDDO明天就考试了! 综合除法和余式定理 1.设多项式f(x)=(x+3)(x-2)+5,若f(x)除以x-k之余数为k^2,则k=?1.设多项式f(x)=(x+3)(x-2)+5,若f(x)除以x-k之余数为k^2,则k=?2.设f(x)=x^3-2x^2-x+2,则多项式g(x)=f(f(x))除以x-1所得之余式为? 已知A有12个约数,9A有24个约数,15A有36个约数,5A有几个约数 如图,一个梯形的面积是4/3平方米,阴影部分的面积是多少平方米上底5米下底8米的梯形 图中大正方形的面积是40平方米,求阴影部分面积 已知A有12个约数,9A有24个约数,15A有36个约数今天我要交作业的!少写了,问A是几。 梯形的面积是25平方米 其他条件如图所示(上底是4米、下底是6米)求阴影部分的面积.一只三角形的底是6米 高未知 三角形的高就是梯形的高 想办法求出梯形的高 若多项式x^3-2x^2+x+3除以x-2的余数为a,求2x-y-4的绝对值 + 根号a-x-y =0的解 只含有字母y的五次多项式合并后最多有 项,最少有 项 问:只含字母x的五次多项式,最多有()项,最少有()项. 图中大正方形的面积是60平方米,小正方形的面积是多少?希望不要用60除以2,有没有别的方法? 试至少写两个只含有字母x、y的多项式,且满足下列条件:(1)六次三项式;(2)每一项的系数均为1或-1;(3)不含常数项;(4)每一项必须同时含字母x、y,但不能含有其他字母. 四级要怎么提高这次四级我听力147 阅读160 综合39 写作63 总分409,差一点点!我知道写作很差 那要怎么重点复习翻译和作文呢?作文是不是字迹也很重要?听力也不是很好,请帮我综合分析下我要 5个连续偶数之和是100,这5个偶数分别是多少? 如图阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 关于英语四级,请看一下如何才能在提高听力142 阅读127 综合38 写作98总分405 这是2013年6月份的成绩,下半年的题型还会改,请帮忙参谋参谋,我想下半年就过了.我想了解那部分应该重点加强以及 5个连续的偶数和是100,其中最小的一个和最大的偶数分别是多少? 在首地址为DATA的字数组中,存放了100H个16位补码数,试编写一程序,求出它们的平均数,放在AX寄存器中,并求出数组中有多少个数小于此平均值勤,将结果放在BX寄存器中 0--100之间的偶数之和是多少? 100以后的4个连续奇数和偶数是什么? 请问该如何设置windows的货币符号和数字格式? 为什么每段开头都要有mov ax,data mov ds,ax两句,不是有assume定义过段了吗可能是我表述得不够清晰,希望有善解人意的哥哥姐姐详细帮我解答下. 0到100的实数中有哪些是偶数0到100中那些事偶数=】请教 在excel表中怎样将数据设置为货币格式,货币符号,小数点后位为1 1.测试AX寄存器中数据的符号位 2.将16位立即数2040H与地址为DATA存储单元中的数比较 如图,已知阴影部分的面积是73.6平方分米.求梯形的面积.梯形是直角梯形,上底3.2分米,上底右边的边是直角边,边长未知,左边边长未知,下底6.8分米,梯形内花了一条从左上角向右下角直线,先下 1.一个由8个十,3个十分之一,8个千分之一组成,这个数写作( ) 1.游泳馆向一个长50米、宽25米、深1.6米的空游泳池里注水.经过0.6小时水深达0.2米,这样的话,几小时能把游泳池注满?(用比例知 一个数由5个十、3个一、7个千分之一组成的,这个数读作(),把它精确到十分位是() 如图,阴影部分的面积是是6平方分米,求梯形的面积. 一个数是由10个一,5个十分之一和3个千分之一组成的,这个数写作( ),读作( )保留一位小数是( ),保留两位小数是( ). 一个关于字母x和y的多项式,除常项式外,其余各项的次数是2,这个多项式最多有几项?都是三呢?分别写出一 梯形的面积是45平方分米,高6分米.求图中阴影部分的面积. 10个一.4个十分之一,8个千分之一组成的数写作(),精确到百分位约是() 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个若ab满足la+bl+(b-1)的平方=0,求你写出的多项式的值 下面程序计算100以内正偶数之和,错在哪里?main(){int sum,i;for(i=100;i>=0;i--);if(i%2==00sum+=i;else sum=0;printf("和为:%d\n",sum);} 图中阴影部分的面积是48平方米,梯形的面积是多少平方米? 一个关于字母a,b的多项式,每项的次数都是3,这个多项式最多有几项?试写出一个符合要求的多项式. 那个英语四级阅读你是怎么提高的? X和Y皆为8位无符号二进制数,分别存在外部RAM的2000H和2001H 单元中,编写一能完成如下操作并把操作结果(设Z 一个关于字母X,Y,的多项式,每项的次数都是3.这个多项式最多有几项?写一个符合条件的多项式. 关于多项式恒等定理f(x) g(x)究竟表示什么~还有~x前面的系数究竟取什么啊~没有要求随便取得嚒~不好意思我初中的~没学过这个东西~、 片外RAM区从1000H单元开始存有100个单元字节无符号数,找出最大值并存入1100H单元 504有多少个约数? 关于多项式定理求[xk+x(k-1)+x(k-2)...+x2+x1]n的展开式其中xk为X的K次幂,依次类推 还有最好能对上面的公式做一下解释 (2/2),从20H单元开始有一无符号数据块,其长度在20H单元中,求出数据块中最大值,并存入21H单元 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个符合要求的多项式,若a,b 因式定理和余数定理是什么请用初中知识解决,详细一点拜托 一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包含( )个这样的 504中有几个约数,其中有多少个是3的倍数急急急快开开开 多项式的恒等定理指的是什么最好有来源 编一程序:比较两个无符号数的大小.把大数存入MAX单元不是C语言,是汇编语言的。麻烦再看看帮忙 求5544有多少个不同的约数?这些约数的和是多少? 多项式恒等定理的推广我所知道的多项式恒等定理只是涉及x的整数次幂的,那么它能不能推广呢,包括x的实数次幂,以及lnx啊之类的~搞不清 如图,阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 三个连续偶数的和在100到200之间,这样的连续偶数有几组 数学填空题:M,N两素因素都是2和3,它们的最大公约数是12,已知M有8个约数,N有9个约数,则M,N的和是什么
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn