MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Verificar se existe Unidade (Drive) do computador

    Compartilhe
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4650
    Registrado : 15/03/2013

    Verificar se existe Unidade (Drive) do computador

    Mensagem  ahteixeira em Dom 18 Jun 2017, 15:10

    Olá a todos
    Partilho exemplo de como verificar se existe uma unidade/drive no computador.
    Ajuda a colega [Você precisa estar registrado e conectado para ver este link.].

    Código usado:
    Código:
    Function fncUnidadeExiste(strUnidade As String) As Boolean
    ' Autor ..: Alvaro Teixeira (ahteixeira)
    ' Para ...: MaximoAccess.com
    ' 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 e bons estudos com o MaximoAccess Wink
    Anexos
    fncUnidadeExiste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 21 vez(es)

      Data/hora atual: Qui 14 Dez 2017, 13:10