' お気に入り
Set objFolder = Shell.NameSpace( 6 )
' カレント
Set objThisFolder = Shell.NameSpace( WshShell.CurrentDirectory )

Call objThisFolder.CopyHere( objFolder.Self, 0 )

' クッキー
Set objFolder = Shell.NameSpace( &H21 )
' カレント
Set objThisFolder = Shell.NameSpace( WshShell.CurrentDirectory )

Call objThisFolder.CopyHere( objFolder.Self, 0 )