<SCRIPT LANGUAGE= "VBScript" >
<! --
 
  function fnCreateFolder()
      dim oShell    
      dim oFolder
      dim sDir

      sDir =  "C:\SomePath"  
      set oShell = CreateObject( "Shell.Application" )
      set oFolder = oShell.NameSpace(sDir)  
  end function
 -->  
 
</SCRIPT>

DIDiskQuotaUser Microsoft.DiskQuota. 1  
DiskQuotaControl Cannot late bind 
Folder Shell.Application.NameSpace( "..." ) 
Folder2 Shell.Application.NameSpace( "..." ) 
FolderItem Shell.Application.NameSpace( "..." ).Self or Folder.Items.Item or Folder.ParseName 
FolderItems Folder.Items 
FolderItems2 Folder.Items 
FolderItemVerb Shell.NameSpace( "..." ).Self.Verbs.Item() 
FolderItemVerbs FolderItem.Verbs or Shell.NameSpace( "..." ).Self.Verbs 
IShellDispatch2 Shell.Application 
IShellLinkDual2 Shell.NameSpace( "..." ).Self.GetLink or Shell.NameSpace( "..." ).Items().GetLink  
Shell Shell.Application 
ShellFolderItem Shell.NameSpace( "..." ).Self or Shell.NameSpace( "..." ).Items() 
ShellFolderView Cannot late bind 
ShellFolderViewOC Cannot late bind 
ShellLinkObject Shell.NameSpace( "..." ).Self.GetLink or Shell.NameSpace( "..." ).Items().GetLink 
ShellUIHelper Cannot late bind 
ShellWindows Shell.Windows or ShellWindows._NewEnum 
WebViewFolderContents Cannot late bind