Olá...Por favor como faço p/a pegar todos os arquivos onde a terminação dele é _ret.xml, havia colocado p/a pegar todos os "xml", mais ñ pode pois neste diretório existe outros xml... Que ñ devo verificar desde já Agradeço

Voce pode fazer o seguinte:

 

Kill "c:*_ret.xml"

 

até

Certo Evando, assim como fez, irá deletar todos os arquivos cuja terminção seja _ret.xml, + no meu caso, ñ queria deletar e sim pegar os arquivos com esta terminação p/a ler ele...

Por exemplo aqui

 

Public ModObjfso As FileSystemObject
Public ModObjFolderOrigem
Public ModObjfile
Public str_LinhaArq as string

Public strPasta as string

 

Busca todos os ret.xml da pasta , abre e fecha

 

strSubPasta = "C:Pasta"
Set ModObjFolderOrigem = ModObjfso.GetFolder(strSubPasta)

For Each ModObjfile In ModObjFolderOrigem.Files
      If ((LCase(Right(ModObjfile.Path, 7))) = "ret.xml") Then
         Open ModObjfile.Path For Input As #4
         Line Input #4, str_LinhaArq
         Close #4
      End If
   Next
Next