Cópia web, desktop. GetRemoteType CPYS2TW
Autor: Eurai Criado: 17/10/2024 Atualizado: 17/10/2024
Exemplo de ADVPL com cópia arquivo. É web? É desktop?
Copia de formas diferente para abrir o arquivo
Para navegador é realizado o download do arquivo
If GetRemoteType() == 5 //Verifica se é WEB ou Desktop
If CPYS2TW(cArqServ, .T.) == 0 //WEB
Endif
Else
FWMakeDir(cRoot)
CpyS2T(cArqServ, cRoot, .F. ) //Desktop
oExcelApp := MsExcel():New()
oExcelApp:WorkBooks:Open( cRoot + cNomArq )
oExcelApp:SetVisible(.T.)
oExcel := Nil
Endif
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima