Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo("d:\")msgbox(dir.CreationTime)
https://msdn.microsoft.com/zh-cn/library/system.io.directoryinfo%28v=vs.110%29.aspx