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
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.