vb.net創(chuàng)建文件操作 vbs創(chuàng)建文件

vb.net 創(chuàng)建文件夾和刪除文件夾

vb.net使用控件folderbrowserdialog1,在程序中:

成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計與策劃設(shè)計,烏恰網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:烏恰等地區(qū)。烏恰做網(wǎng)站價格咨詢:18980820575

'設(shè)置對話框中在樹視圖控件上顯示的說明文本

me.folderbrowserdialog1.description

=

"請選擇輸出報表所在路徑:"

'設(shè)置從其開始瀏覽的根文件夾

me.folderbrowserdialog1.selectedpath

=

"c:\"

if

me.folderbrowserdialog1.showdialog()

=

dialogresult.ok

then

'取得全路徑（包含文件名）

reportpath1

=

system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)

'設(shè)定text顯示文件名

txtreport1.text

=

reportpath1

setreportlist()

end

if

在setreportlist()中針對你所需要的文件進(jìn)行操作等

vb.net 怎么生成csv文件與怎么讀取csv文件

CSV文件，在EXCEL里可以直接生成與讀取。

可以通過VB.net去操作，打開EXCEL文件，去完成上述操作，而更為簡單的辦法是直接當(dāng)做操作文本文件（TXT文件）就可以，因?yàn)橛糜浭卤拒浖蜷_CSV文可以發(fā)現(xiàn)，其實(shí)際上是一個行內(nèi)數(shù)據(jù)之間用逗號分隔的格式文件。

下面給出例子：

在窗體上添加兩個多行文本框，兩個按鈕，兩個文本框一個用來輸入生成CSV文件的數(shù)據(jù)，另一個用來讀取顯示CSV文件的數(shù)據(jù)；兩個按鈕，一個完成生成CSV文件的代碼，另一個完成讀取CSV文件的代碼；具體代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'創(chuàng)建(寫入)一個文本文件

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

注意：在輸入文本框里，同一行數(shù)據(jù)的數(shù)據(jù)之間用逗號（西文逗號）分隔。

VB.NET 創(chuàng)建文件夾

用Directory.CreateDirectory即可創(chuàng)建文件夾：

'?建立目錄

If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在

Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在，創(chuàng)建文件建夾

End?If

你的例子是因?yàn)樯倭艘粋€"\"引起的，正確的如下：

Dim?fsotest?As?New?FileSystemObject

If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then

fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個\

End?If

MsgBox("創(chuàng)建成功")

當(dāng)前題目：vb.net創(chuàng)建文件操作 vbs創(chuàng)建文件
標(biāo)題URL：http://bm7419.com/article22/dohpsjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、域名注冊、Google、自適應(yīng)網(wǎng)站、軟件開發(fā)、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)

成都網(wǎng)站建設(shè)