Perguntas utilizando função cgetfile

Arlindo eu não consegui, mas tenho uma rotina que pela cgetfile eu seleciono uma pasta e jogo os arquivos num markbrowse pro cabra marcar os que ele quer processar.

_cRet := cGetFile( _cExtens, "Selecione o Diretorio",,'SERVIDOR\'+cDiretorio, .F., GETF_NETWORKDRIVE + GETF_LOCALFLOPPY + GETF_LOCALHARD + GETF_RETDIRECTORY )
_cRet := ALLTRIM( _cRet )

If AllTrim(_cRet) == '\'
Return
Endif

cDiretorio := AllTrim(_cRet)
If Right(cDiretorio,1) <> '\'
cDiretorio += '\'
Endif

PutMV("MV_DIRIMPD",'SERVIDOR\'+cDiretorio)
// Pesquisa por Arquivos a serem importados já filtrando empresa

//ADir(cDiretorio+"*.XML",aArquivos)
aArquivos := Directory(cDiretorio+"*.XML",'D')


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Cria arquivo com ultima posicao do dicionario de contrato. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aStruDic := {}
Aadd(aStruDic,{"Arq_OK" ,"C",02,0})
Aadd(aStruDic,{"Arquivos" ,"C",200,0})
Aadd(aStruDic,{"Tamanho" ,"C",30,0})
Aadd(aStruDic,{"DtArq" ,"C",30,0})
Aadd(aStruDic,{"Hora" ,"C",30,0})

If File("Arqs.DBF")
FErase("Arqs.DBF")
EndIf

dbCreate("Arqs",aStruDic)
dbUseArea( .T.,,"Arqs","CAD",.F.,.F.)

aSort(aArquivos)

dbSelectArea("CAD")
For nI := 1 To Len(aArquivos)
If RecLock("CAD",.t.)
CAD->Arquivos := aArquivos[nI,1]
CAD->DtArq := DtoC(aArquivos[nI,3])
CAD->Hora := aArquivos[nI,4]
CAD->Tamanho := AllTrim(Str(aArquivos[nI,2]))
MsUnlock()
Endif
Next

//bFiltraBrw := {|| FilBrowse("TMP",@aIndSF2,@cCondicao) }
//Eval(bFiltraBrw)

cCadastro := 'Arquivos para Importação Pré-Notas'

/*_cIndex:=Criatrab(Nil,.F.)
_cChave:="Arquivos"
Indregua("CAD",_cIndex,_cChave,,,"Ordenando registros selecionados...")
DbSetIndex(_cIndex+ordbagext()) */
dbSelectArea("CAD")
dbGoTop()

aCpos := {}
AADD(aCpos,{ "Arq_OK" , "","Marca" })
AADD(aCpos,{ "Arquivos" , "", OemToAnsi('Arquivo Para Importação') }) //"Ord. de Pago"

MarkBrow("CAD", "Arq_OK",,aCpos, , GetMark(,"CAD","Arq_OK"),,,,,,,,,aCores)

// Mbrowse(6,1,22,75,"SF2",,,,,,aCores)
CAD->(dbCloseArea())
Ferase("Arqs.DBF")

RestArea(aArea)
Return