Private Sub cmd_DeletDXF_Click(sender As System.Object, e As _
      System.EventArgs) Handles cmd_DeletDXF.Click
        Dim DeleteFile As String
 
        '--Laden aus der Config_ACAD_WW_Optionen.xml------------------
        Dim DXFFileLoad As New XmlDocument
        DXFFileLoad.Load(XML_Config_File)
        Dim root As XmlElement = DXFFileLoad.DocumentElement
 
        Try
            If LB_DXF.SelectedIndex >= 0 Then
                For i As Integer = LB_DXF.SelectedItems.Count - 1 To 0 Step -1
                    '--Verzeichnis laden--------------------
                    DeleteFile = root.GetElementsByTagName("DXFFile")( _
                      0).InnerText & "\" & Me.LB_DXF.SelectedItem(i).ToString
                    '--Datei auf Schreibschutz prüfen und wenn ja 
                    ' entfernen--------------
                    If System.IO.File.Exists(DeleteFile) Then
                        Dim oInfo As New FileInfo(DeleteFile)
                        With oInfo
                            If .Attributes And FileAttributes.ReadOnly Then
                                .Attributes = .Attributes Xor _
                                  FileAttributes.ReadOnly
                            End If
                        End With
                    End If
                    '--Datei löschen aus dem Verzeichnis 
                    ' löschen-----------------------
                    My.Computer.FileSystem.DeleteFile(DeleteFile)
                    '--ListboxItem 
                    ' löschen---------------------------------------------
                    LB_DXF.Items.RemoveAt(LB_DXF.SelectedIndices(i))
                Next i
            Else
                MsgBox("Es wurde keine Auswahl getroffen", _
                  MsgBoxStyle.Information)
            End If
        Catch ex As System.Exception
            MsgBox("Problem:" & vbCrLf & ex.Message)
        End Try
    End Sub

mfg.

Dirk