Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Try Dim strFiles = Directory.GetFiles(GlobalVariables.strFolderPath) Dim FileName As String 'Get Count of Files in Directory Dim strCnt = My.Computer.FileSystem.GetFiles(GlobalVariables.strFolderPath).Count Dim FileConnection As String = "" For Each FileName In strFiles If strCnt < 2 Then If FileName = "Covernote.pdf" Then 'Cover Note Email - Does not work at present ElseIf FileName = "Quotation.pdf" Then 'Quotation Email - Does not work at present Else FailedEmail("1 Attachment Only - Unknown Type", "There is only one attachment, this must either be a Covernote or a Quotation") End If Else If FileName = "Welcome.pdf" Or FileName = "Cover_Letter_PC.pdf" Then 'Do New Business ElseIf FileName = "Renew.pdf" Or FileName = "Renewed.pdf" Then 'Do Renewal / Transfrd NB Else 'FailedEmail("Unknown Letter Type", "Unable to find a 'Main Letter' Type these can be <br><br>Welcome.pdf<br>Cover_Letter_PC.pdf<br>Renew.pdf<br>Renewed.pdf") End If End If Next Catch ex As Exception MessageBox.Show(ex.Message, "Main Processing", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) WriteToLog(ex.Message) End Try
If Exists(Directory.GetFIles) = "Renew.pdf" = True Then 'Do This End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.