VB编程ppt课件第9章

第9章文件VB2005提供了强大的文件访问与处理功能。它除了提供传统的文件访问方式外，还可以使用System.IO命名空间访问文件，并且新增了一个性能更加强大的My.Computer.FileSystem对象。本章主要介绍文件的基本概念，以及在VB2005中访问各种类型文件的方法。第9章文件VB2005提供了强大的文件访问与处理功能。它19.1文件的结构和文件的分类文件是指存储在外部物理介质上的数据的集合。它可以永久性地保存数据。计算机操作系统是以文件为单位对数据进行管理的。这一节主要介绍文件的结构和分类。9.1文件的结构和文件的分类文件是指存储在外部物理介质上29.1.1文件的结构为了有效地存取数据，数据必须以某种特定方式存放，这种方式称为文件的结构。基本的文件结构有：字符、字段、记录。1.字符（Character）字符是数据的最小单位，是构成文件的最基本单位。字母、数字、特殊符号都可以看成是一个字符。2.字段（Field）字段也称为域，是指由某种数据类型及若干字符组成的一项数据，通常表示特定含义。3.记录（Record）记录是由一个或多个相关联的字段组成，是计算机处理数据的基本单位。文件就是记录的集合。9.1.1文件的结构为了有效地存取数据，数据必须以某种特39.1.2文件的分类根据不同的分类标准，文件可分为不同的类型。1.根据数据性质分类根据数据的性质，文件可以分为程序文件和数据文件。2.根据数据的存储形式分类根据数据的存储形式，文件可以分为顺序文件和随机文件。3.根据数据的编码分类根据数据的编码，文件可以分为ASCII文件和二进制文件。9.1.2文件的分类根据不同的分类标准，文件可分为不同的49.2访问文件根据不同类型的文件，访问数据的方式也不相同。VB2005提供了三种文件访问模式：顺序访问模式、随机访问模式、二进制访问模式。访问文件，基本操作步骤一般都须经过以下三步完成：1)首先打开文件，如果文件不存在应先创建文件。2)当文件打开后，就可以对文件进行读或写操作了。3)当文件操作完毕，应该关闭文件。9.2访问文件根据不同类型的文件，访问数据的方式也不相同59.2.1使用传统的方式访问文件VB2005支持以前版本传统的文件访问方式。传统的文件访问方式就是通过调用VB系统提供的文件访问函数来访问文件。不同类型的文件，访问时使用的函数也有所差异。常用的文件访问函数访问的文件类型，见表。函数名称函数实现的操作顺序访问模式随机访问模式二进制访问模式FileOpen打开或创建文件允许允许允许FileClose关闭文件允许允许允许9.2.1使用传统的方式访问文件VB2005支持以前版6Input从打开的顺序文件中读取数据允许允许不允许InputString返回打开文件字符值允许不允许不允许LineInput从打开的顺序文件中读取一行数据允许不允许不允许Print、PrintLine将格式化的显示数据写入顺序文件允许不允许不允许Write、WriteLine将数据写入顺序文件允许不允许不允许Input从打开的顺序文件中读取数据允许允许不允许Input79.2.1使用传统的方式访问文件1.访问顺序文件顺序文件访问模式的规则最简单，读取时从第1条记录“顺序”读到最后一条记录，写入时也一样，不可以在数据间随意跳转。将数据写入顺序文件，通常有3个步骤：打开、写入和关闭。从顺序文件读取数据到内存的步骤也有3个步骤：打开、写入和关闭。(1)打开文件打开或创建文件调用FileOpen函数，其语法格式如下：FileOpen(〈文件编号〉,〈文件名〉,〈模式〉[,〈存取方式〉,〈共享方式〉,〈记录长度〉])(2)关闭文件关闭文件调用FileClose函数，其语法格式如下：FileClose([〈文件编号〉[,〈文件名〉,…]])9.2.1使用传统的方式访问文件1.访问顺序文件89.2.1使用传统的方式访问文件【例9-1】打开C盘下的file.txt文件，并显示该文件的文件号、文件名和字符数，然后关闭。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimarr(10)AsSingleDimfileNameAsStringDimfileNumAsIntegerfileName=InputBox$("请输入要打开的文件名：") '输入要打开的文件fileNum=FreeFile() '得到文件号FileOpen(fileNum,fileName,OpenMode.Output) '打开指定文件'显示文件信息MessageBox.Show("打开文件名是"+fileName+"的文件，该文件的文件号是"+Str(fileNum))FileClose(fileNum) '关闭文件EndSub9.2.1使用传统的方式访问文件【例9-1】打开C盘下的99.2.1使用传统的方式访问文件(3)写操作将数据写入磁盘文件调用Print、PrintLine、Write和WriteLine函数。这4个函数的格式相同，其语法格式如下：Print(〈文件编号〉[,Output])PrintLine(〈文件编号〉[,Output])Write(〈文件编号〉[,Output])WriteLine(〈文件编号〉[,Output])9.2.1使用传统的方式访问文件(3)写操作109.2.1使用传统的方式访问文件【例9-2】使用Print、PrintLine函数向file.txt文件中写入数据。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickFileOpen(1,"c:\file.txt",OpenMode.Output) '打开指定文件Print(1,"大家") '写入数据，不包括换行符Print(1,"好！")PrintLine(1) '写入换行符PrintLine(1,"欢迎使用",TAB(),"VB2005！")'写入数据，包括换行符PrintLine(1,"VB2005",TAB(),"是VB的最新版本。")PrintLine(1,SPC(3),"它具有强大的文件操作功能。")FileClose(1) '关闭文件EndSub9.2.1使用传统的方式访问文件【例9-2】使用Prin119.2.1使用传统的方式访问文件【例9-3】使用Write、WriteLine函数向newfile.txt文件中写入数据。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickFileOpen(1,"c:\newfile.txt",OpenMode.Output) '打开指定文件Write(1,"VisualStudio2005") '写入数据，不包括换行符Write(1,"是新一代的开发平台。")WriteLine(1) '写入换行符WriteLine(1,"它",TAB(),"功能强大，")'写入数据，包括换行符WriteLine(1,SPC(3),"使用简单，")WriteLine(1,TAB(10),"是程序开发人员的最好选择。")FileClose(1) '关闭文件EndSub9.2.1使用传统的方式访问文件【例9-3】使用Writ129.2.1使用传统的方式访问文件(4)读操作读取顺序文件的操作常用到Input、LineInput和InputString函数。其语法格式如下：Input(〈文件编号〉,〈变量名〉)LineInput(〈文件编号〉)InputString(〈文件编号〉,〈表达式〉)9.2.1使用传统的方式访问文件(4)读操作139.2.1使用传统的方式访问文件【例9-4】使用Input、LineInput和InputString函数读取file.txt和newfile.txt文件中的数据。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click '调用Input函数事件Dimstr1AsStringFileOpen(1,"c:\newfile.txt",OpenMode.Input) '打开指定文件Input(1,str1) '读取数据赋给变量str1MessageBox.Show(str1) '显示读取数据Input(1,str1)MessageBox.Show(str1)Input(1,str1)MessageBox.Show(str1)Input(1,str1)MessageBox.Show(str1)FileClose(1) '关闭文件EndSub9.2.1使用传统的方式访问文件【例9-4】使用Inpu149.2.1使用传统的方式访问文件PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click '调用LineInput函数事件Dimstr2AsStringFileOpen(1,"c:\newfile.txt",OpenMode.Input) '打开指定文件str2=LineInput(1) '读取数据赋给变量str2MessageBox.Show(str2)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click '调用InputString函数事件Dimstr3AsStringFileOpen(1,"c:\newfile.txt",OpenMode.Input) '打开指定文件str3=InputString(1,10) '读取数据赋给变量str3MessageBox.Show(str3)EndSub9.2.1使用传统的方式访问文件PrivateSub159.2.1使用传统的方式访问文件(5)几个重要的文件函数1)Loc函数。Loc函数返回一个Long数据类型的值，该值指定打开文件中当前的读/写位置。2)LOF函数。LOF函数返回Long数据类型的值，表示用FileOpen函数打开的文件的大小（以字节为单位）。3)Eof函数。Eof函数表示当到达以随机或顺序Input模式打开的文件尾时，返回Boolean数据类型值True。4)FileCopy函数。FileCopy函数将指定的文件复制到指定路径。9.2.1使用传统的方式访问文件(5)几个重要的文件函169.2.1使用传统的方式访问文件【例9-5】使用文件函数，确定file.txt文件当前读写的位置，该文件的大小和长度，并将newfile1.txt文件其拷贝到D盘下，重命名为newfile1.txt。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click '调用Loc函数事件FileOpen(1,"c:\file.txt",OpenMode.Output)MsgBox(Loc(1))FileClose(1)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click '调用LOF函数事件FileOpen(1,"c:\file.txt",OpenMode.Output)MsgBox(LOF(1))FileClose(1)EndSub9.2.1使用传统的方式访问文件【例9-5】使用文件函数17PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click '调用FileLen函数事件Dimstr1AsStringstr1=FileLen("c:\newfile.txt")MsgBox(str1)EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click '调用FileCopy函数事件FileCopy("c:\newfile.txt","d:\newfile1.txt")EndSubPrivateSubButton3_Click(ByVa189.2.1使用传统的方式访问文件2.访问随机文件在随机访问模式中，文件的存取是按记录进行操作的，每个记录都有记录号并且长度全部相同。在程序的变量说明部分采用用户自定义类型说明语句Structure…EndStructure，首先定义记录的结构类型，然后再将变量说明成该类型，这样就为这个变量申请了内存空间，用于存放随机文件中的记录。(1)打开和关闭文件打开随机文件仍然调用FileOpen函数，与打开顺序文件不同的是使用Random模式，并且需要指明每条记录的长度RecordLength值，即记录中各字段长度之和，也与程序首部定义的结构类型变量的长度相同。关闭随机文件仍然调用FileClose函数。9.2.1使用传统的方式访问文件2.访问随机文件199.2.1使用传统的方式访问文件(2)读写操作打开随机文件后，就可以进行读写操作。随机文件可以同时进行写入和读取操作。随机文件的写操作调用FilePut函数，其语法格式如下：FilePut(〈文件编号〉,〈变量名〉,〈记录号〉[,〈ArrayIsDynamic〉][,〈StringIsFixedLength〉])

9.2.1使用传统的方式访问文件(2)读写操作209.2.1使用传统的方式访问文件【例9-6】用随机访问模式创建一个职工数据文件（employee.dat），并输出文件内容。Structureem '用户自定义记录类型DimnumAsStringDimnameAsStringDimsexAsStringEndStructurePrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.Click '输入数据事件Dimemp()AsemDimi,nAsIntegerFileOpen(1,"c:\employee.dat",OpenMode.Random)n=InputBox("请输入职工数：") '输入记录个数ReDimemp(n)Fori=1Ton '依次输入每个记录数据emp(i).num=InputBox$("请输入编号：")emp(i).name=InputBox$("请输入姓名：")emp(i).sex=InputBox$("请输入性别：")FilePut(1,emp(i),i+1) '调用FilePut函数输入数据NextFileClose()EndSub9.2.1使用传统的方式访问文件【例9-6】用随机访问模219.2.1使用传统的方式访问文件PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton2.Click '输出数据事件DimempAsemDimi,nAsIntegerDimstrAsStringFileOpen(1,"c:\employee.dat",OpenMode.Random)str="编号姓名性别"&Chr(13)i=1WhileNotEOF(1) '依次读取每个记录数据FileGet(1,emp) '调用FileGet函数输出数据str=str&emp.num&""&&""&emp.sex&Chr(13)图9-12随机文件输出i=i+1EndWhileMessageBox.Show(str) '在消息框中输出数据FileClose()EndSub9.2.1使用传统的方式访问文件PrivateSub229.2.1使用传统的方式访问文件(3)常用对话框控件一些应用程序常常需要打开和保存文件，以及选择字体、颜色、打印等操作，这时需要应用程序提供相应的对话框，进行操作。VB2005提供的对话框控件有：打开文件对话框控件（OpenFileDialog）、保存对话框控件（SaveFileDialog）、字体对话框控件（FontDialog）、颜色对话框控件（ColorDialog）、文件夹对话框（FolderBrowserDialog）等，在工具箱上显示如图所示。9.2.1使用传统的方式访问文件(3)常用对话框控件239.2.3使用System.IO命名空间访问文件1.流的概念及其类型.NETFramework使用流来支持读取和写入文件。可以将流视为一组连续的一维数据，包含开头和结尾，并且其中的游标指示了流中的当前位置。文件和流是有区别的。文件通常表示位于磁盘上的文件和目录，具有文件名和路径。而流则提供读写后端存储的方法，后端存储包括磁盘、网络、内存和磁带等。流是字节序列的抽象概念，是一个在Unix里面经常使用的对象。可以把流当作一个通道，程序的数据可以沿着这个通道“流”到各种数据存储机构（例如文件、字符串、数组或者其他形式的流等）。一般来说，流要比文件的范围要稍广一些，除文件流之外也存在多种流，如网络流、内存流和缓冲流等。9.2.3使用System.IO命名空间访问文件1.流249.2.3使用System.IO命名空间访问文件2.流的操作流的操作一般涉及三个基本方法：1)可以从流读取。读取是从流到数据结构（如字节数组）的数据传输。2)可以向流写入。写入是从数据源到流的数据传输。3)流可以支持查找。查找是对流内的当前位置进行的查询和修改所有与I/O相关的类都位于System.IO命名空间。System.IO命名空间中提供了以下功能：1)创建、删除和操作目录及文件。2)对目录和文件进行监视。3)从流中读写数据。4)随机访问文件。5)使用多种枚举常量设置文件和目录的操作。9.2.3使用System.IO命名空间访问文件2.流259.2.3使用System.IO命名空间访问文件【例9-8】使用System.IO命名空间，向C盘下名为testfile.txt文件写入数据，并读取其文本信息，显示到输出窗口中。ImportsSystem '引用System命名空间ImportsSystem.IOClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesMyBase.LoadDimswAsStreamWriter=NewStreamWriter("c:\TestFile.txt") '声明一个StreamWriter对象swsw.Write("北京奥运会将在") '不换行写入数据sw.WriteLine("2008年月日举行。") '换行写入数据sw.WriteLine("-------------------")sw.Write("今天的日期是：")sw.WriteLine(DateTime.Now)sw.Close() '关闭对象swDimsrAsStreamReader=NewStreamReader("c:\TestFile.txt") '声明一个StreamReader对象srDimlineAsStringDoline=sr.ReadLine() '读取一行文本Console.WriteLine(line) '输出到输出窗口LoopUntillineIsNothing '循环读取每行文本sr.Close() '关闭对象srEndSubEndClass9.2.3使用System.IO命名空间访问文件【例9-269.2.4使用其它方法处理字符访问文件，其实就是访问文件中的字符串数据。程序员可以读取、写入字符串，通常用“&”和“+”来处理字符串连接。也可以使用String类的方法来处理字符串。String类常用的方法见表。方法名称功能说明示例示例结果Compare比较两个指定的字符串。String.Compare("abc","abc")String.Compare("abc","abcd")0-1Concat创建连接字符串。String.Concat("中华","人民共和国")"中华人民共和国"Copy复制字符串。String.Copy("你好")复制到新字符串（变量）中Equals判断两个字符串是否相同String.Compare("abc","abcd")String.Compare("abc","abc")FalseTrueIsNullOrEmpty判断字符串是否为空String.IsNullOrEmpty("")String.IsNullOrEmpty("ab")TrueFalse9.2.4使用其它方法处理字符访问文件，其实就是访问文件279.2.4使用其它方法处理字符程序员还可以使用.NETFramework提供的方法处理String类中的字符串，功能类似于字符串函数。.NETFramework常用的处理字符串的方法见表。方法名称功能说明示例示例结果ToUpper将字符串中的字母变成大写Dimstr1AsStringstr1="abc"Console.WriteLine(str1.ToUpper)"ABC"ToLower将字符串中的字母变成小写Dimstr2AsStringStr2="ABC"Console.WriteLine(str2.ToUpper)"abc"Length确定字符串中的字符数Dimstr3AsStringstr3="中国"Console.WriteLine(str3.Length)2Substring从指定位置截取字符DimstrAsStringstr="北京奥运会"Console.WriteLine(str.Substring(2,3))"奥运会"Insert插入新字符Console.WriteLine(str.Insert(3,"2008"))"北京2008奥运会"9.2.4使用其它方法处理字符程序员还可以使用.NET289.2.4使用其它方法处理字符【例9-9】向C盘下file.txt文本文件中依次写入以下文本：Unicode的前12个码位（0到127）对应于标准美国键盘上的字母和符号。显示输出，并可以指定截取字符、添加字符和统计字数。PrivateSubInsert_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.Click'输入文本事件FileOpen(1,"c:\file.txt",OpenMode.Output)'打开指定文件PrintLine(1,RichTextBox1.Text)'写入文本FileClose(1)EndSubPrivateSubInput_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton2.Click'输出文本事件Dimstr1AsStringFileOpen(1,"c:\file.txt",OpenMode.Input)'打开指定文件Input(1,str1)RichTextBox2.Text=str1FileClose(1)EndSub9.2.4使用其它方法处理字符【例9-9】向C盘下fil299.2.4使用其它方法处理字符PrivateSubCountCharToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByVale_AsSystem.EventArgs)HandlesCountCharToolStripMenuItem.ClickDimchAsIntegerMsgBox(RichTextBox2.Text.Length)EndSubPrivateSubSubCharToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByVale_AsSystem.EventArgs)HandlesSubCharToolStripMenuItem.ClickDimm,nAsIntegerm=InputBox("请输入截取起始位置：")n=InputBox("请输入截取字符数：")MsgBox(RichTextBox2.Text.Substring(m,n))EndSubPrivateSubInsertCharToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByVale_AsSystem.EventArgs)HandlesInsertCharToolStripMenuItem.ClickDimiAsIntegerDimstrAsStringi=InputBox("请输入添加字符位置：")Str=InputBox("请输入添加字符：")RichTextBox2.Text=RichTextBox2.Text.Insert(i,str)EndSub9.2.4使用其它方法处理字符PrivateSubC309.3使用My.Computer.FileSystem对象访问文件在VB2005中，引入了一个全新的概念——My.Computer.FileSystem对象，它提供了可简化文件I/O的访问方法和属性。这一节主要介绍My.Computer.FileSystem对象访问文件的方法。9.3使用My.Computer.FileSystem对319.3.1My.Computer.FileSystem对象简介My命名空间是VB2005中的一项新功能，它提供了简单而直观的方法来访问大量.NETFramework类，从而使VB程序员能够与计算机、应用程序、设置、资源等进行交互。My提供了几个完全不同的类：My.Application、My.Computer、My.Forms、My.Resources、My.Settings、My.User和My.WebServices。其中My.Computer对象提供用于处理计算机组件（如音频、时钟、键盘、文件系统等）的属性。My.Computer对象可以完成许多任务，例如确定远程计算机是否可用、上传/下载文件、从剪贴板中读取数据、将音频保存到剪贴板等。My.Computer对象提供了许多属性，例如Audio、Clipboard、FileSystem、Keyboard、Network等。其中My.Computer.FileSystem对象提供用于处理驱动器、文件和目录的属性及方法。VB2005通过通过使用My.Computer.FileSystem对象可以非常方便快捷的访问文件，包括读取数据、写入数据、复制等等操作。9.3.1My.Computer.FileSystem对329.3.2My.Computer.FileSystem对象常用的属性和方法My.Computer.FileSystem对象提供了许多属性。见表。My.Computer.FileSystem对象还提供了许多方法。见表。属性名说明CurrentDirectory获取当前目录Drives获取有关驱动器的信息SpecialDirectories用于访问特殊的目录方法名方法行为CombinePath将正确设置了格式的组合路径作为字符串返回CopyDirectory复制目录CopyFile复制文件CreateDirectory创建目录DeleteDirectory删除目录DeleteFile删除文件DirectoryExists返回一个指示目录是否存在的布尔值RenameDirectory重命名目录RenameFile重命名文件WriteAllBytes创建并写入到二进制文件数据WriteAllText创建并写入到文本文件数据9.3.2My.Computer.FileSystem对339.3.3My.Computer.FileSystem对象的使用程序员可以使用My.Computer.FileSystem对象的属性和方法访问文件和目录。【例9-10】使用My.Computer.FileSystem对象，在C盘下新建一个名为myfile的文件夹，然后在该文件夹下新建一个名为file.txt的文本文件，并向该文件输入数据，最后输出该文件数据。编写事件代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.Click '创建文件夹事件My.Computer.FileSystem.CreateDirectory("C:\myfile")EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton2.Click '创建文件并输入数据事件My.Computer.FileSystem.WriteAllText("C:\myfile\file1.txt","ABCDEFG",False)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton3.Click '输出文件数据事件DimfileContentsAsStringfileContents=My.Computer.FileSystem.ReadAllText("C:\myfile\file1.txt")MsgBox(fileContents)EndSub9.3.3My.Computer.FileSystem对349.3.3My.Computer.FileSystem对象的使用【例9-11】创建一个类似于Word的文本编辑器，该文本编辑器包括下拉菜单、快捷菜单和工具栏。可以新建、打开、关闭文档，还可以编辑文档，包括复制、粘贴操作。在Form1中输入代码：'声明全局变量PublicfileNameAsStringPublicfileContents,filetextAsStringSubCreatefile() '新建文档过程Form2.MdiParent=MeForm2.Text="新文档"Form2.Show()Form2.RichTextBox1.ContextMenuStrip=Me.ContextMenuStrip1filetext=Form2.RichTextBox1.TextEndSub9.3.3My.Computer.FileSystem对359.3.3My.Computer.FileSystem对象的使用SubOpenfile() '打开文档过程OpenFileDialog1.DefaultExt="TXT" '打开对话框默认文件类型OpenFileDialog1.Filter="文本文件(*.TXT)|*.TXT" '设定文件类型OpenFileDialog1.ShowDialog() '调用打开文档对话框IfOpenFileDialog1.FileName<>""ThenfileName=OpenFileDialog1.FileName '读取文件名DimfileContentsAsStringfileContents=My.Computer.FileSystem.ReadAllText(fileName)'使用My.Computer.FileSystem对象的ReadAllText属性从文件中读取文本Form2.RichTextBox1.Text=fileContentsForm2.MdiParent=MeForm2.Text=fileNameForm2.Show()ElseMsgBox("没有选择要打开的文件名！","提示")fileName=""EndIfEndSub9.3.3My.Computer.FileSystem对369.3.3My.Computer.FileSystem对象的使用SubSavefile(ByValtextAsString) '保存过程SaveFileDialog1.DefaultExt="TXT" '保存对话框默认文件类型SaveFileDialog1.Filter="文本文件(*.TXT)|*.TXT" '设定文件类型SaveFileDialog1.ShowDialog() '调用保存对话框IfSaveFileDialog1.FileName<>""ThenfileName=SaveFileDialog1.FileName '读取文件名My.Computer.FileSystem.WriteAllText(fileName,Text,True)'使用My.Computer.FileSystem对象的WriteAllText属性将文本写入文件ElseMsgBox("没有输入要保存的文件名！","提示")fileName=""EndIfEndSubSubCopy()