0014-test.pdf
my test
- Code: Select all Expand view
#include "fivewin.ch"
#include "constant.ch"
Function Test()
Local oDlgTest
Local nBottom := 33
Local nRight := 75
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
local oBtnAllegati
Local cRecord:="0014"
local cFolderAllegati:=".\doc\"
local aAllegati := Array( ADir(cFolderAllegati+ "*.*" ) )
local nNumeroAllegati := Len( aAllegati )
DEFINE DIALOG oDlgTest ;
TITLE "trying allegati" ;
SIZE nWidth, nHeight TRANSPARENT PIXEL
@ 10,10 button oBtnAllegati Prompt str(nNumeroAllegati)+"Allegati" size 100,12 of oDlgTest action NIL
ACTIVATE DIALOG oDlgTest CENTERED
return nil
it count all files on doc folder ( I wish only all initiating with 0014 header)
but on array aAllegati I not see any files
if I made xbrowser aAllegati it is empty
