IShellDispatch.NameSpace メソッド
指定した フォルダーの Folder オブジェクトを作成して返します。
構文
retVal = IShellDispatch.NameSpace(
vDir
)
IShellDispatch.NameSpace( _
ByVal vDir As Variant _
) As Folder
パラメーター
-
vDir [in]
-
型: Variant
Folder オブジェクトを作成する フォルダー 。 これには、フォルダーのパスを指定する文字列、または ShellSpecialFolderConstants 値のいずれかを指定する文字列を指定できます。 ShellSpecialFolderConstants で見つかった定数名は Visual Basic では使用できますが、VBScript や JScript では使用できません。 このような場合は、その代わりに数値を使用する必要があります。
戻り値
JScript
種類: フォルダー**
指定したフォルダーの Folder オブジェクトへのオブジェクト参照。 フォルダーが正常に作成されない場合、この値は null を返します。
VB
種類: フォルダー**
指定したフォルダーの Folder オブジェクトへのオブジェクト参照。 フォルダーが正常に作成されない場合、この値は null を返します。
注釈
このメソッドは、 Shell.NameSpace メソッドを使用して実装され、アクセスされます。
例
次の例は、JScript、VBScript、Visual Basic での NameSpace の使用を示しています。
Jscript:
<script language="JScript">
function fnShellNameSpaceJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfWINDOWS = 36
objFolder = objShell.NameSpace(ssfWINDOWS);
if (objFolder != null)
{
alert(objFolder.Title);
}
}
</script>
Vbscript:
<script language="VBScript">
function fnShellNameSpaceVB()
dim objShell
dim objFolder
set objShell = CreateObject("shell.application")
set objFolder = objShell.NameSpace("C:\")
if (not objFolder is nothing) then
alert(objFolder.Title)
end if
set objFolder = nothing
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnShellNameSpaceVB()
Dim objShell As Shell
Dim objFolder As Folder
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPERSONAL)
If (Not objFolder Is Nothing) Then
Debug.Print objFolder.Title
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
要件
要件 | 値 |
---|---|
サポートされている最小のクライアント |
Windows 2000 Professional、Windows XP [デスクトップ アプリのみ] |
サポートされている最小のサーバー |
Windows 2000 Server [デスクトップ アプリのみ] |
ヘッダー |
|
IDL |
|
[DLL] |
|