Isso deve ajudar....
Function: __fGetArquivos
Description: Obtem e carrega para dentro da lista todos os
arquivos de um diretório.
Returns
Boolean:
Parameters
! Nome do diretório dos arquivos.
String: p_sDir
! Nome do subdiretório dos arquivos.
String: p_sSub
Static Variables
Local variables
Number: nCount
Number: nIndice
Number: nArquivos
!
String: sSubDir
String: sArquivos[ * ]
Date/Time: dDatas[ * ]
Number: nTamnhos[ * ]
Number: nAtributos[ * ]
Actions
Set nCount = 0
!
While nCount < __nFiltros
Set nArquivos = VisDosEnumFileInfo(
p_sDir || "\\" || __sFiltros[ nCount ], FA_Standard, sArquivos, nTamnhos,
dDatas, nAtributos )
Set nIndice = 0
Set nCount = nCount + 1
!
While ( nIndice < nArquivos )
Set sSubDir =
VisStrSubstitute( p_sDir, __sDiretorio, STRING_Null )
!
Call __oArquivos[ __nTamanho
].fSetDiretorio( p_sDir )
Call __oArquivos[ __nTamanho
].fSetSubDiretorio( sSubDir )
Call __oArquivos[ __nTamanho
].fSetNome( sArquivos[ nIndice ] )
Call __oArquivos[ __nTamanho
].fSetDataCriacao( dDatas[ nIndice ] )
Call __oArquivos[ __nTamanho
].fSetTamanho( nTamnhos[ nIndice ] )
!
Set nIndice = nIndice + 1
Set __nTamanho = __nTamanho +
1
!
Return TRUE
-----Mensagem original-----
De: [email protected] [mailto:[email protected]] Em nome
de Napolitano, Ivan
Enviada em: sexta-feira, 26 de fevereiro de 2010 10:51
Para: [email protected]
Assunto: [sqlwin] Obter Atributos de um Arquivo
Bom dia Pessoal,
Existe uma forma de obter via centura a data de criação e modificação de um
arquivo ?
Valeu,
Ivan Napolitano
**********************************************************************
Este e-mail e todos os anexos que o acompanham podem conter informações
privilegiadas ou confidenciais que se destinam ao uso exclusivo da(s)
pessoa(s) para a(s) qual(is) se pretendeu endereça-lo. Se você recebeu
este e-mail por engano ou erro, ou se você não for o destinatário
correto, qualquer divulgação, disseminação, distribuição, cópia,
retenção ou outro uso desta comunicação ou de seu conteúdo são
proibidos. Se você recebeu esta comunicação por engano ou erro, por
favor, informe imediatamente ao autor, através de e-mail, que você
recebeu esta mensagem por engano ou erro, e delete permanentemente o
original e cópias do e-mail e seus anexos de seu computador. Obrigado.
**********************************************************************
This e-mail transmission and any attachments that accompany it may
contain information that is privileged, confidential or otherwise
exempt from disclosure under applicable law and is intended solely for
the use of the individual(s) to whom it was intended to be addressed.
If you have received this e-mail by mistake, or you are not the
intended recipient, any disclosure, dissemination, distribution,
copying or other use or retention of this communication or its
substance is prohibited. If you have received this communication in
error, please immediately reply to the author via e-mail that you
received this message by mistake and also permanently delete the
original and all copies of this e-mail and any attachments from your
computer. Thank you.
**********************************************************************
