If the folder exists, then continue (1 Viewer)

Private Sub PDFAuditSheet_Click()
Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject

Dim FileName As String
Dim FilePath As String
Dim FolderName As String
Dim FP As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem


FolderName = Me.BCaseNo
FileName = Me.BCaseNo & "-ClaimID" & Me.ClaimID & ".pdf"
FP = "G:\Claim Audit\Audit 2017\TEMP"

If Not FSO.FolderExists(FP & "" & FolderName) Then
    FSO.CreateFolder (FP & "\" & FolderName)
End If
FilePath = "G:\Claim Audit\Audit 2017\TEMP\" & FolderName & "\" & FileName

If Len(Dir(FilePath)) > 0 Then
    If MsgBox("This Audit has already been saved." & vbCrLf & "Do you want to overwrite it with an updated copy?", vbYesNo, "Overwrite Existing File?") = vbYes Then
        Kill FilePath
    Else
        Exit Sub
    End If
End If

DoCmd.OutputTo acOutputReport, "qryAuditSheetOut", acFormatPDF, FilePath

If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
    .To = "xx@xx.com"
    .Subject = "Audit Sheet" & " " & Me.BCaseNo & "-ClaimID" & Me.ClaimID
    .Attachments.Add FilePath
    .Display
End With

Set oEmailItem = Nothing
Set oOutlook = Nothing
'delete Temp File
Kill FilePath


End Sub

...
...

If Len(Dir(FilePath)) > 0 Then
	If MsgBox("This Audit has already been saved." & vbCrLf & "Do you want to overwrite it with an updated copy?", vbYesNo, "Overwrite Existing File?") = vbYes Then
		Dim strFolderToDelete As String
		strFolderToDelete = Replace(FP & "\" & FolderName & "\", "\\","\")
		'delete all files in the folder
		KILL strFolderToDelete & "*.*" 
		'then, remove the folder
		RMDir strFolderToDelete
		're-create the folder
		MKDir strFolderToDelete
	ELSE
		Exit Sub
	End If
End If