本文整理vb中文件系统编程的常用函数,旨在为初学者及开发人员提供清晰、实用的参考资料,帮助快速掌握关键操作,提高编码效率。
1、 功能:
2、 返回当前工作路径(即默认路径)的字符串或变体类型值。
3、 当前工作目录路径
4、 示例场景:
5、 窗体加载完成后自动显示当前默认路径信息
6、 实现代码:
7、 当前默认路径为:动态获取并展示当前工程所在的工作目录路径。
8、 运行前后的界面效果如下图所示


9、 功能:
10、 返回一个整数,代表指定文件所具有的属性标志,常与SetAttr语句协同使用,用以查询文件的状态特征。
11、 使用GetAttr函数时,通常结合预定义的属性常量进行逻辑判断。
12、 该表达式用于检测某项属性是否被启用;若已启用,则返回非零值;否则返回0。
13、 每个属性均对应唯一的常量值,这些数值构成了属性识别的基础。
14、 GetAttr函数可能返回的属性值汇总如下:
15、 常量——对应数值——含义说明
16、 vbNormal——0——标准文件状态,无特殊属性设置
17、 vbReadOnly——1——文件处于只读模式
18、 vbHidden——2——文件或目录被隐藏,不可见于资源管理器
19、 vbSystem——4——标识为系统级重要文件
20、 vbDirectory——16——表示该项为目录(文件夹)
21、 vbArchive——32——文件自上次备份后已被修改,归档位已置位
22、 vbAlias——64——文件以别名方式存在(如快捷方式)
23、 示例应用:
24、 判断E盘下“新文件夹”是否设置了只读属性
25、 编程实现:
26、 获取E:\新文件.txt的属性值,并判断其是否具备只读特性。
27、 提示:该文件已启用只读属性。
28、 提示:该文件未启用只读属性。
29、 实际运行结果对比参见下图
30、 其余属性的验证方法类似,建议读者动手实践,加深理解与记忆。


31、 功能:
32、 用于读取指定文件的创建时间或最后修改时间,返回值为日期类型或变体类型。
33、 函数语法格式:
34、 根据传入的文件路径,提取其创建时间或最近一次保存的时间戳。
35、 应用示例:
36、 本例目标是读取E盘根目录下“新文件.txt”的创建时间或最后一次编辑时间。
37、 编写代码:
一款非常包包、衣服、鞋子类网站,页面干净清洁、一目了然,mttshop打造精致、简单、易用、免费的商城。 系统要求:IIS5.1以后,必须安装.net 3.5 安装步骤: 1、下载完成后,直接解压文件mttshop.rar 2、附加数据库:解压后的可以找一个叫db的文件夹,解压后直接附加就可以,支持SQL 2000、2005、2008 3、配置web.config文件,找到key=&qu
38、 将E:\新文件.txt的创建/修改时间赋给变量Date1。
39、 文件最新修改时间为:& Date1,请核对确认。

40、 功能:
41、 返回目标文件所占字节数,结果为长整型(Long)数据类型。
42、 依据文件路径获取其实际占用的空间大小(单位:字节)。
43、 实战案例:
44、 查询E盘根目录中“新文件.txt”的体积大小。
45、 对应代码如下:
46、 弹出提示框显示:“获取的文件长度为:”,并输出E:\新文件.txt的实际字节数。


47、 功能:
48、 多数VB教材将此函数描述为“检测文件是否到达末尾”,但该说法缺乏上下文支撑,未明确“结束”的具体指向,也未解释读写过程中的位置机制,导致概念抽象、不易掌握。
49、 理解EOF函数的关键在于引入“文件指针”概念。可将其类比为文本编辑器中的光标位置,指示当前读写操作所处的字节偏移点。EOF的作用就是判断该指针是否已抵达文件末尾,从而决定是否继续读取或终止操作。
50、 调用格式为:EOF(文件号)
51、 函数返回布尔类型,当指针位于文件末尾时返回True,否则返回False。
52、 文件号是在执行Open语句打开文件时由系统分配的唯一整数标识符。
53、 实例演示:
54、 下面通过两个小例子加以说明。
55、 春风拂面花自开
56、 移动文件指针至中间位置,观察EOF在未达末尾时的返回值。
57、 打开E盘名为“新文件.txt”的文本文件,以输入模式打开。
58、 将指针定位到第2个字符处,开始后续处理。
59、 示例二:
60、 将指针移至文件末尾(即第3个字符之后的位置)。
61、 同样以输入方式打开E盘“新文件.txt”。
62、 将读取起始点设为第3个字符位置。


63、 功能:
64、 获取当前已打开文件的总长度(单位:字节),返回长整型数值。
65、 注意:LOF仅适用于已通过Open语句成功打开的文件;对于未打开的文件,无法获取其大小,这一点区别于FileLen函数。
66、 函数调用形式:LOF(文件号)
67、 应用举例:
68、 使用LOF函数读取E盘根目录下“新文件.txt”的大小(需先打开该文件)。
69、 示例代码:
70、 以只读方式打开E盘“新文件.txt”,准备读取内容。











