Question

我的主要目标是检查zip文件中是否存在文件夹。为此，我试图浏览各种文件和文件夹。我使用以下代码：

strFile = "C:\Users\temp.zip"
Set objApp = CreateObject("Shell.Application")
Set objContents = objApp.NameSpace(strFile).Items()

For Each objItem in objContents
    WScript.Echo objItem.Name
    If objItem.IsFolder Then
        GetSubFolders(objItem)
    End If
Next

Sub GetSubFolders(objSubItem)
    Set objFolder = objSubItem.GetFolder

    For Each objItem2 in objFolder.Items()
        WScript.Echo objItem2.Name
        If objItem2.IsFolder Then
            GetSubFolders(objItem2)
        End If
    Next
End Sub

问题是我似乎无法弄明白，如何检查我所在的等级。

我想到了这个：

levelDepth = Len(strFile) - Len(Replace(strFile, "\", ""))

告诉我如何＆＃34;深＆＃34; zip文件是。如果我可以获得objItem和objItem2的完整路径，那么我可以使用相同的方法。将两者相互减去，得到当前目录或文件在zip文件中的深度。

Answer 1

Path属性应该为您提供项目的完整路径。

获取列表中项目的路径

1 个答案: