function writetxt (filename as string,currenttxt as string) filename ="c:\" filename ".txt" 'filename要生成的文件名 currenttxt当前写入的文件内容. open filename for output As #1 print #1, currenttxt close #1 end functiong sub xxx ... '定义rs为recorder,并生成记录集, ... rs.movefirst while not rs.eof call writetxt rs.filds("文章标题").value ,rs.filds("文章").value rs.movenext loop '关闭记录集等 end sub
创新互联主营富阳网站建设的网络公司,主营网站建设方案,重庆APP开发,富阳h5重庆小程序开发搭建,富阳网站营销推广欢迎富阳等地区企业咨询
举个例子：
先引入命名空间：
Imports
System.IOImports
System.Security.AccessControl
代码：
Dim
sec
As
DirectorySecurity
=
New
DirectorySecurityDim
rule
As
FileSystemAccessRule
=
New
FileSystemAccessRule("Administrator",
FileSystemRights.Delete,
AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",
sec)
这段代码就是以
Administrator
帐户
在
C:\
创建
test
文件夹。
CSV文件，在EXCEL里可以直接生成与读取。
可以通过VB.net去操作，打开EXCEL文件，去完成上述操作，而更为简单的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件。
下面给出例子：
在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码；具体代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
注意：在输入文本框里，同一行数据的数据之间用逗号（西文逗号）分隔。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的，但有条件：
1.
要安装
.net
framework2.0或以上版本，然后就可以直接运行exe
2.
利用vb打包项目，生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之，但必须再安装同类型的.net的ide产品后也可以
1、简单的程序,只要在"文件"菜单下的"生成",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了。
2、复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.
打包方法-→打开菜单栏“外接程序”→“外接程序管理器”→“打包和展开向导”→“加载/卸载”→确定，在“外接程序管理器”里找到“打包和展开向导”，打开“打包和展开向导”，再一步步进行打包就可以生成一个安装程序。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的，但有条件：
1.
要安装
.net
framework2.0或以上版本，然后就可以直接运行exe
2.
利用vb打包项目，生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之，但必须再安装同类型的.net的ide产品后也可以