Verificar se existe Unidade (Drive) do computador

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

Verificar se existe Unidade (Drive) do computador

Mensagempor ahteixeira » 18 Jun 2017, 14:21

Olá a todos
Partilho exemplo de como verificar se existe uma unidade/drive no computador.

Código usado:

Código: Selecionar todos

Function fncUnidadeExiste(strUnidade As String) As Boolean
' Autor ..: Alvaro Teixeira (ahteixeira)
' Para ...: maximoaccess.com / REDEACCESS.COM.BR
' Data ...: 18-06-2017
' Exemplo.: fncUnidadeExiste("D")

    Dim FSO As Object
    On Error Resume Next
  
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If InStr(strUnidade, ":") <> 2 Then strUnidade = strUnidade & ":"
    If InStr(strUnidade, "\") <> 3 Then strUnidade = strUnidade & "\"
            
    fncUnidadeExiste = FSO.DriveExists(strUnidade)
    
    Set FSO = Nothing
End Function


Abraço ;)
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes