原文地址
Dir 函数示例 本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上,默认驱动器名称是 “HD” ,并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。 Dim MyFile,MyPath,MyName ' 返回“WIN.INI” (如果该文件存在)。 MyFile = Dir("C:WINDOWSWIN.ini") ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在, ' 函数将返回按条件第一个找到的文件名。 MyFile = Dir("C:WINDOWS*.ini") ' 若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.ini 文件。 MyFile = Dir ' 返回找到的第一个隐式 *.TXT 文件。 MyFile = Dir("*.TXT",vbHidden) ' 显示 C: 目录下的名称。 MyPath = "c:"' 指定路径。 MyName = Dir(MyPath,vbDirectory)' 找寻第一项。 Do While MyName <> ""' 开始循环。 ' 跳过当前的目录及上层目录。 If MyName <> "." And MyName <> ".." Then ' 使用位比较来确定 MyName 代表一目录。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName' 如果它是一个目录,将其名称显示出来。 End If MyName = Dir' 查找下一个目录。 Loop 帮助里面的解释,这里应该有你要的答案。 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|