求解：此段代码为什么不能打开当前PPT文档所在的文件夹？
Private Sub CommandButton1_Click() Dim MyFolderString As String MyFolderString = Dir(ActivePresentation.Path, vbDirectory) Debug.Print MyFolderString ActivePresentation.FollowHyperlink Address:=MyFolderString, _ NewWindow:=True, AddHistory:=TrueEnd Sub
