maba100

Das Ziel wäre ein Script zu haben, das alle Schriften installiert die in einem bestimmten Ordner liegen und prüft ob sie schon auf dem Client installiert sind. Grüsse

Morgen, habe das "next" entfernt und das Script läuft nun durch. Jedoch kommt die Meldung immer noch das die Schrift bereits installiert ist. Hat jemand noch eine Idee?

' Check each Font if it already is installed For Each oFont In oFolderCopy.Items If oFSO.FileExists(strFontsPath & "\" & oFont.Name) Then next else ' Tell Explorer to copy the Font – this correctly installs it. oApp.Namespace(strFontsPath).CopyHere oFont End If next Kann es sein da hier was nicht stimmt?