給你說(shuō)一個(gè)非常實(shí)用并且簡(jiǎn)單的方法:
鶴崗網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,鶴崗網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為鶴崗成百上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢(qián),請(qǐng)找那個(gè)售后服務(wù)好的鶴崗做網(wǎng)站的公司定做!
OPEN "C:\123" FOR OUTPUT AS #1
CLOSE#1
open語(yǔ)句有三種方法,input、output、append,其中用input方法時(shí),如果文件不存在,責(zé)會(huì)出錯(cuò),output時(shí),如果文件不存在,責(zé)創(chuàng)建一個(gè)文件,希望對(duì)你有用
操作系統(tǒng)要實(shí)現(xiàn)文件夾不能直接刪除的格式是: 文件名..\
操作系統(tǒng)里面,創(chuàng)建一個(gè)文件夾后文件夾并非空的,里面還有 . 和 .. 這兩個(gè)名字的隱藏文件夾來(lái)作為是否文件夾的標(biāo)識(shí),所以CreateDirectory ("d:\\test\\test2.\\") 是創(chuàng)建了test文件夾和test.文件
夾,所以你要?jiǎng)?chuàng)建不能直接刪除的文件夾,可以改成CreateDirectory ("d:\\test\\test2..\\")
用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)樯倭艘粋€(gè)"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個(gè)\
End?If
MsgBox("創(chuàng)建成功")
vb.net使用控件FolderBrowserDialog1,在程序中:
'設(shè)置對(duì)話(huà)框中在樹(shù)視圖控件上顯示的說(shuō)明文本
Me.FolderBrowserDialog1.Description
=
"請(qǐng)選擇輸出報(bào)表所在路徑:"
'設(shè)置從其開(kāi)始瀏覽的根文件夾
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()中針對(duì)你所需要的文件進(jìn)行操作等
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目錄以便用于后續(xù)的刪除示范。
If Not Directory.Exists("D:\網(wǎng)易") Then
Directory.CreateDirectory(" D:\網(wǎng)易 \Test1")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test2")
Directory.CreateDirectory(" D:\網(wǎng)易 \Test3")
End If
' 刪除子目錄 Test1。
Directory.Delete(" D:\網(wǎng)易 \Test1", True)
' 刪除子目錄 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\網(wǎng)易 \Test2")
myDirectoryInfo.Delete(True)
' 將目錄 C:\AlexDirDemo 及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete(" D:\網(wǎng)易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 啟動(dòng) Windows 資源管理器。
Process.Start("explorer.exe", "D:\")
End Sub
本文標(biāo)題:vb.net建立文件夾 vbnet打開(kāi)文件夾
標(biāo)題來(lái)源:http://m.kartarina.com/article36/hjgppg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、微信公眾號(hào)、服務(wù)器托管、做網(wǎng)站、定制網(wǎng)站、電子商務(wù)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話(huà):028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容