vb.net 教程 4-4 目录操作 Directory 2

超、凢脫俗 2022-09-10 09:26 194阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
紧接上一节内容。

创建文件夹：

Private Sub btnCreateFolder\_Click(sender As Object, e As EventArgs) Handles btnCreateFolder.Click  
        If Directory.Exists("d:\\bb") Then  
            txtFolderInfo.Text = "该文件夹已经存在"  
        Else  
            Directory.CreateDirectory("d:\\bb")  
            txtFolderInfo.Text = "创建文件夹成功"  
        End If  
    End Sub  
删除文件夹：

Private Sub btnDelFolder\_Click(sender As Object, e As EventArgs) Handles btnDelFolder.Click  
        If Directory.Exists("d:\\bb") Then  
            Try  
                Directory.Delete("d:\\bb")  
                txtFolderInfo.Text = "该文件夹已经删除"  
            Catch ex As Exception  
                txtFolderInfo.Text = "删除文件夹时发生错误：" & ex.Message  
            End Try  
   
        Else  
            txtFolderInfo.Text = "该文件夹不存在"  
        End If  
    End Sub  
有子目录或者文件时候的删除：

Private Sub btnDelFolder2\_Click(sender As Object, e As EventArgs) Handles btnDelFolder2.Click  
        If Directory.Exists("d:\\bb") Then  
            Try  
                Directory.Delete("d:\\bb", True)  
                txtFolderInfo.Text = "该文件夹已经删除"  
            Catch ex As Exception  
                txtFolderInfo.Text = "删除文件夹时发生错误：" & ex.Message  
            End Try  
   
        Else  
            txtFolderInfo.Text = "该文件夹不存在"  
        End If  
    End Sub  
移动文件夹，仍然是只能在同一磁盘分区下移动：

Private Sub btnMoveFolder\_Click(sender As Object, e As EventArgs) Handles btnMoveFolder.Click  
        If Directory.Exists("d:\\bb") Then  
            Try  
                Directory.Move("d:\\bb", "d:\\dd")  
                txtFolderInfo.Text = "文件夹已经移动完毕"  
            Catch ex As Exception  
                txtFolderInfo.Text = "移动文件夹时发生错误，" & ex.Message  
            End Try  
        Else  
            txtFolderInfo.Text = "文件夹不存在"  
        End If  
    End Sub

列出子目录：

Private Sub btnSubFolders\_Click(sender As Object, e As EventArgs) Handles btnSubFolders.Click  
        Dim allFolders() As String  
        allFolders = Directory.GetDirectories("c:\\")  
        txtFolderInfo.Text = ""  
        For Each folder As String In allFolders  
            txtFolderInfo.Text &= folder & ControlChars.CrLf  
        Next  
    End Sub

列出文件

Private Sub btnFiles\_Click(sender As Object, e As EventArgs) Handles btnFiles.Click  
        Dim allFiles() As String  
        allFiles = Directory.GetFiles("c:\\")  
        txtFolderInfo.Text = ""  
        For Each file As String In allFiles  
            txtFolderInfo.Text &= file & ControlChars.CrLf  
        Next  
    End Sub

列出所有，好像不能直接区别是目录还是文件：

Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Dim allFoldersFiles() As String  
        allFoldersFiles = Directory.GetFileSystemEntries("c:\\")  
        txtFolderInfo.Text = ""  
        For Each file As String In allFoldersFiles  
            txtFolderInfo.Text &= file & ControlChars.CrLf  
        Next  
    End Sub

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/