MSGBOX INICIALIZACAO DO SISTEMA PERCORRER ARQUIVO
Pessoal tem como eu varrer varios arquivos txt na inicializacao do sistema e que eles me deem mensagem
app.patch \TXT\
DO WHILE ARQ TXTS
Msgbox Deseja Importar Sim ou Nao
Teria como fazer isso na inicializacao do sistema
Alguem teria uma rotina assim para colar
Obrigado
Abs
Marcelo Fazan
MARCELOFAZAN vocÊ pode colocar a rotina no form load , ai criar uma rotina de loop que varre od diretorios , porem isso deve fazer a tela demorar para aparecer pos so finaliza-ra o load apos concluir a rotina.
achei uma função
Function ArquivoExiste(Arquivo As String) As Boolean
Dim TEMP As Long
On Error GoTo ErrArquivoExiste:
TEMP = FileLen(Arquivo)
If TEMP = 0 Then: ArquivoExiste = False: Exit Function
ArquivoExiste = True
Exit Function
ErrArquivoExiste:
ArquivoExiste = False
End Function
sera que serveria pra necessidade
ai declaro no modulo ?
Abs
Marcelo Fazan
Function ArquivoExiste(Arquivo As String) As Boolean
Dim TEMP As Long
On Error GoTo ErrArquivoExiste:
TEMP = FileLen(Arquivo)
If TEMP = 0 Then: ArquivoExiste = False: Exit Function
ArquivoExiste = True
Exit Function
ErrArquivoExiste:
ArquivoExiste = False
End Function
sera que serveria pra necessidade
ai declaro no modulo ?
Abs
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas