Dim objNet, WSHShell, fso, Param, WSHEnv
Dim Extension

Set objNet      = WScript.CreateObject("WScript.Network")
Set WSHShell    = WScript.CreateObject("WScript.Shell")
Set fso         = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHEnv      = WSHShell.Environment("Process")
Set Param       = Wscript.Arguments
set fs          = createobject("Scripting.filesystemobject")
set ws          = CreateObject("Wscript.shell") 

host_file       = WScript.ScriptName
host_lw         = fso.getAbsolutePathName(name)

Extension = ".dwg"  
SAT_export

Sub SAT_export
  Dateiliste_neu
  set CAD_Script   = fs.opentextfile(host_lw & "\SAT_export.scr", 2, true,0)
  Set temp_liste   = fs.OpenTextFile(host_lw & "\temp-liste.txt")
  Do Until temp_liste.AtEndOfStream
    strLine = temp_liste.Readline
      CAD_Script.writeline "_open " & chr(34) & strLine & chr(34)
      CAD_Script.writeline "Filedia"
      CAD_Script.writeline "0"
      CAD_Script.writeline "_.export " & chr(34) & strLine & ".sat" & chr(34)
      CAD_Script.writeline "_all"
      CAD_Script.writeline ""
      CAD_Script.writeline "Filedia"
      CAD_Script.writeline "1"
      CAD_Script.writeline "_.close"
    Loop
  msgbox("Ich haben <SAT_export.scr> fertig!") 
  CAD_Script.close
End Sub ' SAT_export

sub Listordner (ordner)
  set fs = createobject("Scripting.FileSystemObject")
  Set ordner = fs.getfolder(ordner.path)
  For Each file In ordner.files
    zeile = file.path
    stelle = InStr(1,zeile,Extension,0)
    If stelle <> 0 Then
          set logbuch = fs.opentextfile(host_lw & "\temp-liste.txt", 8, true,0)
	  Logbuch.writeline file.path
	  logbuch.close
    end if
  Next
  For Each unterordner In ordner.subfolders
    Listordner unterordner
  next
end Sub 'Listordner

Sub Dateiliste_neu
  set fs = createobject("Scripting.FileSystemObject")
  set wshell = CreateObject("Wscript.shell")
  Set Dateiauswahl = CreateObject("Shell.Application").BrowseForFolder(0,AuswahlTitel,16,StartOrdner) 
  set Ordner       = Dateiauswahl.Self 
  set logbuch      = fs.opentextfile(host_lw & "\temp-liste.txt", 2, true,0)
  logbuch.close
  Listordner ordner
  Set datenfile = fs.GetFile(host_lw & "\temp-liste.txt")
  Aenderung_Datenfile_alt = datenfile.DateLastModified
  Wshell.run ("notepad.exe " & host_lw & "\temp-liste.txt") 
  wscript.sleep 1000
  msgbox ("Bitte diese Liste bearbeiten" & vbcr & "und dann SPEICHERN!.") _
  & ("Dann geht das Script weiter")
  Aenderung_Datenfile_neu = Aenderung_Datenfile_alt
  do while Aenderung_Datenfile_alt = Aenderung_Datenfile_neu
      Aenderung_Datenfile_neu = datenfile.DateLastModified
      wscript.sleep 1000
  loop
  wscript.sleep 1000
End Sub ' Dateiliste_neu