Nothing

MyPath = "f:\"   ' 指定路径。
    Myname = Dir(MyPath, vbDirectory)   ' 找寻第一项。
    Do While Myname <> ""   ' 开始循环。
       ' 跳过当前的目录及上层目录。
       If Myname <> "." And Myname <> ".." Then
          ' 使用位比较来确定 MyName 代表一目录。
          If (GetAttr(MyPath & Myname) And vbDirectory) <> vbDirectory Then
             Name MyPath & Myname As "新的文件名" & Myname '重命名文件
          End If
       End If
       Myname = Dir   ' 查找下一个目录。
    Loop