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