VPF::Неправильно возвращает значение метод Path

XPurple

Дата 17.5.2007, 12:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 140
Регистрация: 4.5.2006
Где: Челябинск

Репутация: 1
Всего: 1

Был неприятно удивлен, что метод Path работает корректно с русскоязычными папками только с локальными, с UNC - ресурсами на русском языке выдает каку.

Код


Wscript.Echo "Now for the Sub folders"
                    
Set objFSO = CreateObject("Scripting.FileSystemObject")                
'Если переменной objStartFolder задать UNC путь вида \\server\share, т.е. objStartFolder="\\server\share" ,
'то все будет нормально,
'Если задать папку вида \\server\Шара, то получите ошибку. Можете проверить.
objStartFolder = "C:\myfolder"                        

Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo "the file is:" & objFile.Name

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")                         'bind to cimv2



Set colItems = objWMIService.ExecQuery _                    
    ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & objFile & "'}" _     
        & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")  

For Each objItem in colItems                            
    Wscript.Echo "The domain is:" & objItem.ReferencedDomainName        'echo owner etc
    Wscript.Echo "The owner is:" & objItem.AccountName
    WSCript.Echo "==============="
Next
Next

В VB6 ,естественно, тоже самое.

С чем это ,интересно, связано и как это обойти ?

Это сообщение отредактировал(а) XPurple - 17.5.2007, 12:13

--------------------

Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего. Не помню, кто сказал, может быть, я (с)

Tectoder

Дата 17.5.2007, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 202
Регистрация: 13.3.2007

Репутация: нет
Всего: 8

У меня windows vsita, все работает.
Может быть, vbs-файл имеет не правильную кодировку?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »