InvokeMember дает отличный результат, чем прямой вызов

Question

Я вызываю Shell.BrowseForFolder в VB.NET, потому что мне нужно передать произвольный путь в аргументе rootFolder. Поэтому я создании экземпляра в Objet так:

Dim shellType As Type = Type.GetTypeFromProgID("Shell.Application") 
Dim shell = Activator.CreateInstance(shellType) 

Тогда я вызываю:

Dim folder = shell.BrowseForFolder(0, message, &H241, rootFolder) 

Это не работает, как ожидалось (корневая папка F: не используется)

Но если я использую отражение с теми же аргументами:

Dim folder = shellType.InvokeMember("BrowseForFolder", _ 
    BindingFlags.InvokeMethod, Nothing, shell, New Object() {0, message, &H241, _ 
    rootFolder}) 

Это работает!

Но для меня 2 звонки (InvokeMember и прямой вызов) должны давать одинаковые результаты (аргументы идентичны). Что происходит?

Edit:

На самом деле, это работает, если я называю ToString(), или если я положил litteral:

Dim folder = shell.BrowseForFolder(0, message, &H241, rootFolder.ToString()) 

или

Dim folder = shell.BrowseForFolder(0, message, &H241, "F:") 

Но это не работа, если rootFolder является аргументом, например:

Function BrowseForFolder(ByVal message As String, ByVal rootFolder As String) As String 
    Dim shellType As Type = Type.GetTypeFromProgID("Shell.Application") 
    Dim shell = Activator.CreateInstance(shellType) 
    Dim folder = shell.BrowseForFolder(0, message, &H241, rootFolder) 
    If folder Is Nothing Then 
     Return "" 
    End If 
    Return folder.Self.Path 
End Function 

Answer 1

только для меня, чтобы воспроизвести эту проблему под Windows 7 64 бит с vs 2012, должен иметь недопустимый rootFolder как пустую строку или данные дерьма в этой переменной.

вы можете сделать контрольную точку на этой линии:

Dim folder = shell.BrowseForFolder(0, message, &H241, rootFolder) 

и проверить, что rootFolder?

нашел способ попробовать это;

Dim folder = shell.BrowseForFolder(0, message, &H241, rootFolder.ToString()) 

мой код:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim rootFolder As Object = "f:" 
    Dim shellType As Type = Type.GetTypeFromProgID("Shell.Application") 
    Dim shell = Activator.CreateInstance(shellType) 
    Dim folder = shell.BrowseForFolder(0, "message", &H241, rootFolder.ToString()) 
End Sub 

Answer 2

Вы всегда можете использовать FolderBrowserDialog непосредственно:

Dim f As New FolderBrowserDialog 
f.SelectedPath = "f:" 
f.ShowDialog() 

Хотя я не могу видеть, как получить его только шоу F: