System.IO命名空间中Directory类的使用

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.CreateDirectory("c:\dyc") '创建目录

        If Directory.Exists("c:\dyc") Then
            Directory.Delete("c:\dyc")      '删除目录
        End If

        MsgBox(Directory.GetCurrentDirectory) '当前应用程序目录
        MsgBox(Directory.GetDirectoryRoot("c:\windows\system32")) '根目录
        'MsgBox(Directory.GetParent("c:\windows\system32"))   '父目录
        MsgBox(Directory.GetCreationTime("c:\windows\system32"))  '目录创建的时间、时间

        REM 查找子目录
        Dim dirs() As String = Directory.GetDirectories("c:\windows")
        For i = 0 To dirs.Length - 1
            Debug.Print(dirs(i))
        Next

        REM 查找文件
        Dim files() As String = Directory.GetFiles("c:\windows")
        For i = 0 To files.Length - 1
            Debug.Print(files(i))
        Next

        REM 查找子目录和文件
        Dim dirfiles() As String = Directory.GetFileSystemEntries("c:\windows")
        For i = 0 To dirfiles.Length - 1
            Debug.Print(dirfiles(i))
        Next

    End Sub
End Class

 

 

 

 

精典使用案例：

 

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dirs() As String = Directory.GetDirectories("c:\")
        Dim files() As String = Directory.GetFiles("c:\")
        Dim dirfiles() As String = Directory.GetFileSystemEntries("c:\")
        Dim dris() As String = Directory.GetLogicalDrives()

        For Each temp As String In dirs
            ListBox1.Items.Add(temp)
        Next

        For Each temp As String In files
            ListBox2.Items.Add(temp)

        Next

        For Each temp As String In dirfiles
            ListBox3.Items.Add(temp)

        Next

        For Each temp As String In dris
            ListBox4.Items.Add(temp)

        Next
    End Sub
End Class