Dateiendung=Right(ThisDoc.FileName(True),3)
strFolder = "Z:\ordner\" & ThisDoc.FileName(False) 'without extension 

 				If Dateiendung = "ipt" Or Dateiendung = "iam" Then
 					'Speichern als STP mit aktuellen Dateinamen und Pfad
				
					iLogicVb.UpdateWhenDone = True
					ThisDoc.Document.SaveAs(strFolder & ".stp", True)
				Else
 					'Speichern als PDF und DXF mit aktuellen Dateinamen und Pfad
					 ThisDoc.Document.SaveAs(strFolder & ".pdf", True)
					 ThisDoc.Document.SaveAs(strFolder & ".dxf", True)
 				End If
	
ThisDoc.Launch("Z:\ordner\")