browse folder code..cancel button

Hi I have this code sample
This work correctly, It gives an error pressing cancel button..
I would like to valorize the variable even if CANCEL button is pressed to C: value
How can I do that?
 
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Dim objShell
Dim objFolder
Dim objFolderItem
Dim strPath
Dim objPath

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Selezionare il percorso di salvataggio:", OPTIONS, strPath)

If objFolder Is Nothing Then
ShowOpenFolder="C:"
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

elly00
Hi I have this code sample
This work correctly, It gives an error pressing cancel button..
[...]
If objFolder Is Nothing Then
ShowOpenFolder="C:"
End If
Set objFolderItem = objFolder.Self

That's because when objFolder is Nothing, setting ShowOpenFolder="C:" doesn't change anything about that. Which in turn causes objFolder.Self to fail, because objFolder still is Nothing.

elly00
I would like to valorize the variable even if CANCEL button is pressed to C: value
How can I do that?

You make sure that objFolder references an appropriate object before trying to access objFolder.Self:

If objFolder Is Nothing Then
 Set objFolder = objShell.Namespace("C:\")
End If
Set objFolderItem = objFolder.Self