function writetxt (filename as string,currenttxt as string) filename ="c:\" filename ".txt" 'filename要生成的文件名 currenttxt當(dāng)前寫(xiě)入的文件內(nèi)容. 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("文章標(biāo)題").value ,rs.filds("文章").value rs.movenext loop '關(guān)閉記錄集等 end sub

創(chuàng)新互聯(lián)主營(yíng)富陽(yáng)網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,重慶APP開(kāi)發(fā),富陽(yáng)h5重慶小程序開(kāi)發(fā)搭建,富陽(yáng)網(wǎng)站營(yíng)銷推廣歡迎富陽(yáng)等地區(qū)企業(yè)咨詢
舉個(gè)例子:
先引入命名空間:
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:\
創(chuàng)建
test
文件夾。
CSV文件,在EXCEL里可以直接生成與讀取。
可以通過(guò)VB.net去操作,打開(kāi)EXCEL文件,去完成上述操作,而更為簡(jiǎn)單的辦法是直接當(dāng)做操作文本文件(TXT文件)就可以,因?yàn)橛糜浭卤拒浖蜷_(kāi)CSV文可以發(fā)現(xiàn),其實(shí)際上是一個(gè)行內(nèi)數(shù)據(jù)之間用逗號(hào)分隔的格式文件。
下面給出例子:
在窗體上添加兩個(gè)多行文本框,兩個(gè)按鈕,兩個(gè)文本框一個(gè)用來(lái)輸入生成CSV文件的數(shù)據(jù),另一個(gè)用來(lái)讀取顯示CSV文件的數(shù)據(jù);兩個(gè)按鈕,一個(gè)完成生成CSV文件的代碼,另一個(gè)完成讀取CSV文件的代碼;具體代碼如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'創(chuàng)建(寫(xiě)入)一個(gè)文本文件
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
'讀取一個(gè)文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
注意:在輸入文本框里,同一行數(shù)據(jù)的數(shù)據(jù)之間用逗號(hào)(西文逗號(hào))分隔。
vb.net生成的exe文件要在沒(méi)有安裝vb的電腦上運(yùn)行是可以的,但有條件:
1.
要安裝
.net
framework2.0或以上版本,然后就可以直接運(yùn)行exe
2.
利用vb打包項(xiàng)目,生成可安裝的exe文件或綠色直接可執(zhí)行的exe文件
3.
不喜歡vb6可以刪除之,但必須再安裝同類型的.net的ide產(chǎn)品后也可以
1、簡(jiǎn)單的程序,只要在"文件"菜單下的"生成",生成的EXE文件和你要用的數(shù)據(jù)庫(kù)和其他外部文件一起移植到其他電腦上,就可以了。
2、復(fù)雜的程序,建議用"打包",打包完以后,在其他電腦上安裝以后再用.
打包方法-→打開(kāi)菜單欄“外接程序”→“外接程序管理器”→“打包和展開(kāi)向?qū)А薄凹虞d/卸載”→確定,在“外接程序管理器”里找到“打包和展開(kāi)向?qū)А保蜷_(kāi)“打包和展開(kāi)向?qū)А保僖徊讲竭M(jìn)行打包就可以生成一個(gè)安裝程序。
vb.net生成的exe文件要在沒(méi)有安裝vb的電腦上運(yùn)行是可以的,但有條件:
1.
要安裝
.net
framework2.0或以上版本,然后就可以直接運(yùn)行exe
2.
利用vb打包項(xiàng)目,生成可安裝的exe文件或綠色直接可執(zhí)行的exe文件
3.
不喜歡vb6可以刪除之,但必須再安裝同類型的.net的ide產(chǎn)品后也可以
名稱欄目:vb.net生成文件 vbnet生成dll文件
當(dāng)前路徑:http://chinadenli.net/article16/hgphgg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、網(wǎng)站策劃、微信小程序、Google、網(wǎng)站收錄、軟件開(kāi)發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)