IMPORTAR VARIOS TXT

MARCELOFAZAN 05/09/2010 13:32:32
#352289
Dim Arquivo As String, Pasta As String
Pasta = [Ô]C:\Sistema\TXT[Ô]
Arquivo = Dir(Pasta & [Ô]*.*[Ô])
Do While Arquivo <> [Ô][Ô]
MsgBox Arquivo
Arquivo = Dir
CarregarArquivo Pasta & Arquivo
Loop



reparei que nesse trecho acima alguma coisa pode estar cortando pq essa
MsgBox Arquivo
nao esta aparecendo as mensagens

segue o zip
TECLA 05/09/2010 13:47:57
#352291
Segue a versão corrigida.
Teste aí.
MARCELOFAZAN 05/09/2010 14:20:51
#352292
Tecla Vlw era isso mesmo que precisava
agradeço por voce colaborar esse trecho vai tirar um peso imenso das costas do usuario no uso

só que tem + 1 detalhe
conforme as alteraçoes .... precisarei deletar os TXT que foram importados

como ficaria esse final conforme alteracoes
antes referia tudo ao text ... agora como darei o kill nos arquivos txt importados ????



txtArquivo.Text = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
Kill txtArquivo.Text

MsgBox [Ô]Transferência concluida com sucesso[Ô], vbExclamation
txtArquivo.Text = [Ô][Ô]
Unload Me

Vlw Marcelo
TECLA 05/09/2010 14:38:13
#352293
Faz o seguinte, altere o trecho abaixo, que deve funcionar sem problemas.

Dim Arquivo As String, Pasta As String
Pasta = App.Path & [Ô]\TXT\[Ô]
Arquivo = Dir(Pasta & [Ô]*.*[Ô])
Do While Arquivo <> [Ô][Ô]
   CarregarArquivo Pasta & Arquivo
   Kill Pasta & Arquivo  [txt-color=#007100]<--- Alteração aqui[/txt-color]
   Arquivo = Dir
Loop
cn.Close
MARCELOFAZAN 05/09/2010 14:58:26
#352296
Otimo , incrivel mesmo , importar deletar dentro do while .... deu muito certo to felizao ,
ainda nao fiz todos testes , colocar arquivos repetir , somente pra saber o que o correra , mais essa pasta ficara parada somente recebendo e saindo arquivos dela, nao terei problemas ... somente testar +

No meu project que te enviei
eu nao consegui , compilar . em desenvilemtno RUN

deu uma mensagem de Compile Error
User Defined type not defined

Como configuro esse type no form ? em project propriedades ???

vlw
Marcelo
MARCELOFAZAN 05/09/2010 15:26:40
#352298
aaaaah
adiciona o microsoft activex data objects 2.8 library no menu

project - references


ok . obrigado Abs
Marcelo
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar