Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
 
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
  strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinWord.exe"
strTargetPathName = ""
 
' Office Pfad aus der Registry auslesen
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, _
  strTargetPathName, strTargetPath
 
If strTargetPath <> "" Then
  ' gefunden
  strTargetPath = Left(strTargetPath, InstrRev(strTargetPath, "\"))
  StdOut.WriteLine "Office Pfad: " & strTargetPath
 
  ' Pfad, in dem das Script ist, ermitteln
  strScriptPath = Wscript.ScriptFullName
  strScriptPath = Left(strScriptPath, InStrRev(strScriptPath, "\"))
 
  Set FSO = CreateObject("Scripting.FileSystemObject")
  ' Inhalt des Unterordners files in das Office-Verzeichnis kopieren
  ' Überschreibt die Zieldateien!
  FSO.CopyFolder strScriptPath & "files\*", strTargetPath, True
Else
  StdOut.WriteLine "Office-Pfad nicht gefunden!"
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.