VB中，怎樣在指定的目錄下創(chuàng)建一個(gè)word或txt文件，并讀寫文字？我是新手，最好詳細(xì)一點(diǎn)。

熱心網(wǎng)友

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創(chuàng)建TXT參照solidco2 的答案

熱心網(wǎng)友

如果要在指定目錄例如C:\temp下創(chuàng)建ex1.TXT文件，方法如下:open "c:\temp\ex1.txt" for output as #1該命令的含義是以向文件輸出的方式打開文件,如果該文件不存在則創(chuàng)建該文件，這種方式創(chuàng)建的文件是順序的，只能向它輸出內(nèi)容，例如：print #1,"abc"write #1,"bcd"如果要讀出其中的內(nèi)容：應(yīng)該用如下命令：open "c:\temp\ex1.txt" for input as #1input #1,a '把讀出的內(nèi)容賦給變量ainputline #1,a '讀出一行的內(nèi)容如果要同時(shí)讀寫要用隨機(jī)文件的方式打開open "c:\temp\ex1.txt" for random as #1文件操作完成之后用close #文件號(hào)命令關(guān)閉

熱心網(wǎng)友

先告訴你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在過(guò)程中，CreateTxt "文件名"就可以寫入，readtxt "文件名" 就可以輸出

熱心網(wǎng)友

創(chuàng)建Word的doc文件和創(chuàng)建txt文件是完全不同的。創(chuàng)建txt很簡(jiǎn)單，就使用VB中的open、close、write、print、read等命令就可以讀寫了。doc文件則復(fù)雜一些，首先要引用Word的動(dòng)態(tài)鏈接庫(kù)，然后調(diào)用庫(kù)函數(shù)進(jìn)行文件的打開和讀寫。