Ich habe mir die Frage soeben selbst beantwortet, der Fehler lag im fehlerhaften Beispielscript.

Dieser Code ist richtig:

SubOnCreate()

SetFSO = CreateObject("Scripting.FileSystemObject")

RelPath = "\Reports\Logos\comos.jpg"

Sign = Project.GetDocumentDirectory + RelPath

SetobjPrjCDeviceSystem = Project.CDeviceSystem

     If Not(FSO.FileExists(Sign))Then

          If Not(objPrjCDeviceSystemIs Nothing)Then

          Sign = objPrjCDeviceSystem.GetDocumentDirectory + RelPath

          End If

     End If

If(FSO.FileExists(Sign))Then SetPicture = LoadPicture(Sign)

End Sub

Es bleibt allerdings dann immer noch das Problem mit fehlenden Lese/Schreibrechten der User.

Markus