Private Sub curDirectory()
        Dim DirectoryPath As String
        DirectoryPath = System.IO.Directory.GetCurrentDirectory
        Console.WriteLine("当前文件夹是：" & vbCrLf & DirectoryPath)

        Dim PropertyTime As Date
        PropertyTime = IO.Directory.GetCreationTime(DirectoryPath)
        Console.Write("文件夹" & DirectoryPath + "的创建日期是：" & vbCrLf)
        Console.WriteLine(PropertyTime)

        PropertyTime = IO.Directory.GetLastAccessTime(DirectoryPath)
        Console.Write("文件夹" & DirectoryPath & "的最新读取日期是：" & vbCrLf)
        Console.WriteLine(PropertyTime)

        PropertyTime = IO.Directory.GetLastWriteTime(DirectoryPath)
        Console.Write("文件夹" & DirectoryPath & "的最新写入日期是：" & vbCrLf)
        Console.WriteLine(PropertyTime)

        Console.Read()
    End Sub