VBA基础入门
上一篇 /
下一篇 2014-07-09 12:00:45
/ 个人分类：工具备忘录
Dir 函数此函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
Dir[(pathname[, attributes])]
pathname 可选参数。用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 ("")。
attributes 可选参数。常数或数值表达式，其总和用来指定文件属性。如果省略，则会返回匹配 pathname 但不包含属性的文件。
attributes 参数的设置可为：
常数 值 描述
vbNormal 0 (缺省) 指定没有属性的文件。
vbReadOnly 1 指定无属性的只读文件
vbHidden 2 指定无属性的隐藏文件
VbSystem 4 指定无属性的系统文件 在Macintosh中不可用。
vbVolume 8 指定卷标文件；如果指定了其它属性，则忽略vbVolume 在Macintosh中不可用。
vbDirectory 16 指定无属性文件及其路径和文件夹。
vbAlias 64 指定的文件名是别名，只在Macintosh上可用。
Dim MyFile, MyPath, MyName
' 返回“WIN.INI”(在 Microsoft
Windows 中) （如果该文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.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
End If
MyName = Dir ' 查找下一个目录。
Loop
Debug.print
语名主要用于在立即窗口中显示信息。如果开发者希望在程序运行过程中监测很多变量的值时，每次采用MsgBox弹出对话框十分不便，此时可以使用该语句输出结果显示在立即窗口中，待过程运行完毕后再行查看。
删除文件夹及其下的文件
Public Sub rm_dir(filePath As String)
If Dir(filePath, vbDirectory) <> "" Then
If Dir(filePath & "\*.*") <> "" Then
Kill filePath & "\*.*"
End If
RmDir filePath
End If
End Sub
清空文件内容
Public Sub clear_file(filename As String)
If Dir(filename) <> "" Then
Open filename For Output As #1
Print #1, ""
Close #1
End If
End Sub
收藏
举报
TAG:
VBA
