Zaupa Junior

Obrigado por responder, dei uma olhada aqui no exemplo e parece que é o que eu queria mesmo. Valeu pela dica da TAG também!! abraço

Bom dia, pessoal É o seguinte, eu preciso entrar em um diretório raiz e listar todos os diretórios que existem la dentro. Após isso, eu preciso entrar dentro de cada um deles copiar um arquivo que está la dentro para este diretório raiz. O que eu não consigo fazer é mudar de diretório, eu consigo capturar o primeiro entrar nele e tudo mais, mas no loop ele não muda o nome do diretório. Este é o código que eu estou usando: Private Sub cmdOk_Click() Dim ultima As String caminho = Dir$(txtPath & "\" & "*.0*", vbDirectory) ordem = "0" Do While caminho <> "" caminho = Dir$ ultima = Dir(txtPath & "\" & caminho & "\" & "*.tra") FileCopy txtPath & "\" & caminho & "\" & ultima, txtPath & "\" & ultima LoadEXE (txtPath.Text & "\" & "zmanconv /m") Kill (txtPath & "\" & ultima) ordem = ordem + 1 Name txtPath & "\TRAB1.SDF" As txtPath & "\" & ordem & ".SDF" Loop End Sub

Error "20534: Error detected by database DLL" Está é a menagem que aparece quando vou exibir um relatório. Utilizo um aplicativo em VB e exibo com o Crystal Report. O mais intrigante é que é apenas um relatório, o restante funciona normalmente. Outro agravante é que também isso acontece em alguns micros apenas, por exemplo, no meu notebook onde desensolvo funciona normal. Tanto em modo projeto ou execução. Uso o VB 6.0 e Crystal 8.5 - O sistema é WinXP SP3. Alguém pode me ajudar? Desde já, agradeço a atenção.