O VBA permite que você verifique se um arquivo ou pasta existe usando o Dir função.
Usando o comando Dir para verificar se um arquivo existe
Como mencionamos na introdução, o Dir função nos permite verificar se um arquivo selecionado existe no computador. Aqui está o código:
123456789101112131415 | Sub CheckFileExists ()Dim strFileName As StringDim strFileExists As StringstrFileName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test File Exists.xlsx"strFileExists = Dir (strFileName)Se strFileExists = "" EntãoMsgBox "O arquivo selecionado não existe"OutroMsgBox "O arquivo selecionado existe"Fim seEnd Sub |
Primeiro atribuímos o caminho do arquivo à variável strFileName. Então usamos o Dir função para obter o nome do arquivo na variável strFileExists. Se o arquivo existir no diretório, seu nome será atribuído à variável de string strFileExists. Se não existe então strFileExists permanecerá em branco. Por fim, aparece a caixa de mensagem informando se o arquivo existe ou não.
Usando o comando Dir para verificar se existe uma pasta
Da mesma forma que verificar se um arquivo existe, você pode verificar se existe uma pasta. Você só precisa adicionar um argumento ao Dir comando. Vejamos o código:
123456789101112131415 | Sub CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C: \ Users \ Nikola \ Desktop \ VBA articles \ Test Folder \"strFolderExists = Dir (strFolderName, vbDirectory)Se strFolderExists = "" EntãoMsgBox "A pasta selecionada não existe"OutroMsgBox "A pasta selecionada existe"Fim seEnd Sub |
Primeiro atribuímos o caminho da pasta à variável strFolderName. Então usamos o Dir função para obter o nome do arquivo na variável strFileExists. Para verificar uma pasta, precisamos adicionar o segundo argumento à função - vbDirecotry. Se a pasta existir no diretório, seu nome será atribuído à variável strFolderExists. Se não strFolderExists permanecerá em branco.