Perguntas Tela do cGetFile para salvar arquivo, esta vindo em branco o Nome de Arquivo.

Boa tarde,
estou com problemas para salvar um arquivo usando a função GetTempPath para captura o caminho e depois alterando para o caminho que quero. Mais esta trazendo na tela o "nome do arquivo" em branco na tela do cGetFile, pelo debug esta correto mostra por exemplo "C:\USERS\NOME~1\Desktop\". E uma outra coisa fiz teste no windows 8 mostrou corretamente, mais no windows 7 e no windows 8.1 veio em branco.
Segue abaixo o código.
Obrigado.

#Include 'Protheus.ch'

User Function SUTEST()
LOCAL cMask := "XLS (*.XLS) | *.XLS"
LOCAL cTitle := "Selecione o arquivo"
LOCAL nMask := 1
Local cTemp := GetTempPath() //capturo a pasta temporária do usuario
Local cDir := substr(cTemp, 1, AT("\AppData", cTemp)) + "desktop"
LOCAL lSave := .F.
LOCAL nOpc := GETF_LOCALHARD
LOCAL lServer := .F.
LOCAL cFile
PRIVATE _cFile

cFile := cGetFile(cMask, cTitle, nMask, cDir, lSave, nOpc, lServer)
conout("TESTE")
Return