大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Vb.net获取某个目录下文件夹名称(不包含隐藏文件夹)实现代码如下:
我们提供的服务有:网站制作、成都网站设计、微信公众号开发、网站优化、网站认证、西陵ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的西陵网站制作公司
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
有的系统文件夹是不让删除文件的,要删除就要进入DOS 或 PE系统下了, 你想清的 是哪个文件夹 说下
vb.net使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树视图控件上显示的说明文本
Me.FolderBrowserDialog1.Description = "请选择输出报表所在路径:"
'设置从其开始浏览的根文件夹
Me.FolderBrowserDialog1.SelectedPath = "c:\"
If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
'取得全路径(包含文件名)
reportPath1 = System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text = reportPath1
setReportList()
End If
在setReportList()中针对你所需要的文件进行操作等
不只是VB.NET,VB6也是一样,说明这是正常情况先取消隐藏属性,再写,之后隐藏这可能需要把前期绑定改为后期绑定NET的情况具体不明,先不改绑定,不行的时候再改
使用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
操作系统要实现文件夹不能直接删除的格式是: 文件名..\
操作系统里面,创建一个文件夹后文件夹并非空的,里面还有 . 和 .. 这两个名字的隐藏文件夹来作为是否文件夹的标识,所以CreateDirectory ("d:\\test\\test2.\\") 是创建了test文件夹和test.文件
夹,所以你要创建不能直接删除的文件夹,可以改成CreateDirectory ("d:\\test\\test2..\\")