Nesse vídeo demonstraremos a utilização da função IsDrive, que serve para validar se um drive existe no sistema operacional.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} zExe309
Valida se um drive (Windows) esta apto a receber gravações na raiz
@type Function
@author Atilio
@since 23/02/2023
@obs
Função IsDrive
Parâmetros
Recebe a letra do drive sem o : (ao invés de C:\ enviar apenas C)
Retorno
Retorna .T. se o drive pode receber arquivos na raiz ou .F. se não
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe309()
Local aArea := FWGetArea()
Local cMensagem := ""
//Valida se o C:\ pode receber arquivos na raiz
If IsDrive("C")
cMensagem := "Arquivos podem ser gravados no C:\"
Else
cMensagem := "Não foi possível validar o C:\"
EndIf
FWAlertInfo(cMensagem, "Teste 1 IsDrive")
//Valida se o F:\ pode receber arquivos na raiz
If IsDrive("F")
cMensagem := "Arquivos podem ser gravados no F:\"
Else
cMensagem := "Não foi possível validar o F:\"
EndIf
FWAlertInfo(cMensagem, "Teste 2 IsDrive")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
