'Corrects the 'Error Creating Toolbar' error message when enabling the Quick Launch toolbar
'xp_toolbar_error.vbs
'© Doug Knox - 08/19/2003

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

AppData = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData")
AppData = AppData & "\Microsoft\Internet Explorer\Quick Launch"

If Not fso.FolderExists(AppData) Then
   X = 1
   fso.CreateFolder(AppData)
   MsgBox "Your Quick Launch Folder was recreated.", 4096, "Finished"
Else
   MsgBox "Your Quick Launch Folder already existed and was not recreated.", 4096, "Finished"
End If

Set fso = Nothing
Set WshShell = Nothing