使用Windows 10时出现此错误。
System.InvalidCastException:无法转换类型的COM对象 '系统.__ ComObject'接口类型' Shell32.Shell'。这个操作 失败,因为QueryInterface调用了COM组件 接口与IID' {34936BA1-67AD-4C41-99B8-8C12DFF1E974}'失败了 出现以下错误:未支持此类接口(例外情况) HRESULT:0x80004002(E_NOINTERFACE))。
我的代码:
Dim shell As New Shell32.Shell
Dim objFolder As Shell32.Folder
Dim objItem As Shell32.FolderItem
Dim propertyValue As String = Nothing
Dim propertyName As String = Nothing
objFolder = shell.NameSpace("myFilepath")
objItem = objFolder.ParseName("file.xlsx")
在Windows 7上正常工作。无论如何,它是否适用于Windows 7和Windows 10?