[Resolvido]MsgBox - Verificar se ficheiro existe

Olá (de novo)!

Idêntico ao outro tópico que abri hoje sobre MsgBox, tenho outra dúvida:

No outro caso, tinha uma pasta onde mensalmente é colocado só um ficheiro que fica disponível durante 15 dias, então usei:

Código:

If Len(Dir("\\BDS2160\Teste\")) > 0 Then

        MsgBox "O ficheiro FTE está disponível para importar!", vbInformation, "Ok"

    Else
        MsgBox "O ficheiro FTE ainda não está disponível!", vbCritical, "Erro"
    End If

Agora noutro caso eu tenho uma pasta que contem milhares de ficheiros, eu quero saber se o(s) ficheiro(s) X com a data Y já está presente, o código que utilizo para copiar é o seguinte:

Código:

For Each objF1 In objFiles
    If Left(objF1.Name, 5) = "zz123" And Format(objF1.DateLastModified, "mm-yyyy") = Format(Date, "mm-yyyy") Then
    objFS.CopyFile strFolderPath & objF1.Name, "\\BDS2160\testecopia\"
End If
Next

Alguém me pode ajudar?
Obrigado

strFolderPath e objF1 é o quê? Se for pasta e nome dos arquivos, talvez seja assim:

objFS.CopyFile strFolderPath & objF1.Name, "\\BDS2160\testecopia\" & strFolderPath & objF1.Name

ou talvez assim:

objFS.CopyFile strFolderPath & objF1.Name, "\\BDS2160\testecopia\" & objF1.Name

Sem saber o significado das variáveis, fica meio difícil, mas talvez isso ajude.

Desculpa, eis o código inteiro:

Código:

Dim objFS, objFolder
Dim objFiles, objF1
Dim strFill As String, strFolderPath As String

'Eliminar todos os ficheiros .TXT na pasta
On Error Resume Next
    Kill "\\ARQUIVO\*.TXT"
On Error GoTo 0

'Pasta onde estão os ficheiros a copiar
strFolderPath = "\\MAPAS\"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strFolderPath)
Set objFiles = objFolder.Files

'Copia todos os ficheiros na pasta com os primeiros digitos = QWERT e data actual
For Each objF1 In objFiles
    If Left(objF1.Name, 5) = "QWERT" And objF1.DateLastModified > Date Then
    objFS.CopyFile strFolderPath & objF1.Name, "\\ARQUIVO\"
End If
Next

Set objF1 = Nothing
Set objF2 = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set objFS = Nothing

Eu não quero copiar, só quero saber se existe o ficheiro para utilizar a MsgBox para alertar para a existência ou não dos ficheiros...

Ao que parece, você precisará de um campo no formulário para digitar a data a ser passada na pesquisa e colocar no código algo como:

If Len(Dir("\\CriquioPC\Coordenação\Relatório-" & Format(Me.CampoData, "dd-mm-yyyy") & ".doc")) > 0 Then
...
Else
...
End If

No caso acima, supondo que o campo data seja 02/10/2011, o caminho ficaria assim:

"\\CriquioPC\Coordenação\Relatório-02-10-2011.doc"

Obrigado criquio, mas a única forma de identificar os ficheiros é pelas primeiras 5 letras e depois pretendo aqueles que têm dada do sistema diária ou mensal...

Pegando no seu exemplo, Relatório-02-10-2011.doc, eu preciso de identificar se o ficheiro existe pelas 5 primeiras letras "Relat"

Dá para fazer isso?

Já sabe as 5 primeiras letras ou elas podem variar? Se for fixo, pode passar mais ou menos como:

If Len(Dir("\\CriquioPC\Coordenação\Relat-" & Format(Me.CampoData, "dd-mm-yyyy") & ".doc")) > 0 Then

Apenas formatando para o formato correto do nome do relatório.

sim, as primeiras 5 letras sei

exemplo:

Código:

If Left(objF1.Name, 5) = "QWERT" And objF1.DateLastModified > Date Then

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.