Option Explicit Dim WSHShell, n, p, t, cn, vbdefaultbutton Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\comdlg32\Placesbar\" t = "Add a Folder to the Places Bar" Dim place, pl, c c = 1 For Each place in Array("Place0","Place1","Place2","Place3","Place4") pl = p & place On Error Resume Next n = WSHShell.RegRead(pl) If Err Then n = "" On Error GoTo 0 cn = InputBox("Type the Path and click OK for Entry " & c, t, n) If cn <> "" Then WSHShell.RegWrite pl, cn c = c + 1 Next