Referenzen speichern
Dim g_DirToHoldFiles Function DPM_OnCreate(DCRoot) g_DirToHoldFiles = "E:\temp\referenz" End Function Function DPM_OnProcessDocument(DCDocument) SaveTifAndAddx(DCDocument) End Function Function SaveTifAndAddx(DCDocument) 'FileSystem-Objekt öffnen set fso = CreateObject("Scripting.FileSystemObject") 'Verzeichnis If not fso.FolderExists(g_DirToHoldFiles) Then f = fso.CreateFolder(g_DirToHoldFiles)…