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