ARQUIVO NÃO ENCONTRADO CÓDIGO 53

 Tópico anterior Próximo tópico Novo tópico

ARQUIVO NÃO ENCONTRADO CÓDIGO 53

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490933 - 24/10/2019 11:15:42

KELLY
BRASILIA
Cadast. em:Setembro/2009


Olá a todos!

Eu preciso de um help!

Ao localizar arquivos com nomes muito grandes ou esse arquivo "PENDÊNCIAS 04.12.18.xlsx", o código simplesmente apresenta um erro informando que não foi possível encontrar o arquivo.
A linha do código que dispara o erro é essa:

If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then

Segue meu código completo:

Public Function RecursiveDir(colFiles As Collection, _
                             strFolder As String, _
                             strFileSpec As String, _
                             bIncludeSubfolders As Boolean)

    Dim strTemp As String
    Dim colFolders As New Collection
    Dim vFolderName As Variant
  
    strFolder = TrailingSlash(strFolder)
    strTemp = Dir(strFolder & strFileSpec)
    Do While strTemp <> vbNullString
        colFiles.Add strFolder & strTemp
        strTemp = Dir
    Loop

    If bIncludeSubfolders Then
        strTemp = Dir(strFolder, vbDirectory)
        Do While strTemp <> vbNullString
            If (strTemp <> ".") And (strTemp <> "..") Then
                If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0 Then
                    colFolders.Add strTemp
                End If
            End If
            strTemp = Dir
        Loop

        For Each vFolderName In colFolders
            Call RecursiveDir(colFiles, strFolder & vFolderName, strFileSpec, True)
        Next vFolderName
    End If

End Function





#490934 - 24/10/2019 11:37:22

KELLY
BRASILIA
Cadast. em:Setembro/2009


Outra pasta que ele não consegue encontrar é "Template apresentac╠ºa╠âo"
É possível fazer com que o código também identifique pastas com este tipo de caractere? Por algum motivo o Windows fez isso em várias pastas ao serem copiadas para o PC.





Resposta escolhida #490947 - 25/10/2019 09:43:09

PERCIFILHO
MATAO [SP]
Cadast. em:Dezembro/2009


https://stackoverflow.com/questions/50341330/vba-error-53-file-not-found-there-is-a-non-latin-character-in-filename
Veja se isso te ajuda em alguma coisa.

____________________________________________________
Você sabe que alguém te ama não pelo que ele fala, mas pelo o que faz.
O amor não sobrevive de teorias.




#492213 - 13/01/2020 21:20:07

KELLY
BRASILIA
Cadast. em:Setembro/2009


Obrigada Percifilho. Deu certo!






 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por KELLY em 13/01/2020 21:20:28