关于文件及文件夹的操作-01

解决①当前文件夹的完整路径;②更改文件名或文件夹名称;③查找文件或文件夹(文件夹也可以)

Option Explicit

'---------------------------------------------------------------------------------------
' Procedure : VBATest10
' Author    : Administrator
' Date      : 2013-12-9 18:51
' Purpose   : 验证操作文件及文件夹的方法(通过函数实现目的)
'---------------------------------------------------------------------------------------
'
Sub VBATest10()
          '显示当前文件夹的完整路径
          Dim myDrive As String
1         myDrive = Left(CurDir$, 1)
2         Debug.Print myDrive & ":"
          '默认情况下CurDir返回的是Variant(变体)型变量,如果想让其返回字符串型数据,则需在其后面紧跟一
          '个$符号(其恰好是字符串变量的缩写形式).
              
          '更改文件或文件夹的名称函数
          '就是Name Old_filename As New_filename ,其中新旧文件名字符串支持带路径!!
          
          '查找文件或文件夹
3         If Len(Dir("C:\xisii.txt")) = 0 Then '或 if dir("C:\xisii.txt")="" then 也可以
          ' If Dir("C:\xieui") Is Nothing Then 这句话为什么通不过?因为 Is Nothing是针对对象,而dir是函数,返回的是变量.
4             MsgBox "您需要的文件未找到!"
5         End If
6         Debug.Print VarType(Dir("c:\xisii.txt")) '返回变量类型,以数字形式体现,本例为8,代表为字符串型.
          
          Dim myFile As String
7         myFile = Dir("E:\*.*") 'dir函数的返回值就是string,所以加不加$均可以,故完全可以不加$
8         Do While myFile <> ""
9             Debug.Print myFile '如果此行与下行代码交换顺序,则会导致少显示1个文件,原因在于一旦
                                 '执行了dir$语句则会进行下一次查找就把上次的查找结果给覆盖了.
10            myFile = Dir
11        Loop
End Sub