Salvando/Convertendo

[Lucas Conceição]

Bom dia a todos,

Espero que possam me ajudar,

POis eu realmente estou em cima do prazo,

Já postei no fórum da autodesk mas ninguém conseguiu me ajudar.

O meu problema é o seguinte:

- Eu tenho um programa que desenvolvi para converter extensões e versões dos desenhos do AutoCAD,

POr exemplo: o cara me abre um desenho .dwg versão 2000(ac2000_dwg) e dai eu salvo para a extensão que ele quiser como por exemplo .dwg versão 2004 (ac2004_dwg).

- Enquanto eu coloco de 1 em 1 ele faz numa boa, Mas quando tem 2 desenhos pra converter ele faz o seguinte:

1º Abre o primeiro desenho e salva no farmato desejado(até ai tudo bem),

Mas nos desenhos que seguem ele faz o mesmo procedimento, o problema é que nos outros o arquivo não é salvo,

Simplesmente não aparece arquivo nenhum na pasta que foi salvo.

Vou postar uma parte do código:

Dim i As Integer
Dim j As Integer
Dim dwgName As String

For j = ListBox5.ListCount - 1 To 0 Step -1
 'For j = 0 To ListBox5.ListCount - 1
    MsgBox ("ListaT (converter): " & listaT(j))
     dwgName = listaT(j)
     
    If listaT(j) = "" Then
    
    ElseIf Dir(dwgName) <> "" Then
       
        ThisDrawing.Application.Documents.Open dwgName
        ZoomExtents
        
        If ComboBox1.Text = ComboBox1.List(0) Then
   
          'ThisDrawing.Application.Preferences.OpenSave.SaveAsType = ac2000_dwg
          'ThisDrawing.SaveAs (strR & "_2000")
          ThisDrawing.SaveAs strR & "_2000", ac2000_dwg
          ThisDrawing.Save
          ThisDrawing.Close False

'----- Salvar em formato AutoCAD 2007 DXF
        Else
          'ThisDrawing.Application.Preferences.OpenSave.SaveAsType = ac2007_dxf
          'ThisDrawing.SaveAs (strR & "_2007")
          ThisDrawing.SaveAs strR & "_2007", ac2007_dxf
          ThisDrawing.Save
          ThisDrawing.Close False
        
          End If
    Else
        MsgBox "File " & dwgName & " does not exist."
    End If
              
Next j

Lá onde está "ThisDrawing.Close já coloquei true mas também não adiantou.

Obrigado desde já, =)

Lucas.