如何使用filesystemobject?

你在工程--》引用里引用
scritpting runtime
然后就可以编写程序了

引用SCRIPTING RUNTIME，再定义一个FILESYSTEMOBJECT 的东东，就可以用了，很好用的。

CopyFile 方法
描述把一个或多个文件从一个地方复制到另一个地方。语法object.CopyFile source, destination[, overwrite]CopyFile 方法语法有如下几部分：部分描述
object 必需的。object始终是一个 FileSystemObject 的名字。
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"如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 是一个已存在文件夹，在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。如果 destination 不存在，source 得到复制。这是通常的情况。
如果 destination 是一个已存在的文件，则当 overwrite 值为 False 时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。
如果 destination 是一个目录，发生一个错误。
如果使用通配符的 source 不能和任何文件匹配，同样产生一个错误。CopyFile 方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。

你在工程--》引用里引用
microsoft scritpting runtime
然后就可以编写程序

DeleteFile 方法
描述删除一个指定的文件。语法object.DeleteFile filespec[, force]DeleteFile 方法语法有如下几部分：部分描述
object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要删除文件的名字。Filespec 可以在最后的路径部件中包含通配符。
force 可选的。Boolean 值，如果要删除具有只读属性设置的文件，其值为 True。如果其值为 False （缺省），则不能删除具有只读属性设置的文件。
说明如果没有发现相匹配的文件，则产生一个错误。DeleteFile 方法停在它遇到的第一个错误上。不要尝试回卷或撤消错误发生前所做的任何改变。

GetDrive 方法
描述返回一个与指定路径中的驱动器相对应的 Drive 对象。语法object.GetDrive drivespecGetDrive 方法语法有如下几部分：部分描述
Object 必需的。始终是一个 FileSystemObject 的名字。
Drivespec 必需的。drivespec参数可以是一个驱动器字符（c）、一个驱动器字符加一个冒号（c:）、一个驱动器字符加冒号和路径分隔符（c:\）或任何网络共享的说明（\\computer2\share1）。
说明对于网络共享，要进行检查以确保共享存在。如果 drivespec 不符合任何一种可以接受的形式或者不存在，则发生一个错误。对一个普通路径字符串调用 GetDrive 方法，使用下面步骤得到一个适合作为 drivespec 使用的字符串：DriveSpec = GetDriveName(GetAbsolutePathName(Path))

MoveFile 方法
描述将一个或多个文件从一个地方移动到另一个地方。语法object.MoveFile source, destination MoveFile 方法语法有如下几部分：部分描述
Object 必需的。始终是一个 FileSystemObject 的名字。
Source 必需的。一个或多个要移动文件的路径。Source 参数字符串只能在路径的最后部件中包含通配符。
destination 必需的。一个或多个文件要移动到的目标路径。 Destination 参数不能包含通配符。
说明如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为 destination 是一个要创建的目标文件名。在上面任一情况下，当移动一个文件时可能出现三种事件。如果 destination 不存在，文件得到移动。这是通常的情况。
如果 destination 是一个已存在文件，则发生一个错误。
如果 destination 是一个目录，则发生一个错误。
如果一个在 source 中使用的通配符不能和任何一个文件匹配，也发生一个错误。 MoveFile 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。重点只有操作系统支持的情况下，这个方法才允许在卷之间移动文件。

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

OpenTextFile 方法
         描述打开一个指定的文件并返回一个 TextStream 对象，该对象可用于对文件进行读操作或追加操作。语法object.OpenTextFile(filename[, iomode[, create[, format]]])OpenTextFile 方法有如下几部分：部分描述
Object 必需的。始终是一个 FileSystemObject 的名字。
filename 必需的。字符串表达式，它标识了打开的文件。
iomode 可选的。表示输入/输出方式。可为两个常数之一：ForReading或 ForAppending。
create 可选的。Boolean 值，它表示如果指定的 filename 不存在是否可以创建一个新文件。如果创建新文件，其值为 True。若不创建文件其值为 False。缺省值为 False。
format 可选的。三种 Tristate 值之一，用于指示打开文件的格式。如果省略，则文件以 ASCII 格式打开。
设置值iomode 参数可为下面设置值的任何一个：常数值描述
ForReading 1 打开一个只读文件。不能对此文件进行写操作。
ForAppending 8 打开一个文件并写到文件的尾部。
Format 参数可为下面设置值的任何值：常数值描述
TristateUseDefault –2 使用系统缺省打开文件。
TristateTrue –1 以 Unicode 格式打开文件。
TristateFalse   0 以 ASCII 格式打开文件。
说明下面的代码举例说明了使用 OpenTextFile 方法打开一个用于追加文本的文件：Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

比如说我要打开一个文本文件,把里面的内容读到文本框TEXT1中去,该怎么写?文本文件有500K内容

dim fso,fi,re,s
set fso=createobject("scripting.filesystemname")
set fi=fso.getfile(app.path+filename)
set re=fi.openastextstream
s=re.readall
text1.text=s

楼上的我看不懂你的,scripting.filesystemname是什么?
set re=fi.openastextstream这句是什么意思?

你要是想要的话，我发给你几个程序的实例我的MSN是 [email protected]

调试易

如何使用filesystemobject?

解决方案 »