的使用VBA操作规范文件.pdfVIP

使用VBA 操作文件(4):FileSystemObject 对象 使用VBA 操作文件(4):FileSystemObject 对象 FileSystemObject 对象位于File System 对象模型的最高层，并且是该层次中惟一可以在外部创建的对象，也就 是说它是惟一能使用New 关键字的对象。 FileSystemObject 对象有许多用来操作文件系统的方法和属性。下面先看一个例子，如下面的代码： Sub FileInfo() Dim fs As Object Dim objFile As Object Dim strMsg As String Set fs = CreateObject(Scripting.FileSystemObject) Set objFile = fs.GetFile(C:\Windows\System.ini) strMsg = 文件名: objFile.Name vbCrLf strMsg = strMsg 硬盘: objFile.Drive vbCrLf strMsg = strMsg 创建日期: objFile.DateCreated vbCrLf strMsg = strMsg 修改日期: objFile.DateLastModified vbCrLf MsgBox strMsg, , 文件信息 End Sub FileInfo 过程首先使用CreateObject 函数创建一个FileSystemObject 对象，用来访问计算机的文件系统。然后， 使用 GetFile 方法创建一个File 对象并返回对System.ini 文件的引用。接着，利用File 对象的Name 属性、Drive 属性、 DateCreated 属性、DateLastModified 属性返回文件的相应信息。 下面详细介绍FileSystemObject 对象的方法和属性。 BuildPath 方法 其语法为： oFileSysObj.BuildPath (Path,Name) 其中，oFileSysObj 为任何能够返回FileSystemObject 对象的对象变量。参数Path 必需，指定驱动器或文件夹 路径，String 类型，可以是绝对路径也可以是相对路径，不一定要包含驱动器名。参数Name 必需，指定附加在Path 后的文件夹或文件路径，String 类型。参数Path 或Name 都不一定要求是当前已经存在的路径或文件夹。 BuildPath 方法通过合并参数Path 和文件夹或文件名生成一个字符串，并且在必要的地方加上正确的主机系统路 径分隔符。该方法不能检验新的文件夹或文件名的有效性。 与人工合并两个字符串相比，使用BuildPath 函数的惟一好处就是它能够选择正确的路径分隔符。 FileExists 方法 FileExists 方法用于判断指定的文件是否存在，若存在则返回True 。其语法为： oFileSysObj.FileExists(FileSpec) 其中，oFileSysObj 代表任何能够返回FileSystemObject 对象的对象。参数FileSpec 必需，代表文件的完整路径， String 类型，不能包含有通配符。 如果用户有充分的权限，FileSpec 可以是网络路径或共享名，例如： If ofs.FileExists(\\TestPath\Test.txt) Then 示例 Sub IfFileExists() Dim fs As Object Dim strFile As String Set fs = CreateObject(Scripting.FileSystemObject) strFile = InputBox(请输入文件的完整名称:) If fs.FileExists(strFile) Then MsgBox strFile 已经找到. Else Ms