If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dxf") = _
  BlockWert(0).TextString & ".dxf" Then
    '--Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!!
    Dim Antwort As VbMsgBoxResult
    Dim DxfVorhanden As String
    DxfVorhanden = BlockWert(0).TextString & ".dxf"
    Antwort = MsgBox("Die Datei - " & DxfVorhanden & " - ist bereits vorhanden," & _
      "wollen Sie die Datei überschreiben?", vbQuestion + vbYesNo, "Frage")
    Select Case Antwort
        Case vbYes
            strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert( _
              0).TextString & ".dwg"
            strFilename = RemoveExtension(ThisDrawing.Name)
            ThisDrawing.Wblock strTempPath, DSSet
            Set objExportFile = ThisDrawing.Application.Documents.Open( _
              strTempPath)
            With objExportFile
            .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, _
              acR18_dxf
            .Close
            '--DXFArray1---------------!!!
            Dim DXFArray1() As Variant
            Dim i As Info
            DXFArray1 = BlockWert(0).TextString & ".dxf"
            For i = 1 To UBound(DXFArray1)
            'Hier die Frage, wie müßte das mit dem Array richte lauten???
            'Mit dem Array habe ich so meine Problem.
            'Wie setzte ich es wo richtig ein?
            '....
            '....
 
 
            '--in Textdatei schreiben--???
            Dim Nr As Integer
            Dim datei As String
            datei = LB_DXFFileLocal.Caption & "\" & "DxfLog.txt"
            Nr = FreeFile
            Open datei For Append As #Nr
            Print #1, BlockWert(0).TextString & ".dxf"
            Close #Nr
            '------------------------------
 
            End With
            Kill strTempPath
            strTempPath = RemoveExtension(strTempPath)
            Set objExportFile = Nothing
        Case vbNo
            Resume Next
            '--DXFArray1---------------!!!
            Dim DXFArray2() As Variant
            Dim e As Info
            DXFArray2 = BlockWert(0).TextString & ".dxf"
            For e = 1 To UBound(DXFArray2)
            'Hier die Frage, wie müßte das mit dem Array richte lauten???
            'Mit dem Array habe ich so meine Problem.
            'Wie setzte ich es wo richtig ein?
            '....
            '....
 
 
            '--in Textdatei schreiben--???
            Dim Nr1 As Integer
            Dim datei1 As String
            datei1 = LB_DXFFileLocal.Caption & "\" & "DxfLog.txt"
            Nr1 = FreeFile
            Open datei1 For Append As #Nr
            Print #1, BlockWert(0).TextString & ".dxf"
            Close #Nr
            '------------------------------
    End Select
Else
    strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & _
      ".dwg"
    strFilename = RemoveExtension(ThisDrawing.Name)
    ThisDrawing.Wblock strTempPath, DSSet
    Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
    With objExportFile
    .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
    .Close
    End With
    Kill strTempPath
    strTempPath = RemoveExtension(strTempPath)
    Set objExportFile = Nothing
End If

VG

Dirk