Access VBA调用Shell.Application出现对象不支持该动作错误

2017-09-06 14:29:00
zstmtony
原创
829

Access VBA使用以下的代码调用Shell.Application出现对象不支持该动作错误,错误号为445

使用各种方法尝试解决,都不得要领,最后从Items的参数的数据类型入门,解决了问题


    Set   objShell   =   CreateObject( "Shell.Application ") 
        Set   objFolder   =   objShell.BrowseForFolder(0,   "select   folder ",   0,   0) 
        Set   myFolders   =   objFolder.Items() 
        Dim   i   As   Integer 
        For   i   =   1   To   myFolders.Count 
                MsgBox   myFolders.Item(i).Path 
        Next   i 

出现的错误提示如下: