Hi Marios,
Try this. Copy and paste the following code into Notepad and save it as "Dialog.vbs"
'************************************************
' File: Dialog.vbs (WSH sample in VBScript)
' Author: (c) G. Born
'
' Using the shell dialog box to select a folder
'************************************************
Option Explicit
' Flags for the options parameter
Const BIF_returnonlyfsdirs = &H0001
Const BIF_dontgobelowdomain = &H0002
Const BIF_statustext = &H0004
Const BIF_returnfsancestors = &H0008
Const BIF_editbox = &H0010
Const BIF_validate = &H0020
Const BIF_browseforcomputer = &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000
Dim wsh, objDlg, objF
' Get Application object of the Windows shell.
Set objDlg = WScript.CreateObject("Shell.Application")
' Use the BrowseForFolder method.
' For instance: Set objF = objDlg.BrowseForFolder _
' (&H0, "Folder for recovery point storage", &H10, "C:\")
Set objF = objDlg.BrowseForFolder (&H0, _
"Folder for recovery point storage", _
BIF_returnonlyfsdirs)
' Here we use the first method to detect the result.
If IsValue(objF) Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
' Here we use TypeName to detect the result.
If InStr(1, TypeName(objF), "Folder") > 0 Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
Function IsValue(obj)
' Check whether the value has been returned.
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err 0 Then
IsValue = False
Else
IsValue = True
End If
On Error GoTo 0
End Function
'*** End
Using command prompt, run the script by typing "wscript dialog.vbs". See if you have "My Computer" there for selection.
If it doesn't show, check your system files by running "sfc /scannow" or contact Microsoft for help.
If it does show, log a tech case with Symantec.
