Access 2003完整教程:Dir 函数

注释如果 Microsoft Jet Expression Service 正在沙盒模式下运行(此模式将阻止对可能不安全的表达式进行计算),则本主题中的函数、方法、对象或属性都将被禁用。有关沙盒模式的详细信息,请在帮助中搜索“沙盒模式”。

返回String值,该值代表与指定模式或文件属性匹配的文件名、目录或文件夹或者驱动器卷标。

语法

Dir[(pathname[,attributes])]

Dir函数语法具有下列这些部分:

部分说明
pathname可选。指定文件名的字符串表达式,文件名可能包含目录或文件夹以及驱动器。如果找不到 pathname,将返回零长度字符串 ("")。
attributes可选。常量或数值表达式,其总和指定了文件属性。若省略,将返回与 pathname 匹配的文件,但不具有任何属性。

设置

attributes 参数设置是:

常量说明
vbNormal0(默认值)指定不具有任何属性的文件。
vbReadOnly1指定只读文件(除不具有任何属性的文件之外)。
vbHidden2指定隐藏文件(除不具有任何属性的文件之外)。
VbSystem4指定系统文件(除不具有任何属性的文件之外)。在 Macintosh 上不可用。
vbVolume8指定卷标;如果已指定任何其他属性,那么将忽略vbVolume。在 Macintosh 上不可用。
vbDirectory16指定目录或文件夹(除不具有任何属性的文件之外)。
vbAlias64指定的文件名是别名。在 Macintosh 上不可用。

注释这些常量将由 Visual Basic for Applications 指定,并且可在代码中的任何位置使用以代替实际值。

说明

在 Microsoft Windows 中,Dir支持使用多字符通配符 (*) 和单字符通配符 () 来指定多个文件。在 Macintosh 上,这些字符将视为有效的文件名字符,并且不能用作指定多个文件的通配符。

由于 Macintosh 不支持通配符,所以请使用表示文件组的文件类型。您可以使用MacID函数(而不是文件名)来指定文件类型。例如,下列语句将返回当前文件夹中第一个 TEXT 文件的名称:

Dir("SomePath", MacID("TEXT"))

若要对文件夹中的所有文件进行迭代,请指定空字符串:

Dir("")

如果在 Microsoft Windows 中同时使用DirMacID函数,将产生错误。

任何大于 256 的 attribute 值都将视为MacID值。

在第一次调用Dir函数时,必须指定 pathname,否则将产生错误。如果您还指定了文件属性,那么必须包含 pathname。

Dir将返回与 pathname 匹配的第一个文件名。若要获取任何与 pathname 匹配的其他文件名,请再次调用Dir,而不带任何参数。当不再有匹配的文件名时,Dir将返回一个零长度字符串 ("")。返回零长度字符串之后,必须在后续调用时指定 pathname,否则将产生错误。您可以在不检索所有匹配当前 pathname 的文件名的情况下更改为新的 pathname。然而,您无法递归调用Dir函数。调用具有vbDirectory属性的Dir不会继续返回子目录。

提示因为文件名不以特殊顺序检索,所以您可能要将返回的文件名保存在数组中,然后排序该数组。

上页:Access 2003完整教程:DDB 函数 下页:Access 2003完整教程:DoEvents 函数

Access 2003完整教程:Dir 函数

Access 2003完整教程:DoEvents 函数Access 2003完整教程:Environ 函数
Access 2003完整教程:EOF 函数Access 2003完整教程:Error 函数
Access 2003完整教程:Exp 函数Access 2003完整教程:FileAttr 函数
Access 2003完整教程:FileDateTime 函数Access 2003完整教程:FileLen 函数
Access 2003完整教程:Format 函数Access 2003完整教程:FormatCurrency 函数
Access 2003完整教程:FormatDateTime 函数Access 2003完整教程:FormatNumber 函数
Access 2003完整教程:FormatPercent 函数Access 2003完整教程:FreeFile 函数
Access 2003完整教程:FV 函数Access 2003完整教程:GetAllSettings 函数
Access 2003完整教程:GetAttr 函数Access 2003完整教程:GetObject 函数
Access 2003完整教程:GetSetting 函数Access 2003完整教程:Hex 函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号