Description:

Causes the control to browse the contents of one of the Windows special folders.

  Syntax:

FileViewer1.SetToSpecialFolder(ByVal NewFolder As SHFolders)

  Adjustments:

NewFolder

one of the SHFolder values

  Remarks:

Returns true if the special folder was found.

  Example:

   

1.
If FileV1.SetToSpecialFolder(CSIDL_DESKTOP)

2.
If FileV1.SetToSpecialFolder(CSIDL_DESKTOP) = False Then
'   MsgBox ("can't navigate to special folder")
Else
  'get special folder path
  Label2.Caption = FileV1.GetSpecialFolder(CSIDL_DESKTOP)
  'or read the filev1.currentfolder property
End If