Hallo bigbrother25 , versuchs mal hiermit . Den Namen für das Protokoll im Messprogramm eingeben oder abfragen und in eine Variable setzen. Hyperprotokoll erzeugen und abspeichernlassen . Basicscript am Programmende einfügen . Das Script so abändern das der Name des ersten erzeugten Hyperprotokolls geladen wird . Dieser wird dann kopiert mit neuem Namen versehen und der Orginalhyper gelöscht , so dass der nächste wieder genauso heisst . KOMMENTAR/DOK,NEIN,. KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,== Variablen benennen KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,. ZUWEISEN/NAME_HYPER = "Euere_Bezeichnung" KOMMENTAR/DOK,NEIN,. KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,== Hyperprotokoll KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,. CS1 =PROTOKOLL/DATEINAME= G:\W810690\W810693\MESSPROG\MESSPROGRAMME_IN_ARBEIT\ANDREAS\DATENKOPF_TESTPROGRAMME\HYPERPROTOKOLL_TEST.RPT, AUTODRUCKEN=PDF PARAM/NAMEREPORT.TEXT=NAME_HYPER PARAM/= ENDEPROTOKOLL/ KOMMENTAR/DOK,NEIN,. KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,== Basic Script KOMMENTAR/DOK,NEIN,==================================================================================== KOMMENTAR/DOK,NEIN,. CS2 =SKRIPT/DATEINAME= G:\W810690\W810693\MESSPROG\MESSPROGRAMME_IN_ARBEIT\ANDREAS\DATENKOPF_TESTPROGRAMME\HYPERNAME.BAS FUNKTION/Main,EINBLENDEN=JA,, STARTSKRIPT/ ENDESKRIPT/ Hier das Script : Sub Main( ) '---------------------------------------------------------------------------------' ' PCDMIS Programm öffnen '---------------------------------------------------------------------------------' Dim App As Object Set App = CreateObject ("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram '---------------------------------------------------------------------------------' ' Variablen aus PCDMIS auslesen '---------------------------------------------------------------------------------' Dim Var1 As Object Set Var1 = Part.GetVariableValue ("NAME_HYPER") 'Die Variable mit dem Namen fürs Hyperprotokoll ' Var2=Var1.StringValue '---------------------------------------------------------------------------------' ' Ändern des Filenamens des ebend abgespeicherten Hyperprotokolles '---------------------------------------------------------------------------------' Dim SourceFile,DestinationFile SourceFile="Hyperprotokoll_Test001.pdf" 'Name des 1. Hyperprotokolles! DestinationFile="Messprotokoll_" +Var2 + ".pdf" FileCopy SourceFile,DestinationFile ' Kopieren 1. Hyperprotokoll in neue Datei ! Kill SourceFile ' Hier wird das 1. Hyperprotokoll wieder gelöscht ' '---------------------------------------------------------------------------------' ' Programm Ende '---------------------------------------------------------------------------------' End Sub wenn du noch Fragen hast , bitte ein bischen Geduld , da ich bis 11.08 Urlaub habe . Gruß Andreas