Vb.net獲取某個(gè)目錄下文件夾名稱(不包含隱藏文件夾)實(shí)現(xiàn)代碼如下:
我們提供的服務(wù)有:網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、西陵ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的西陵網(wǎng)站制作公司
Dim?dir?As?New?DirectoryInfo("D:\")
For?Each?d?As?DirectoryInfo?In?dir.GetDirectories
ComboBox1.Items.Add(d.Name)
Next
dim?finfo?as?new?fileinfo(d.name)
if?(finfo.attributes?and?FileAttributes.Hidden)FileAttributes.Hidden?then
ComboBox1.Items.Add(d.Name)
end?if
有的系統(tǒng)文件夾是不讓刪除文件的,要?jiǎng)h除就要進(jìn)入DOS 或 PE系統(tǒng)下了, 你想清的 是哪個(gè)文件夾 說(shuō)下
vb.net使用控件FolderBrowserDialog1,在程序中:
'設(shè)置對(duì)話框中在樹視圖控件上顯示的說(shuō)明文本
Me.FolderBrowserDialog1.Description = "請(qǐng)選擇輸出報(bào)表所在路徑:"
'設(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()中針對(duì)你所需要的文件進(jìn)行操作等
不只是VB.NET,VB6也是一樣,說(shuō)明這是正常情況先取消隱藏屬性,再寫,之后隱藏這可能需要把前期綁定改為后期綁定NET的情況具體不明,先不改綁定,不行的時(shí)候再改
使用FolderBrowserDialog控件
If FolderBrowserDialog1.ShowDialog() DialogResult.Cancel Then
TextBox6.Text = FolderBrowserDialog1.SelectedPath
TextBox6.SelectionStart = TextBox6.Text.Length
Dim FileNames() As String = Directory.GetFiles(TextBox6.Text)
For i As Integer = 0 To FileNames.Length - 1
ListBox1.Items.Add(Path.GetFileName(FileNames(i)))
Next
End If
操作系統(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文件夾隱藏 vb中不能隱藏的窗口
本文路徑:http://m.rwnh.cn/article48/doophep.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、做網(wǎng)站、網(wǎng)站導(dǎo)航、App開發(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)