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 可以是网络路径或共享名,例如...