Procedure UpLoad() Local aFiles,cFile,cTable,nTime,cRDD,oErr,aDBF,nI,cDir Set AutOpen OFF cDir := CurDirX()+"arq\" ////func da xhb - curdirx() aDBF := Directory( cDir+"*.dbf") //func da xhb aFiles :={} For nI:=1 TO Len(aDBF) AAdd(aFiles,Trim(aDBF[nI,1])) Next XBrowse(aFiles) //Sys_Meter(1,0,"Importando o arquivo") nTime:=Seconds() For Each cFile IN aFiles cTable := Lower(cFileNoExt(cFile)) If File(cDir+cFile) .and. !SR_ExistTable(cTable)