Visual Basic Arquivos Thumps.db. Tem como interceptar ?

[valbeezerra]

Bom dia Senhores,

 

 Estou criando um sistema que carrega imagens em um formulário.
 
 Uso o código abaixo para pegar a pasta que contem  os nome e o caminhos das imagens que serão postas na coluna 2.
 
O problema é que algumas pastas vem com aquele chato arquivo Thumps.db acaba assumindo o lugar de outra imagem gerando erro ao acionar o
comando referente aquela célula.

 Queria saber se tem como interceptar esse tipo de arquivo.  Algo como: caso exista na pasta arquivo Thumps.db fosse executado alguma ação como,  desviar para ultima linha ou de preferência excluir.

 

abç

Option Explicit
Sub Pega_pasta_Shove_nash()
Dim rowB As Long: rowB = 2
Dim rowC As Long: rowC = 2
Dim xDirect, xFname, InitialFoldr

InitialFoldr = "C:\"
With Excel.Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Excel.Application.DefaultFilePath & "\"
.Title = " Selecione o Aquivo "
.InitialFileName = InitialFoldr
.Show
   
If .SelectedItems.Count <> 0 Then
xDirect = .SelectedItems(1) & "\"
xFname = VBA.Dir(xDirect, 7)
Do While xFname <> ""

Range("B" & rowB) = xFname
Range("C" & rowC) = xDirect + xFname

rowB = rowB + 1
rowC = rowC + 1
xFname = VBA.Dir

Loop
End If
End With

End Sub