Синтаксис:
NameSpace(<Path>)
Назначение: получение объекта виртуальной папки проводника. Возвращает объект «Folder».
Параметры:
Описание: <Path> может быть числом, определяющим одну из специальных папок Windows.
Пример №1:
Set objShellApp = CreateObject("Shell.Application") Set objFolder = objShellApp.NameSpace("C:\") MsgBox objFolder.Title, vbInformation
Пример №2:
'Вывод путей и заголовков всех возможных специальных папок. On Error Resume Next Set List = CreateObject("Scripting.Dictionary") List.Add &H1d, "ssfALTSTARTUP" List.Add &H1a, "ssfAPPDATA" List.Add &Ha, "ssfBITBUCKET" List.Add &H1e, "ssfCOMMONALTSTARTUP" List.Add &H23, "ssfCOMMONAPPDATA" List.Add &H19, "ssfCOMMONDESKTOPDIR" List.Add &H1f, "ssfCOMMONFAVORITES" List.Add &H17, "ssfCOMMONPROGRAMS" List.Add &H16, "ssfCOMMONSTARTMENU" List.Add &H18, "ssfCOMMONSTARTUP" List.Add &H3, "ssfCONTROLS" List.Add &H21, "ssfCOOKIES" List.Add &H0, "ssfDESKTOP" List.Add &H10, "ssfDESKTOPDIRECTORY" List.Add &H11, "ssfDRIVES" List.Add &H6, "ssfFAVORITES" List.Add &H14, "ssfFONTS" List.Add &H22, "ssfHISTORY" List.Add &H20, "ssfINTERNETCACHE" List.Add &H1c, "ssfLOCALAPPDATA" List.Add &H27, "ssfMYPICTURES" List.Add &H13, "ssfNETHOOD" List.Add &H12, "ssfNETWORK" List.Add &H5, "ssfPERSONAL" List.Add &H4, "ssfPRINTERS" List.Add &H1b, "ssfPRINTHOOD" List.Add &H28, "ssfPROFILE" List.Add &H26, "ssfPROGRAMFILES" List.Add &H2, "ssfPROGRAMS" List.Add &H8, "ssfRECENT" List.Add &H9, "ssfSENDTO" List.Add &Hb, "ssfSTARTMENU" List.Add &H7, "ssfSTARTUP" List.Add &H25, "ssfSYSTEM" List.Add &H15, "ssfTEMPLATES" List.Add &H24, "ssfWINDOWS" Set objShellApp = CreateObject("Shell.Application") ResStr = vbNullString For Each It In List Set objFolder = objShellApp.NameSpace(It) AddStr = List.Item(It) & " (" & objFolder.Self.Path & ") " & objFolder.Title If Err.Number <> 0 Then AddStr = List.Item(It) & " Папка не найдена" Err.Clear End If ResStr = ResStr & AddStr & vbCrLf Next ShowInNotepad(ResStr) 'Процедура отображает переданную строку в блокноте Sub ShowInNotepad(StrToFile) Set FSO = CreateObject("Scripting.FileSystemObject") TempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName Set TxtFile = FSO.CreateTextFile(TempPath) TxtFile.WriteLine(StrToFile) TxtFile.Close CreateObject("WScript.Shell").Run "notepad.exe " & TempPath 'WScript.Sleep 1000 'Ожидание, чтобы блокнот запустился 'FSO.DeleteFile(TempPath) End Sub
Если у Вас есть вопросы, жалобы или предложения по работе нашей компании, напишите нам Нам важно любое мнение. Спасибо.