CreateTextFile-Methode mit Black im Path

[Easyrider]

Hallo,
ich habe gerade ein Sub zum schreiben von Logs geschaffen.
Dann nach einigem Testen fiel mir auf das es bei Pfaden mit Leerzeichen nicht funktioniert.
Ist auch verständlich, jedoch wie umgehe ich diesen Fehler?
In DOS mache ich einfach: ""........."" und in VBScript?

Hier nochmal für alle die sowas mal brauchen, ich denke mal das die meisten von euch soetwas schon haben?!?

Sub Logger(Txt)'zum schreiben einer Textzeile in eine Logdatei die den namen des Scripts trägt.
Set fso = CreateObject("Scripting.FileSystemObject")
  Set LogTxt = fso.CreateTextFile("..\" & WScript.ScriptName & ".txt", True)
  LogTxt.WriteLine(now() & "    " & Txt)
  LogTxt.Close

Hier nochmal die Überarbeitete Version

Sub Logger(Txt)'zum schreiben einer Textzeile in eine Logdatei die den namen des Scripts trägt.
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(Pfad & ".log")) Then
  	Set LogTxt = fso.OpenTextFile(Pfad & ".log", 8, True)
  	LogTxt.WriteLine(now() & "    " & Txt & VBCRLF)
   	LogTxt.Close
  Else	
  	Set LogTxt = fso.CreateTextFile(Pfad & ".log", True)
   	LogTxt.WriteLine(now() & "    " & Txt & VBCRLF)
   	LogTxt.Close
 End If
End Sub