vb。net創(chuàng)建文件夾,vbnet打開文件夾
VB.net怎樣保存文件
保存文件的步驟為：
成都創(chuàng)新互聯(lián)是專業(yè)的榆次網(wǎng)站建設(shè)公司，榆次接單;提供成都網(wǎng)站制作、網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行榆次網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
關(guān)閉流，特別是寫入流
關(guān)閉并保存文件
示例代碼如下：
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開文件。如果文件不存在則創(chuàng)建新的文件
Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_
FileMode.OpenOrCreate,?_
FileAccess.Write)
'在文件末尾添加一行?
Dim?tw?As?New?StreamWriter(myFile)
myFile.Seek(0,?SeekOrigin.End)
tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub
vb.net創(chuàng)建一個(gè)txt文本，在debug文件夾里
設(shè)計(jì)一個(gè)窗口，添加一個(gè)名為textBox1的System.Windows.Forms.TextBox，
添加一個(gè)名為button1的System.Windows.Forms.Button。
為button1的單擊事件添加如下處理函數(shù)：
Sub Button1Click(sender As Object, e As EventArgs)
'f是你的文本文件的文件名
Const f As String="t.txt"
Dim sw As System.IO.StreamWriter=Nothing
Try
If Not System.IO.File.Exists(f) Then
sw=System.IO.File.CreateText(f)
Else
sw=New System.IO.StreamWriter(f,True)
End If
sw.WriteLine(textBox1.Text)
Finally
If sw IsNot Nothing Then
sw.close()
End If
End Try
End Sub
vb.net 磁盤文件列表，界面如圖，在.net下如何實(shí)現(xiàn)？
預(yù)先準(zhǔn)備三個(gè)圖標(biāo)文件，用于樹型控件中顯示磁盤符號(hào)和文件夾的圖像之用。
1、窗體上添加控件如下：
組合框控件 ComboBox1，樹型控件 TreeView1，列表框控件 ListBox1，圖像列表控件 ImageList1。
選中TreeView1，設(shè)置其ImageList屬性為ImageList1。
2、設(shè)置屬性
選中圖像列表控件 ImageList1，在屬性窗口里，選中屬性Images，單擊三個(gè)小點(diǎn)按鈕，出現(xiàn)圖像集合編輯器窗口，單擊[添加按鈕]，一一把準(zhǔn)備好的圖標(biāo)文件進(jìn)行添加，注意先后次序，如果不符合要求可以通過上下移動(dòng)按鈕重新改變次序。完成后單擊[確定]。
運(yùn)行圖如下：
完整代碼如下：
Imports?System.IO
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
'添加系統(tǒng)所有磁盤目錄符號(hào)
For?Each?MyDrive?As?String?In?Environment.GetLogicalDrives()
ComboBox1.Items.Add(MyDrive)
Next
'顯示第一個(gè)磁盤符號(hào)
ComboBox1.Text?=?ComboBox1.Items(0)
End?Sub
'遞歸過程添加目錄樹
Public?Sub?AddDirectory(ByVal?strFatherPath?As?String,?ByVal?strPath?As?String,?ByVal?nodeFather?As?TreeNode)
Dim?i?As?Integer
Dim?Mynode?As?New?TreeNode
'先添加本目錄
Mynode.Text?=?Strings.Replace(strPath,?strFatherPath??"\",?"",?,?1)
'為節(jié)點(diǎn)指定未被選中時(shí)顯示的圖標(biāo)
Mynode.ImageIndex?=?1
'為節(jié)點(diǎn)指定被選中時(shí)顯示的圖標(biāo)
Mynode.SelectedImageIndex?=?2
nodeFather.Nodes.Add(Mynode)
Application.DoEvents()
Try
Dim?str()?As?String?=?Directory.GetDirectories(strPath)
'遞歸遍歷該目錄的子文件夾
For?i?=?0?To?str.GetUpperBound(0)
AddDirectory(strPath,?str(i),?Mynode)
Next
Catch?ex?As?Exception
Debug.WriteLine(ex.Message)
End?Try
Mynode?=?Nothing
End?Sub
'根據(jù)給出的盤符添加目錄樹
Private?Sub?AddRootDirectory(ByVal?DiscSymbol?As?String)
Dim?Nynode?As?New?TreeNode
'先把磁盤盤符添加到樹中
TreeView1.Nodes.Clear()
Nynode.ImageIndex?=?0
Nynode.Text?=?DiscSymbol
Nynode.SelectedImageIndex?=?-1
TreeView1.Nodes.Add(Nynode)
Dim?i?As?Integer
'獲取磁盤根目錄下的文件夾
Dim?str()?As?String?=?Directory.GetDirectories(DiscSymbol??"\")
For?i?=?0?To?str.GetUpperBound(0)
'調(diào)用遞歸過程遍歷該文件夾里的所有子文件夾，并添加到樹型控件
AddDirectory(DiscSymbol,?str(i),?Nynode)
Next
Nynode?=?Nothing
End?Sub
Private?Sub?ComboBox1_SelectedIndexChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?ComboBox1.SelectedIndexChanged
'根據(jù)磁盤符號(hào)的變更，顯示根目錄里的文件
ListBox1.Items.Clear()
For?Each?MyFile?As?String?In?System.IO.Directory.GetFiles(ComboBox1.Text)
ListBox1.Items.Add(MyFile)
Next
'根據(jù)磁盤符號(hào)的變更，重新顯示目錄樹
Dim?DiscSymbol?As?String
DiscSymbol?=?Microsoft.VisualBasic.Left(ComboBox1.Text,?Len(ComboBox1.Text)?-?1)
Call?AddRootDirectory(DiscSymbol)
End?Sub
'遞歸過程根據(jù)子目錄尋找上級(jí)目錄名--從而構(gòu)成完整的目錄路徑
Private?Sub?AllPath(ByVal?ThisNode?As?TreeNode,?ByRef?MyPathName?As?String)
If?ThisNode.Level??1?Then
'該節(jié)點(diǎn)層數(shù)大于1，其父節(jié)點(diǎn)不是磁盤根目錄
MyPathName?=?ThisNode.Parent.Text??"\"??MyPathName
Dim?MyNode?As?TreeNode?=?ThisNode.Parent
Call?AllPath(MyNode,?MyPathName)
Else
'該節(jié)點(diǎn)層數(shù)等于1，其父節(jié)點(diǎn)就是磁盤根目錄
MyPathName?=?ComboBox1.Text??MyPathName
End?If
End?Sub
Private?Sub?TreeView1_AfterSelect(ByVal?sender?As?System.Object,?ByVal?e?As?System.Windows.Forms.TreeViewEventArgs)?Handles?TreeView1.AfterSelect
'為了搜索選中的節(jié)點(diǎn)對(duì)應(yīng)目錄的文件，需要組成全路徑
Dim?MyAllPathName?As?String?=?TreeView1.SelectedNode.Text
Dim?MyNode?As?TreeNode?=?TreeView1.SelectedNode
If?TreeView1.SelectedNode.Level?=?0?Then
'如果選中的是根節(jié)點(diǎn)
MyAllPathName?=?ComboBox1.Text
Else
'如果選中的是非根節(jié)點(diǎn)，調(diào)用遞歸過程組成全路徑
Call?AllPath(MyNode,?MyAllPathName)
MyAllPathName?=?MyAllPathName??"\"
End?If
'根據(jù)路徑，搜索文件名并顯示
ListBox1.Items.Clear()
For?Each?MyFile?As?String?In?System.IO.Directory.GetFiles(MyAllPathName)
ListBox1.Items.Add(MyFile)
Next
End?Sub
End?Class
vb.net 怎么判斷一個(gè)文件夾或是文本文件的存在?如果沒有則創(chuàng)建……求代碼!不要VB6.0的
判斷和創(chuàng)建可以放在一起。
創(chuàng)建空文件夾：
Directory.CreateDirectory(文件夾完整路徑)
'系統(tǒng)會(huì)自動(dòng)判斷文件夾是否存在，不存在就創(chuàng)建判斷并創(chuàng)建空文件：
Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)
'你可以用這個(gè)FileStream做其它事情
End Using
vb.net創(chuàng)建文件夾怎么賦權(quán)限
舉個(gè)例子：
先引入命名空間：
Imports?System.IO
Imports?System.Security.AccessControl
代碼：
Dim?sec?As?DirectorySecurity?=?New?DirectorySecurity
Dim?rule?As?FileSystemAccessRule?=?New?FileSystemAccessRule("Administrator",?FileSystemRights.Delete,?AccessControlType.Allow)
sec.AddAccessRule(rule)
Directory.CreateDirectory("C:\test",?sec)
這段代碼就是以 Administrator 帳戶 在 C:\ 創(chuàng)建 test 文件夾。
如何應(yīng)用VB程序編寫
首先安裝VB，你可以上網(wǎng)下載VB6或者VB2008之類的來安裝，不過VB6和VB200X的用法有所不同，后者是VB.net。
安裝完成后，雙擊開始中的快捷方式執(zhí)行，VB6直接選擇標(biāo)準(zhǔn)EXE，然后點(diǎn)擊創(chuàng)建。VB.net需要選擇創(chuàng)建新項(xiàng)目并指定文件夾，新項(xiàng)目中選擇應(yīng)用程序。
編程方法是首先在控件庫中拖拽需要的控件，如按鈕，輸入框，選擇框之類的圖形到程序設(shè)計(jì)界面上，然后在右邊屬性欄中設(shè)置他們的屬性，如顏色，大小，顯示方式之類的。
之后雙擊控件對(duì)控件進(jìn)行編程，語法就是VB語法，很好學(xué)，簡(jiǎn)單易懂。
在程序編寫的任意時(shí)刻都可以點(diǎn)擊工具欄的三角箭頭（播放）來運(yùn)行程序測(cè)試，若沒有問題，則點(diǎn)文件，生成EXE產(chǎn)生EXE文件即可。
當(dāng)前標(biāo)題：vb。net創(chuàng)建文件夾,vbnet打開文件夾
轉(zhuǎn)載來源：http://m.jiaotiyi.com/article/dssgpgh.html