首先要imports system.io然后:
        Dim pathfile As String()
        Dim path As String = "d:\"
        pathfile = System.IO.Directory.GetFiles(path, "*.xml")
        For iCount As Integer = 0 To pathfile.Length - 1
            Response.Write(File.GetCreationTime(pathfile(iCount)) & "<br>")
        Next