Wenn der Name der DXF darin steht, kannst Du sie zeilenweise auslesen und nach dem Namen suchen. Dann die Datei schließen und unter dem Namen speichern.
Auslesen geht so (in zeilen hast Du dann die einzelnen Textzeilen, kannst ja abbrechen, wenn Du den Dateinamen hast):
Dim sLine As String
Dim zeilen(1 To 999999) As String
Dim Zeile As Double
Dim Fnr As Long
Zeile = 0
Fnr = FreeFile
Open ("C:\TEMP\Dateiname.DXF") For Input As Fnr
While Not EOF(Fnr)
Zeile = Zeile + 1
Line Input #Fnr, sLine
zeilen(Zeile) = sLine
Wend
Close Fnr
------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?
[Diese Nachricht wurde von Lutz Federbusch am 24. Okt. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP