Dim ReportDirInfo As System.IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(reportpath) Dim Reportfiles() As System.IO.FileInfo = ReportDirInfo.GetFiles(reportnamewithdate + "*.pdf") Dim createdtime As DateTime = Reportfiles(0).CreationTime