VB文件系统常用函数

本文分享VB文件系统编程常用函数，旨在为编程爱好者提供实用参考与便利，助力提升开发效率。

1、 功能：

2、 返回表示当前路径（默认路径）的字符串或变体型值。

3、 当前目录路径

4、 案例：

5、 窗体加载后显示默认路径信息

6、 代码:

7、 当前默认路径为：显示当前工作目录的路径信息。

8、 执行前后效果所示

9、 功能：

10、 返回一个整数值，表示指定文件的属性，常与SetAttr语句配合使用，用于获取文件的相关特征信息。

11、 获取文件属性时，使用GetAttr函数结合属性常数进行判断。

12、 该语句用于判断特定属性是否已设置，若已设置则返回非零值，否则返回0。

13、 每个属性都有对应的常数，这些常数代表了属性的具体数值。

14、 GetAttr返回值列表如下所示

15、 常量——数值——说明

16、 常规模式，正常运行状态。

17、 vbReadonly——1——表示文件为只读属性

18、 隐藏状态，数值为2，表示对象不可见。

19、 vbSystem-4-系统核心文件

20、 表示目录或文件夹，对应值为16，用于标识文件类型。

21、 文件自上次备份后已发生更改，归档属性已被标记。

22、 vbalias-64-设定文件名称为别名形式

23、 案例：

24、 检测E盘文件夹是否勾选只读属性

25、 代码：

26、 获取文件E:新文件.txt的属性，并判断是否具有只读属性。

27、 文件的只读属性已被选中。

28、 提示：文件的只读属性未被选中。

29、 执行前后对比见图示

30、 其他属性检测不再赘述，读者可自行尝试以加深理解与记忆。

31、 功能：

32、 该函数用于获取文件的创建时间或最近修改时间，返回结果为日期型或变体型数据。

33、 语法：

34、 获取指定文件路径的创建或修改时间信息

35、 案例：

36、 本例旨在读取E盘根目录中新文件.txt的创建或最后修改时间信息。

37、 代码：

38、 获取E盘新文件.txt的创建或修改时间并赋值给变量Date1。

39、 文件最后修改时间为：& Date1，请查看确认。

40、 功能：

41、 函数返回目标文件的字节长度，结果为长整型数值。

42、 获取指定文件路径对应文件的大小长度。

43、 案例：

44、 读取E盘根目录中新文件.txt的文件大小。

45、 代码如下所示

46、 弹出消息框显示：获取的文件长度为：并读取E盘新文件.txt的大小。

47、 功能：

48、 查阅多本教科书对该函数的说明，发现基本都表述为用于测试文件的结束状态。但这种说法令人困惑，既未阐明结束的具体含义，也未说明文件读取的起止逻辑，概念模糊，难以理解其实际作用和应用场景。

49、 要理解这个问题，需引入指针的概念。可以将指针看作文件中的输入光标，它指示当前操作的位置。在编辑文件时，输入内容会从光标所在位置开始。该函数的作用正是判断这个指针是否已移动至文件末尾，从而确定读取或写入是否结束。

50、 语法为：EOF(文件编号)

51、 该函数返回布尔值，当指针位于文件末尾时返回true，否则返回false。

52、 文件号是使用open语句时为特定文件分配的标识号码。

53、 举例：

54、 本文列举两例说明。

55、 春风拂面花自开

56、 调整指针位置，观察未达文件末尾时EOF的返回情况。

57、 打开E盘名为新文件.txt的文本文件用于输入操作。

58、 将指针移动至第二个字符位置，开始查找。

59、 示例二：

60、 将指针定位至文件末尾，即第三个字符位置。

61、 打开E盘名为新文件.txt的文本文件用于输入操作。

62、 将搜索位置定位到第三个字符处。

63、 功能：

64、 获取已打开文件的大小，返回值为长整型。

65、 获取已打开文件的大小，未通过open语句打开的文件无法返回其大小，这与FileLen函数有所不同。

66、 文件号语法：LOF(编号)

67、 举例：

68、 利用LOF函数获取E盘根目录中新文件.txt的大小。

69、 代码：

70、 打开E盘名为新文件.txt的文本文件用于读取操作。