Início
Olá a todos
Partilho exemplo de como verificar se existe uma unidade/drive no computador.
Ajuda a colega neste tópico.
Código usado:
Abraço e bons estudos com o MaximoAccess
Partilho exemplo de como verificar se existe uma unidade/drive no computador.
Ajuda a colega neste tópico.
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
- Anexos
fncUnidadeExiste.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (21 Kb) Baixado 54 vez(es)