Oharra
Baimena behar duzu orria atzitzeko. Direktorioetan saioa has dezakezu edo haiek alda ditzakezu.
Baimena behar duzu orria atzitzeko. Direktorioak alda ditzakezu.
Contiene el objeto FolderItem de la carpeta.
Esta propiedad es de solo lectura.
Sintaxis
Self = Folder2.Self
Valor de propiedad
Objeto que se evalúa como el objeto FolderItem de la carpeta.
Ejemplos
En el ejemplo siguiente se usa Self para recuperar folderItem para la carpeta C:\Windows. Se muestra un uso adecuado para JScript, VBScript y Visual Basic.
Jscript:
<script language="JScript">
function fnFolder2ObjectSelfJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder2 = new Object;
objFolder2 = objShell.NameSpace("C:\\WINDOWS");
if (objFolder2 != null)
{
var objFolderItem = new Object;
objFolderItem = objFolder2.Self;
if (objFolderItem != null)
{
//Add code here.
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolder2ObjectSelfVB()
dim objShell
dim objFolder2
set objShell = CreateObject("shell.application")
set objFolder2 = objShell.NameSpace("C:\WINDOWS")
if (not objFolder2 is nothing) then
dim objFolderItem
set objFolderItem = objFolder2.Self
if (not objFolderItem is nothing) then
'Add code here.
end if
end if
set objFolder2 = nothing
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub btnFolder2Self_Click()
Dim objShell As Shell
Dim objFolder2 As Folder2
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace("C:\WINDOWS")
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder2.Self()
If (Not objFolderItem Is Nothing) Then
'Add code here.
End If
Set objFolderItem = Nothing
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Requisitos
| Requisito | Value |
|---|---|
| Cliente mínimo compatible |
Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio] |
| Servidor mínimo compatible |
Windows Server 2003 [solo aplicaciones de escritorio] |
| Encabezado |
|
| IDL |
|
| Archivo DLL |
|
Consulte también