Metode IShellDispatch.NameSpace

Artikel
06/13/2023

Membuat dan mengembalikan objek Folder untuk folder yang ditentukan.

Sintaks

retVal = IShellDispatch.NameSpace(
  vDir
)


IShellDispatch.NameSpace( _
  ByVal vDir As Variant _
) As Folder

Parameter

vDir [in]

Jenis: Varian

Folder untuk membuat objek Folder . Ini bisa menjadi string yang menentukan jalur folder atau salah satu nilai ShellSpecialFolderConstants . Perhatikan bahwa nama konstanta yang ditemukan di ShellSpecialFolderConstants tersedia di Visual Basic, tetapi tidak dalam VBScript atau JScript. Dalam kasus tersebut, nilai numerik harus digunakan di tempatnya.

Menampilkan nilai

JScript

Jenis: Folder**

Referensi objek ke objek Folder untuk folder yang ditentukan. Jika folder tidak berhasil dibuat, nilai ini mengembalikan null.

VB

Jenis: Folder**

Referensi objek ke objek Folder untuk folder yang ditentukan. Jika folder tidak berhasil dibuat, nilai ini mengembalikan null.

Keterangan

Metode ini diimplementasikan dan diakses melalui metode Shell.NameSpace .

Contoh

Contoh berikut menunjukkan penggunaan NameSpace di JScript, VBScript, dan Visual Basic.

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

Persyaratan

Persyaratan	Nilai
Klien minimum yang didukung	Windows 2000 Professional, Windows XP [hanya aplikasi desktop]
Server minimum yang didukung	Windows 2000 Server [hanya aplikasi desktop]
Header	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (versi 4.71 atau yang lebih baru)

Bagikan melalui