VB参考资料-FileSystem.docVIP

VB参考资料-FileSystem Set fs = CreateObject(Scripting.FileSystemObject) Set a = fs.CreateTextFile(c:\testfile.txt, True) a.WriteLine(This is a test.) a.Close 在上面列出的代码中，CreateObject 函数返回 FileSystemObject (fs)。CreateTextFile 方法接着创建文件作为一个 TextStream 对象(a)，而 WriteLine 方法则向创建的文本文件中写入一行文本。Close 方法刷新缓冲区并关闭文件。 可以用 For Each...Next 结构遍及 Drives 集合中的成员，如下面的代码所示： Sub ShowDriveList Dim fs, d, dc, s, n Set fs = CreateObject(Scripting.FileSystemObject) Set dc = fs.Drives For Each d in dc s = s d.DriveLetter - If d.DriveType = 3 Then n = d.ShareName Else n = d.VolumeName End If s = s n vbCrLf Next MsgBox s End Sub Sub ShowFileList(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject(Scripting.FileSystemObject) Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc s = s f1.name s = s vbCrLf Next MsgBox s End Sub object.CopyFile source, destination[, overwrite] source 必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符(*?等)。 destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。 overwrite 选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。 通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符： FileSystemObject.CopyFile c:\mydocuments\letters\*.doc, c:\tempfolder\ 但下面情况不能使用： FileSystemObject.CopyFile c:\mydocuments\*\R1???97.xls, c:\tempfolder object.CopyFolder source, destination[, overwrite] object.CreateFolder(foldername) object.CreateTextFile(filename[, overwrite[, unicode]]) 下面的代码举例说明如何使用 CreateTextFile 方法创建和打开文本文件。 Sub CreateAfile Set fs = CreateObject(Scripting.FileSystemObject) Set a = fs.CreateTextFile(c:\testfile.txt, True) a.WriteLine(This is a test.) a.Close End Sub object.DeleteFile filespec[, force] filespec 必需的。要删除文件的名字。Filespec 可以在最后的路径部件中包含通配符。 force 可选的。Boolean 值，如果要删除具有只读属性设置的文件，其值为 True。如果其值为 False （缺省），则不能删除具有只读属性设