vb.net建立文件夾 vbnet打開(kāi)文件夾

VB中如何實(shí)現(xiàn)創(chuàng)建文件夾

給你說(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ì)你有用

VB.NET如何創(chuàng)建文件夾名稱(chēng)中含有“.\\”的文件夾??

操作系統(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..\\")

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)樯倭艘粋€(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 文件夾操作

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)行操作等

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

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)

外貿(mào)網(wǎng)站制作
主站蜘蛛池模板: 国产免费黄色无码视频| 欧洲精品无码成人久久久| 中文午夜乱理片无码| 国产成人A人亚洲精品无码| 亚洲AV无码国产精品麻豆天美 | 精品人妻系列无码一区二区三区 | 中文字幕无码人妻AAA片| 日韩国产精品无码一区二区三区| 免费无遮挡无码视频网站| 亚洲AV无码AV男人的天堂| 日韩少妇无码喷潮系列一二三| 国产精品无码久久久久久| 成人免费无码大片a毛片软件| 人妻无码一区二区不卡无码av| 黑人无码精品又粗又大又长 | 伊人天堂av无码av日韩av| 亚洲午夜福利AV一区二区无码| 成在人线AV无码免费| 亚洲欧洲无码一区二区三区 | 国产成人无码精品久久二区三区| 国产成人AV片无码免费| 国产无码一区二区在线| 无码人妻av一区二区三区蜜臀| 精品多人p群无码| 十八禁无码免费网站| 无码中文人妻视频2019| 潮喷无码正在播放| 亚洲成av人片在线观看天堂无码| 无码中文字幕一区二区三区| 日韩网红少妇无码视频香港| 无码国产午夜福利片在线观看| 中出人妻中文字幕无码| 中文无码人妻有码人妻中文字幕| 无码 免费 国产在线观看91 | 人妻无码久久久久久久久久久 | 伊人久久大香线蕉无码麻豆| 无码视频免费一区二三区| 无码人妻丰满熟妇区毛片| 无码精品人妻一区二区三区免费| 日韩视频无码日韩视频又2021| 无码的免费不卡毛片视频|