Language="VBSCRIPT"

Sub CATMain()

folderinput = InputBox ("Wo isch das Zeugs?","Eingabe","Qeullordner\",500,1000)
folderoutput = InputBox ("Wohi wotsch es?","Eingabe","Zielordner\",500,1000)

Dim fs, f, f1, fc, s 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(folderinput) 
Set fc = f.Files 

For Each f1 in fc 

	Dim PartDocument1 As Document
	Set documents1 = CATIA.Documents
	Dim drawingDocument1 As Document

	PFADEINGABE =  folderinput & f1.name
	Set drawingDocument1 = documents1.Open(PFADEINGABE) 

	PFADAUSGABE = folderoutput & f1.name & ".tif"
	drawingDocument1.ExportData PFADAUSGABE, ".tif"


	s = s & f1.name 
	s = s & vbCrLf 

Next 

CATIA.quit

End Sub