FileSystemObject使用方法VIP专享

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