vb读取和写入txt的方法
vb操作txt(VB operation TXT)
vb操作txt（VB operation TXT）细胞（1,1）代表A1细胞（2，C）代表C2 = COUNTIF（“”）+ COUNTIF（“”）+ COUNTIF（“”）1。
怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件昏暗的gfilenum为整数gfilenum = FreeFile随机gfilenum len = 3打开“文件路径及文件名”“以随即方式打开一文件如果文件不存在就新建用得到# gfilenum，记录在文件中位置，要放取得的数据的变量”读取操作用把# gfilenum，记录在文件中位置，要放着要写入数据的变量”写操作近# filenum”关闭文件以下为顺序方式打开的文件昏暗的gfilenum为整数gfilenum = FreeFile打开输出”文件路径及文件名”gfilenum”以写入方式打开文本打印# gfilenum，要写入的文本写#文件号，要写入的文本昏暗的gfilenum为整数gfilenum = FreeFile打开“文件路径及文件名“输入”以读出方式打开文本gfilenum输入# gfilenum，用来放读取的内容的内存变量名还可用线路输入#，等读取更详细的查MSDN（）2。
VB读取文本文件时，调用对象中使用报错了文本中去。
如果是集F = fs。
中去（“E：\表格\痕迹。
txt”，读书，真的，TristateUseDefault）出现错误：运行时错误格”：无效的过程调用或参数如果是集F = fs。
中去（“E：\表格\痕迹。
txt）”则不会报错。
用文件对象啊filesystemcontrol操作就好了啊再加上一个文本读取文件第一行就好了啊。
3。
VB通过FileSystemObject，可以读取文本文件（.txt）。
对于。
蝙蝠文件，VB可否直接读取？蝙蝠也属于文本类文件可以读取不用FSO也行：把文本文件内容读取文本框：朦胧的TempFile As Long昏暗的loadbytes()字节tempfile = FreeFile二开文件名作为# tempfileRedim LoadBytes（1～LOF（TempFile））为字节得到# tempfile，，LoadBytes关闭tempfiletext1。
VBA使用FileSystemObject将读取或写入文本文件
VBA使用FileSystemObject将读取或写入文本文件(一)分类：VBA 2010-08-12 11:40 1211人阅读评论(0) 收藏举报有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。
在接下来的几篇里我们介绍如何使用FileSystemObject对象操作文本文件的。
工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject对象。
一、如何创建FileSystemObject对象在VBA中，是通过CreateObject函数返回FileSystemObject对象。
示例：Dim fso As ObjectSet fso=CreateObject("Scripting.FileSystemObject")二、FileSystemObject主要方法介绍1、CreateTextFile方法：用于创建一个指定文件名，并返回一个可操作的TextStream对象。
语法：object.CreateTextFile(filename[,overwrite[,unicode]])示例1：在C:/FSOTest/中创建一个名为testFile的文本文件，并写入一行“CreateTextFile Test”：Sub CreateFile()Dim sFile As Object, FSO As ObjectSet FSO = CreateObject("Scripting.FileSystemObject")Set sFile = FSO.CreateTextFile("C:/FSOTest/TestFile.txt",True) sFile.WriteLine ("CreateTextFile Test")sFile.CloseSet sFile = NothingSet FSO = NothingEnd Sub2、DeleteFile方法：用于删除一个指定的文件。
VB.NET文件读写操作
这一部分，你将找到更多常用的文件操作的代码实例。
最常用、最基本的操作就是把text写入文件和读回来。
现在的应用程序通常不用二进制文件作存储简单的变量，而用它来存储对象，对象集合以及其他机器代码。
下面，将看到具体操作的例子。
读写文本文件为了把text保存到文件，创建一个基于FileStream的StreamReader对象，然后调用Write方法把需要保存的text写入文件。
下面的代码用SaveFileDialog 提示用户指定一个文件，用于保存TextBox1的内容。
同样采用类似的语句，我们读取一个文本文件，并把内容显示在TextBox控件中。
StreamReader的ReadToEnd方法返回文件的全部内容。
各种对象的存储采用BinaryFormatte以二进制的形式，或者用SoapFormatter类以XML格式都可以序列化一个具体的对象。
只要把所有BinaryFormatter的引用改为SoapFormatter，无需改变任何代码，就可以以XML格式序列化对象。
首先创建一个BinaryFormatter实例：然后创建一个用于存储序列化对象的FileStream对象：接着调用BinFormatter的Serialize方法序列化任何可以序列化的framework 对象：加一个Serializable属性使得自定义的对象可以序列化下面代码创建一个Person对象实例，然后调用BinFormatter的Serialize方法序列化自定义对象：你也可以在同一个Stream中接着序列化其他对象，然后以同样的顺序读回。
例如，在序列化Person对象之后接着序列化一个Rectangle对象：创建一个BinaryFormatter对象，调用其Deserialize方法，然后把返回的值转化为正确的类型，就是整个反序列化过程。
然后接着发序列化Stream的其他对象。
假定已经序列化了Person和Rectangle两个对象，以同样的顺序，我们反序列化就可以得到原来的对象：大多数程序处理对象集合而不是单个的对象。
VB读写文件
Loop
Close #1
下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。
方法一:
用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:
Open "f:\d.txt" For Input As #1
RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
End Sub
方法四：
用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)：
Dim i as Long
Open "c:\tmp.txt" For Input As 1
str1 = Strconv(InputB$(LOF(1), 1), vbUnicode)
astr1 = split(str1 , vbCrLf)'以回车换行符分割
For i=0 To Ubound(astr1)
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：
Open "TESTFILE" For Output As #1 ' 打开输出文件。
vb读取txt文件
vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For Random As gfilenum len=3\'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作close #filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For output As gfilenum \'以写入方式打开文本print #gfilenum,要写入的文本write #filenum,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input #gfilenum ,用来放读取的内容的内存变量名还可用line input#,input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。
如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E:\\table\\trace.txt)"则不会报错。
VBA读写文本文件的几种方法
VBA读写文本文件的几种方法1、直接采用Open函数 Line input命令Private Sub txt_read() Dim txt As String Open 'D:\dzh.txt' For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。
Open 语句分配一个缓冲区供文件进行 I/O 之用， '并决定缓冲区所使用的访问方式。
'打开文件作为数据输入用，文件号为#1 Do While Not EOF(1) Line Input #1, txt '从已打开的顺序文件中读出一行并将它分配给 String 变量 'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) '或回车–换行符 (Chr(13) Chr(10)) 为止。
回车–换行符将被跳过，而不会被附加到字符串上MsgBox txt Loop Close #1 End Sub2、利用FileSystemObject对象（引用windows script host object model)Sub TextStreamTest() '**如果引用“windows script host object model”,可以定义如下的数据类型，编程更方便******* Dim fs As FileSystemObject, f As File, ts As TextStream, s As String '打开一个只读文件，不能对此文件进行写操作/ '打开一个用于写操作的文件。
如果和此文件同名的文件已存在，则覆盖以前内容/ '打开一个文件并写到文件的尾部Const ForReading = 1, ForWriting = 2, ForAppending = 8 '使用系统缺省打开文件/以 Unicode 格式打开文件/以ASCII 格式打开文件Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 'Dim fs, f, ts, s Set fs = CreateObject('Scripting.FileSystemObject') 'FileSystemObject 对象提供对计算机文件系统的访问'下面FileSystemObject.CreateTextFile 返回一个TextStream 对象，该对象是可读并可写的： On Error Resume Next '如果文件存在，下个命令会出错！获得文件fs.CreateTextFile('test1.txt', False).WriteLine ('This is a test.') '创建一个文件,返回一个用于该文件读写的TextStream对象 Set f = fs.GetFile('test1.txt') '返回一个和指定路径中文件相对应的 File 对象 '错误！f.WriteLine ('This is a test.') '向创建的文本文件中写入一行文本，非T extStream对象，错误！！ Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault) '打开一个指定的文件并返回一个 TextStream 对象 'OpenAsTextStream 方法提供了和 FileSystemObject. 的 OpenT extFile 方法相同的功能/ '此外，OpenAsTextStream 方法还可以用于对一个文件进行写操作。
VBA中的文本文件读写与处理技巧
VBA中的文本文件读写与处理技巧在VBA编程中，文本文件读写与处理是一个必不可少的任务。
无论是读取外部文件数据，还是将数据写入到文件中，掌握相关的处理技巧都能大大提高编程效率。
本文将介绍一些VBA中常用的文本文件读写与处理技巧，帮助您更好地应对相关任务。
一、打开文本文件在VBA中，可以使用「Open」语句来打开一个文本文件，并将其与输入/输出缓冲区相关联。
通过指定文件路径、模式和缓冲区大小等参数，我们可以实现对文本文件的读写操作。
例如，以下示例演示了如何使用Open语句打开一个文本文件：```Sub OpenTextFile()Dim FilePath As StringFilePath = "C:\example.txt"Dim FileNumber As IntegerFileNumber = FreeFileOpen FilePath For Input As #FileNumber' 在此处添加对文件的读取或写入操作Close #FileNumberEnd Sub```在上述示例中，我们首先定义了一个变量FilePath，用于存储文本文件的路径。
接着，使用FreeFile函数获取可用于打开文件的文件号。
然后，使用Open语句打开文本文件，指定其模式为输入模式（Input），并将文件号作为参数传递给#号。
在此之后，我们可以在注释的部分添加对文件的读取或写入操作。
二、读取文本文件内容在VBA中，我们可以使用「Input」语句和「Line Input」语句来读取文本文件的内容。
前者逐行读取数据，而后者按行读取完整的文本。
以下示例演示了如何逐行读取文本文件的内容：```Sub ReadTextFileLineByLine()Dim FilePath As StringFilePath = "C:\example.txt"Dim FileNumber As IntegerFileNumber = FreeFileOpen FilePath For Input As #FileNumberDim LineOfText As StringDo Until EOF(FileNumber)Line Input #FileNumber, LineOfText' 在此处添加对当前行数据的处理操作LoopClose #FileNumberEnd Sub```在上述示例中，我们使用Do Until循环和EOF函数判断是否已经读取到文件结束。
用VB同时读取记事本和Word文档的实现
用VB同时读取记事本和Word文档的实现VB编程，功能强大。
今天，我们共同来学习用VB编程读取记事本和Word文档内容。
用到的VB知识主要有控件的应用、文件的读写操作。
VB读取记事本和Word文档运行图程序实现过程1、首先添加控件，如下图2、读取记事本文件代码实现•••••••••Private Sub Command1_Click() '读取记事本文件内容Dim content As StringOpen App.Path & '\test.txt' For Input As #1 '读取文件语句Do While Not EOF(1)Line Input #1, content '按行读取文件内容List1.AddItem content LoopClose #1End Sub3、读取Word文档内容实现••••••Private Sub Command2_Click() '读取Word文档内容Dim wordDoc As Object Set wordDoc = GetObject(App.Path & '\test.doc') Text1 = wordDoc.content.Text Set wordDoc = NothingEnd Sub最后，点击运行按钮，即可完成读取文档内容功能。
程序实现相关知识顺序文件读写打开文件Open “文件名” For 模式 As [#]文件号OutPut(写):新建或打开一个文件，进行写操作。
文件若存在，则打开，写入信息覆盖原有信息；文件若不存在，则新建。
Input (读) :打开一个文件，进行读操作。
文件必须存在，否则出错。
Append(追加):新建或打开一个文件，进行写操作。
文件若存在，则打开，写入信息追加在原有信息之后；文件若不存在，则新建。
[实例] 如果要打开“C：\USER”目录下一个文件名为“SCORE.TXT”的文件，对它写数据，指定文件号为#1，命令为代码怎么写呢?写操作写文件Print # 文件号，[输出列表]Write # 文件号，[输出列表]Write命令的功能和Print相同，区别在于Write命令是以紧凑格式输出，在数据项之间自动添加“，”分隔符，并给字符型的数据加上双引号。
VB读写文件
VB读写文件VB读写文件要用到以下语句：1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get （以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" ' 将数据写在第十列。
' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyErrorMyBool = False : MyDate = #February 12, 1969# : MyNull = NullMyError = CVErr(32767)' True、False、Null 及Error 会根据系统的地区设置自动转换格式。
vb读取txt的方法-写入txt的方法
vb读取txt的方法-写入txt的方法vb读取txt的方法-写入txt的方法1.Private Sub Command1_Click()2.'写文件示例3.Dim strFileName As String '文件名4.Dim lngHandle As Long '句柄5.Dim strWrite As String '要写入的文本内容6.7.strFileName = App.Path & "/a.txt"8.''''''''App.Path & "/a.txt"相对路径9.''"c:/w.txt"绝对路径10.lngHandle = FreeFile() '取得句柄11.'准备要写入的内容12.strWrite = Text1.Text '或者strWrite = "这些文字将被写入文件。
"13.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入14.''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入15.''''''print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号16.17.Open strFileName For Output As lngHandle '打开文件18.Print #lngHandle, strWrite '写入文本19.Close lngHandle '关闭文件20.End Sub21.Private Sub Command2_Click()22.'读文件示例23.Dim strFileName As String '文件名24.Dim lngHandle As Long '文件句柄25.Dim strAll As String '所读取的文本文件的所有内容26.Dim strLine As String '在循环中存放每行的内容27.strFileName = App.Path & "/a.txt"28.'获得文件的句柄29.lngHandle = FreeFile()30.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入31.Open strFileName For Input As lngHandle32.'循环直到文件尾33.Do While Not EOF(lngHandle)34.'每次读取一行存放在strLine变量中35.Line Input #lngHandle, strLine36.'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上37.strAllstrAll = strAll & strLine & vbCrLf38.Loop39.'显示得到的全部分内容40.MsgBox strAll41.End Sub42.43.Private Sub Command1_Click()44.Open App.Path & "/a.txt" For Output As #145.Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性46.Close #1 '关闭打开的文件47.End Sub48.'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入。
VBA中常见的文本文件读写和处理方法
VBA中常见的文本文件读写和处理方法在VBA中，文本文件的读写和处理是非常常见的操作，无论是从外部文件中读取数据，还是将数据写入到文本文件中，都有相应的方法和技巧。
本文将介绍几种常见的文本文件读写和处理方法，帮助你更好地进行VBA编程。
一、文本文件的读取1. 使用File system对象VBA中的File system对象提供了用于访问和操作文件系统的功能。
通过使用File system对象的OpenTextFile方法，可以打开一个文本文件，并读取其中的数据。
下面是一个示例代码：```Dim filePath As StringDim fileContent As StringDim file As ObjectfilePath = "C:\test.txt" ' 文件路径Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath)fileContent = file.ReadAll ' 读取文件内容file.Close ' 关闭文件MsgBox fileContent```代码中的`filePath`变量存储了文件的路径，通过CreateObject函数创建了File system对象，并使用OpenTextFile方法打开了文本文件。
之后，使用ReadAll方法将文件的全部内容读取到`fileContent`变量中。
最后，使用Close方法关闭文件。
2. 使用Input函数VBA中的Input函数可以从用户输入设备读取数据。
通过指定文件号码和变量，可以将文件中的数据读取到变量中。
下面是一个示例代码：```Dim filePath As StringDim fileContent As StringDim fileNumber As IntegerfilePath = "C:\test.txt" ' 文件路径fileNumber = FreeFile ' 获取一个可用的文件号码Open filePath For Input As #fileNumber ' 打开文本文件fileContent = Input$(LOF(fileNumber), fileNumber) ' 读取文件内容Close #fileNumber ' 关闭文件MsgBox fileContent```代码中的`filePath`变量存储了文件的路径，`fileNumber`变量用于存储文件的文件号码。
转贴VB 读写文本文档
转贴VB 读写文本文档VB读写文件要用到以下语句：1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：Open "TESTFILE" For Output As #1 ' 打开输出文件。
Print #1, "This is a test" ' 将文本数据写入文件。
Print #1, ' 将空白行写入文件。
Print #1, "Zone 1"；Tab ；"Zone 2" ' 数据写入两个区（print zones）。
Print #1, "Hello" ；" " ；"World" ' 以空格隔开两个字符串。
Print #1, Spc(5) ；"5 leading spaces " ' 在字符串之前写入五个空格。
Print #1, Tab(10) ；"Hello" ' 将数据写在第十列。
' 赋值Boolean、Date、Null 及Error 等。
Dim MyBool, MyDate, MyNull, MyErrorMyBool = False : MyDate = #February 12, 1969# : MyNull = NullMyError = CVErr(32767)' True、False、Null 及Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
(完整word版)vb读取txt文件
vb读取txt文件1.怎么通过代码创建一个文本文件，并读取，更新内容以上为随即方式打开的文本文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名” For Random As gfilenum len=3\'以随即方式打开一文件如果文件不存在就新建用get #gfilenum ，记录在文件中位置,要放取得的数据的变量\’读取操作用put ＃gfilenum ，记录在文件中位置，要放着要写入数据的变量\’写操作close ＃filenum\'关闭文件以下为顺序方式打开的文件dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名” For output As gfilenum \’以写入方式打开文本print ＃gfilenum，要写入的文本write #filenum,要写入的文本dim gfilenum as integergfilenum = FreeFileOpen "文件路径及文件名" For input As gfilenum \'以读出方式打开文本input ＃gfilenum ，用来放读取的内容的内存变量名还可用line input＃，input()等读取更详细的查msdn2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。
如果是Set f = fs。
OpenTextFile("E：\\table\\trace.txt”, forreading， True，TristateUseDefault)出现错误：Run-time error \'5\':Invalid procedure call or argument如果是Set f = fs.OpenTextFile("E：\\table\\trace。
通过VBA把Excel数据写入txt文件中
通过VBA把Excel数据写入txt文件中在处理数据时，我们可能需要将Excel中的数据写入到txt文件中。
这样的需求可以通过使用VBA（Visual Basic for Applications）编程实现。
以下是详细的步骤和注意事项。
一、概念Excel：Microsoft Excel是一款广泛使用的电子表格软件，可以用于处理和分析数据。
txt文件：txt文件是一种纯文本文件，常用于存储无格式的简单文本信息。
VBA：Visual Basic for Applications是一种由Microsoft开发的编程语言，主要用于Microsoft Office软件的自动化。
二、功能通过VBA编程，我们可以实现以下功能：读取Excel中的数据。
创建和写入txt文件。
按照特定格式写入数据。
三、语法以下是将Excel数据写入txt文件的基本VBA语法：Sub WriteToTextFile()' 定义工作表、文件路径和文件名称Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1")Dim FilePath As StringFilePath = "C:\Temp\output.txt"' 打开一个新的文件流Dim FileNumber As IntegerFileNumber = FreeFile' 创建或打开文件Open FilePath For Output As #FileNumber' 遍历工作表的每一行Dim Row As RangeFor Each Row In edRange.Rows' 将每一行的内容写入到txt文件中Write #FileNumber, Join(Application.Transpose(Application.Transpose(Row)), vbTab) Next Row' 关闭文件流Close #FileNumberEnd Sub四、案例假设我们有一个名为"Sheet1"的工作表，包含以下内容：我们希望将这些数据写入到一个名为"output.txt"的txt文件中，文件路径为"C:\Temp"。
VBA使用FileSystemObject将读取或写入文本文件
VBA使用FileSystemObject将读取或写入文本文件有时，我们需要将一个文本文件中的数据读取到Excel单元格中，或将指定单元格的内容按指定的格式导出到文本文件中，这时，我们就需要使用Scripting.FileSystemObject对象来进行操作。
在接下来的几篇里我们介绍如何使用FileSystemObject对象操作文本文件的。
工欲善其事，必先利其器，那么我们就先花几篇文章来详细介绍下FileSystemObject对象。
一、如何创建FileSystemObject对象在VBA中，是通过CreateObject函数返回FileSystemObject对象。
示例：Dim fso As Object Setfso=CreateObject("Scripting.FileSystemObject")二、FileSystemObject主要方法介绍1、CreateTextFile方法：用于创建一个指定文件名，并返回一个可操作的TextStream对象。
语法：object.CreateTextFile(filename[,overwrite[,unicode]])示例1：在C:\FSOT est\中创建一个名为testFile的文本文件，并写入一行“CreateT extFile Test”：Sub CreateFile() Dim sFile As Object,FSO As Object Set FSO =CreateObject("Scripting.FileSystemObject") Set sFile =FSO.CreateTextFile("C:\FSOTest\TestFile.txt",True) sFile.WriteLine ("CreateTextFileTest") sFile.Close Set sFile = NothingSet FSO = Nothing End Sub2、DeleteFile方法：用于删除一个指定的文件。