怎样创建一个word或txt问题？

VB中，怎样在指定的目录下创建一个word或txt文件，并读写文字？我是新手，最好详细一点。

热心网友

Sub CreateWordDoc(ByVal FileName As String) Dim objWordApp As Object Set objWordApp = CreateObject("Word.application") Call objWordApp.Documents.Add Call objWordApp.Documents.Item(1).SaveAs(FileName ) Call objWordApp.Quit Set objWordApp = NothingEnd Sub创建TXT参照solidco2 的答案

热心网友

如果要在指定目录例如C:\temp下创建ex1.TXT文件，方法如下:open "c:\temp\ex1.txt" for output as #1该命令的含义是以向文件输出的方式打开文件,如果该文件不存在则创建该文件，这种方式创建的文件是顺序的，只能向它输出内容，例如：print #1,"abc"write #1,"bcd"如果要读出其中的内容：应该用如下命令：open "c:\temp\ex1.txt" for input as #1input #1,a '把读出的内容赋给变量ainputline #1,a '读出一行的内容如果要同时读写要用随机文件的方式打开open "c:\temp\ex1.txt" for random as #1文件操作完成之后用close #文件号命令关闭

热心网友

先告诉你Txt文件吧sub createTxt(txtName as string)open txtname for output as #1print #1,"Hello!"close #1end subsub readTxt(txtName as string)dim strTmp as string,strRet as stringopen txtname for input as #1do until eof(1)input #1,strTmpstrret=strret+strtmploopclose #1msgbox strretend sub在过程中，CreateTxt "文件名"就可以写入，readtxt "文件名" 就可以输出

热心网友

创建Word的doc文件和创建txt文件是完全不同的。创建txt很简单，就使用VB中的open、close、write、print、read等命令就可以读写了。doc文件则复杂一些，首先要引用Word的动态链接库，然后调用库函数进行文件的打开和读写。