本节谈谈如何获得某个目录下的子目录和文件,
当然,等到讲完了目录操作后,我将会举个类似于资源管理器的例子。
窗体设计界面如下:
列出子目录:
Private Sub btnSubFolders_Click(sender As Object,e As EventArgs) Handles btnSubFolders.Click Dim di As New DirectoryInfo("c:\windows") If di.Exists = False Then Exit Sub txtFolderInfo.Text = "" For Each folderinfo As DirectoryInfo In di.GetDirectories txtFolderInfo.Text &= folderinfo.Name & ControlChars.CrLf Next End Sub为简化操作,直接使用的Windows目录。
Private Sub btnFiles_Click(sender As Object,e As EventArgs) Handles btnFiles.Click Dim di As New DirectoryInfo("c:\windows") If di.Exists = False Then Exit Sub txtFolderInfo.Text = "" For Each finfo As FileInfo In di.GetFiles txtFolderInfo.Text &= finfo.Name & ControlChars.CrLf Next End Sub
提前用了点FileInfo的知识。
列出所有:
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click Dim di As New DirectoryInfo("c:\windows") If di.Exists = False Then Exit Sub Dim fsType As String txtFolderInfo.Text = "" For Each fsinfo As FileSystemInfo In di.GetFileSystemInfos If (fsinfo.Attributes And FileAttribute.Directory) = FileAttribute.Directory Then fsType = "目录" Else fsType = "文件" txtFolderInfo.Text &= fsType & " " & fsinfo.Name & ControlChars.CrLf Next End Sub
运行时如图:
学习更多vb.net知识,请参看
vb.net 教程 目录
原文地址:https://www.jb51.cc/vb/256551.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。