如何用shell.application对象访问操作文件夹?

可以使用shell.application对象的NameSpace属性返回文件夹Folder对象,它的语法如下:

其中vDir参数为要返回的文件夹的对象的路径
这里特别注意vDir参数一定要以Variant类型传入,否则无法返回文件夹对象。

比如如下的代码:

oFolder对象始终返回Nothing,因为Dim sPath As String,需要改为 Dim sPath As Variant。

正确的代码如下:

当返回后,就可以开始访问文件夹的各种属性了,比如以下代码可以返回文件夹下有多少个文件:

Shell Folder对象具有以下常用的属性和方法:

ParentFolder属性:返回文件夹的上一级文件夹对象。

Title属性:返回文件夹的名称。

NewFolder方法:在当前文件夹下创建一个新的文件夹。

Items方法:返回当前文件夹下的所有项目集合对象FolderItems(含文件、快捷方式等等)。

CopyHere方法:把文件复制到当前文件夹下。

以下是一个解压缩zip文件的代码:





       

发表评论