Hallo miteinander,
bisher hatten wir unsere Schriftarten alle in einem Ordner gesammelt. Mit einem Script haben alle Clients auf diesen Ordner zugegriffen um neu dazugekommene Schriftarten zu installieren.
Inzwischen sind es so viele Schriftarten geworden das wir uns eine neue Struktur uberlegt haben:
Kunden
--Kunde1
---Schriftarten
-----Schriftart1.ttf
-----Schriftart2.ttf
--Kunde2
---Schriftarten
-----Schriftart1.ttf
-----Schriftart2.ttf
...
Wie bekomme ich das Script hin die unterordner nach den Schriftarten abzusuchen?
Vielen Dank
Adi
bisher hatten wir unsere Schriftarten alle in einem Ordner gesammelt. Mit einem Script haben alle Clients auf diesen Ordner zugegriffen um neu dazugekommene Schriftarten zu installieren.
VB.NET-Quellcode
- Dim objShell, objFSO, wshShell
- Dim strFontSourcePath, objFolder, objFont, objNameSpace, objFile
- Set objShell = CreateObject("Shell.Application")
- Set wshShell = CreateObject("WScript.Shell")
- Set objFSO = createobject("Scripting.Filesystemobject")
- strFontSourcePath = "\\192.XXX.XXX.XXX\Schriftarten\"
- If objFSO.FolderExists(strFontSourcePath) Then
- Set objNameSpace = objShell.Namespace(strFontSourcePath)
- Set objFolder = objFSO.getFolder(strFontSourcePath)
- For Each objFile In objFolder.files
- If LCase(right(objFile,4)) = ".ttf" OR LCase(right(objFile,4)) = ".otf" Then
- If objFSO.FileExists("C:\Windows\Fonts\" & objFile.Name) Then
- Else
- Set objFont = objNameSpace.ParseName(objFile.Name)
- objFont.InvokeVerb("Install")
- Set objFont = Nothing
- End If
- End If
- Next
- Else
- Wscript.Echo "Schriftart Pfad existiert nicht"
- End If
Inzwischen sind es so viele Schriftarten geworden das wir uns eine neue Struktur uberlegt haben:
Kunden
--Kunde1
---Schriftarten
-----Schriftart1.ttf
-----Schriftart2.ttf
--Kunde2
---Schriftarten
-----Schriftart1.ttf
-----Schriftart2.ttf
...
Wie bekomme ich das Script hin die unterordner nach den Schriftarten abzusuchen?
Vielen Dank
Adi
