HReadSeek,first-Previous-Next-Last

HReadSeek,first-Previous-Next-Last

WebDev Looper Lista Arquivos

WebDev Looper Lista Arquivos

ListaArquivos is string

ListaArquivos = fListFile(CompleteDir(fWebDir())+"*.*")

LooperDeleteAll(LOOP_lista_arquivos)

FOR EACH STRING NomeArquivo OF ListaArquivos SEPARATED BY CR
    LooperAddLine(LOOP_lista_arquivos,NomeArquivo)
END

WebDev Mostrar Arquivos Diretorio

WebDev Mostrar Arquivos Diretorio

ListaArquivos is string

ListaArquivos = fListFile(CompleteDir(fWebDir())+"*.*")

LooperDeleteAll(LOOP_lista_arquivos)

FOR EACH STRING NomeArquivo OF ListaArquivos SEPARATED BY CR
    LooperAddLine(LOOP_lista_arquivos,NomeArquivo)
END

Funções Para Gererenciar Arquivos Externos

Functions for managing the external files - http://doc.windev.com/en-US/?3036034

Windev Nome de Arquivos Obter Informacoes Diretorio + ARquivos

Windev Nome de Arquivos Obter Informacoes Diretorio + ARquivos

sNomearquivo is string
sNomearquivo =  fExtractPath(EDT_arquivo,fDirectory)
Info("fddire:"+sNomearquivo)
sNomearquivo =  fExtractPath(EDT_arquivo,fDrive)
Info("Drive:"+sNomearquivo)
sNomearquivo =  fExtractPath(EDT_arquivo,fExtension)
Info("extensao:"+sNomearquivo)
sNomearquivo =  fExtractPath(EDT_arquivo,fFileName)
Info("filenam:"+sNomearquivo)

Copiar arqivos /Diretorio

Copiar arquivos /Diretorio

Capturar Tela e mandar por email - dCopyScreenImage

Amarildo,
eu armazeno a imagem, impressão nunca tinha feito, porem funciona assim:

IMG_NoName1=dSaveImageJPEG(dCopyScreenImage(),inMemory,50)

iPrintImage(IMG_NoName1, 10, 10, iPageWidth() - 10, iPageHeight() - 10, iHomoCenteredDisplay)
iEndPrinting()
[17:08:21] paulo viana sousa: salve a imagem da área desejada em um campo imagem ou variável tipo image
e utilize o iprintimage nome da imagem mais parâmetros
não se esqueça do iendprinting