Excel - Validar nombre de un archivo antes de guardar

Public Sub SaveAttachments()

Dim objOL As Outlook.Application

Dim objMsg As Outlook.MailItem

'Object Dim objAttachments As Outlook.attachments

Dim objSelection As Outlook.Selection

Dim i As Long

Dim lngCount As Long

Dim strFile As String

Dim strFolderpath As String

Dim strDeletedFiles As String

' Get the path to your My Documents folder

'strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)

strFolderpath = "T:\17 Technical\1712 Purchasing-CLS\17.12.14 Reporte pendientes\05 Version\07 OC\"

On Error Resume Next

' Instantiate an Outlook Application object.

Set objOL = CreateObject("Outlook.Application")

' Get the collection of selected objects.

Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist

' You can change this to another folder name of your choice

' Set the Attachment folder.

'strFolderpath = strFolderpath & "\OLAttachments\"

' Check each selected item for attachments.

For Each objMsg In objSelection

Set objAttachments = objMsg.Attachments

lngCount = objAttachments.Count

If lngCount > 0 Then

' Use a count down loop for removing items

' from a collection. Otherwise, the loop counter gets

' confused and only every other item is removed.

For i = lngCount To 1 Step -1

' Get the file name.

strFile = objAttachments.Item(i).FileName

' Combine with the path to the Temp folder.

strFile = strFolderpath & strFile

' Save the attachment as a file.

objAttachments.Item(i).SaveAsFile strFile

Next i

End If

Next

ExitSub:

Set objAttachments = Nothing

Set objMsg = Nothing

Set objSelection = Nothing

Set objOL = Nothing

End Sub

...

    If strFile Like "*Exxx-035986.pdf" Then

        ...

    End If

....