Const ForReading = 1
Const ForWriting = 2 
Const DateiEndung = "dxf"
const sText = "_open """

Set fso = CreateObject("Scripting.FileSystemObject")
Set fso2 = CreateObject("Scripting.FileSystemObject")
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

'Wscript.Echo sCurPath
CurDir = fso2.GetParentFolderName(WScript.ScriptFullName)
'wscript.echo CurDir
set outFile = fso.OpenTextFile("out.scr", ForWriting, true)
Set Folder = fso2.GetFolder(CurDir)

outFile.WriteLine("_.filedia 0")

'search in current folder
for each file in Folder.Files
        sExtension=lcase(fso2.getextensionname(file))
        if sExtension=DateiEndung then 
		  'Wscript.Echo afile1.path & " - " 		  
		  outFile.Write(sText)
		  outFile.WriteLine(file.path & chr(34))
		  outFile.WriteLine("_qsave ")
		   outFile.Write(vbNewline )
		  outFile.WriteLine("_close")
		  end If
Next
'search in subfolders
SearchInSubFolders folder , (outFile)

outFile.WriteLine("_.filedia 1")
outFile.Close

Wscript.Echo "Script File erstellt"
'----------------------------------------------------Subroutines-------------------------------------------------------------
Sub SearchInSubFolders(Folder,outFile)	
	'search in subfolders
	For Each Subfolder In Folder.SubFolders
        For Each file In SubFolder.Files
           ' WScript.Echo file.Name, file.Size
		  sExtension=lcase(fso2.getextensionname(file))
		  if sExtension=DateiEndung then 
		  'Wscript.Echo file.path & " - " 
		  outFile.Write(sText)
		  outFile.WriteLine(file.path & chr(34))
		  outFile.WriteLine("_qsave ")
		  outFile.Write(vbNewline )
		  outFile.WriteLine("_close")
		  end If
        Next
        SearchInSubFolders Subfolder, outFile
    Next
End Sub