...
' Unterordner: Tag 
szOrdner = szOrdner & "\" [color=red]&[/color] Mid(Date, 4, 2)
...

Dim objFileSystem 
Dim objShell 
Dim szOrdner 
Dim szRegKey 
 
WScript.Sleep 500 
 
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 
Set objShell = CreateObject("Wscript.Shell") 
 
' Ordner: Jahr-Monat 
szOrdner = "O:\" & Right(Date,4) & "-" & Left(Date, 2) 
If Not (objFileSystem.FolderExists(szOrdner)) Then objFileSystem.CreateFolder( _
  szOrdner) 
 
' Unterordner: Tag 
szOrdner = szOrdner & "\" & Mid(Date, 4, 2) 
If Not (objFileSystem.FolderExists(szOrdner)) Then objFileSystem.CreateFolder( _
  szOrdner) 
 
SzRegKey = "HKEY_CURRENT_USER\Software\HeadLight\GetRight\Config\DefaultDir"
ObjShell.RegWrite szRegKey,szOrdner

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de