Quando o parâmetro lArvore for verdadeiro (.T.) somente as pastas do rootpath do servidor serão acessíveis.
No parâmetro <nOpções>, é possível determinar as seguintes funcionalidades:
Comandos | Descrição |
---|
GETF_MULTISELECT (2) | Permite selecionar mais de 1 arquivo no padrão "arquivo1 | arquivo2 | arquivo3" Observação: Não compativel com o comando "GETF_RETDIRECTORY" e com a edição do "Nome do Arquivo". |
GETF_NOCHANGEDIR (4) | Não permite mudar o diretório inicial. |
GETF_LOCALFLOPPY (8) | Apresenta a unidade do disquete da máquina local. |
GETF_LOCALHARD (16) | Apresenta a unidade do disco local. |
GETF_NETWORKDRIVE (32) | Apresenta as unidades da rede (mapeamento). |
GETF_SHAREWARE (64) | Não implementado. |
GETF_RETDIRECTORY (128) | Retorna/apresenta um diretório. |
GETF_HIDDENDIR (256)* | Mostra arquivos e pastas ocultas |
GETF_SYSDIR (512)* | Mostra arquivos e pastas do sistema |
Se o cInitialDir apontar para um diretório oculto ou de sistema, lembre-se de habilitar as opções correspondentes.
* Os dois parâmetros só estão disponível em builds superiores a 7.00.131227A.
cMascara
Se não for informada uma máscara, o campo poderá ser editado pelo usuário a fim de especificar o filtro/máscara que desejar
Disponível apenas em builds superiores a 7.00.131227A.
Compartilhamentos do Remote Desktop
No caso da função "cGetFile" precisar apresentar diretórios compartilhados via "Remote Desktop" o usuário deve mapear o endereço de rede \\tsclient\<nome da pasta compartilhada> e habilitar a opção "GETF_NETWORKDRIVE ".
Bloco de código |
---|
language | cpp |
---|
theme | Eclipse |
---|
title | Exemplo |
---|
linenumbers | true |
---|
|
#INCLUDE "TOTVS.CH"
User Function GetFile1()
Local targetDir
targetDir:= cGetFile( '*.txt' , 'Textos (TXT)', 1, 'C:\', .F., nOR( GETF_LOCALHARD, GETF_LOCALFLOPPY, GETF_RETDIRECTORY ),.T., .T. )
Alert(targetDir)
Return |
Bloco de código |
---|
language | cpp |
---|
theme | Eclipse |
---|
title | Exemplo |
---|
linenumbers | true |
---|
|
#INCLUDE "TOTVS.CH"
User Function GetFile2()
Local cMascara := "Todos os arquivos|."
Local cTitulo := "Escolha o arquivo"
Local nMascpad := 0
Local cDirini := "\"
Local lSalvar := .F. /*.F. = Salva || .T. = Abre*/
Local nOpcoes := GETF_LOCALHARD
Local lArvore := .F. /*.T. = apresenta o árvore do servidor || .F. = não apresenta*/
Local resourceName:= "totvs.png"
Local path := "\images\"
Local fileName:= path + resourceName
Local targetDir
Local sucess
If (!Resource2File(resourceName, fileName))
Alert("Erro ao copiar o arquivo do repositorio!")
EndIf
If (GetRemoteType() == REMOTE_HTML)
sucess:= (CpyS2TW(fileName, .T.) == 0)
Else
targetDir := cGetFile( cMascara, cTitulo, nMascpad, cDirIni, lSalvar, nOpcoes, lArvore)
sucess:= CpyS2T(fileName, targetDir)
Endif
If (sucess)
If (GetRemoteType() == 5)
Alert("Arquivo ''" + resourceName + "' enviado para download! " + CRLF + "Verifique se o browser nao bloqueou o popup!")
Else
Alert("Arquivo ''" + resourceName + "' copiado com sucesso para '" + targetDir + "'!")
EndIf
Else
Alert("Erro ao copiar o arquivo ''" + resourceName + "'!")
Endif
Return |