Code for VB:
Code: Select all
z = UBound(Split(CreateObject("WScript.Shell").exec("""Rar.exe"" lb ""rar""").StdOut.ReadAll, Chr(13)))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l -ba -slt ""zip""").StdOut.ReadAll, "Path ="))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l ""zip""").StdOut.ReadAll, Chr(13)))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l -ba -slt ""7z""").StdOut.ReadAll, "Path ="))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l ""7z""").StdOut.ReadAll, Chr(13)))
z = CreateObject("Shell.Application").Namespace("zip").Items.Count
Code: Select all
cmd = """" & Soft & """" & " l -ba -slt " & """" & FilePath & """"
Elements = CreateObject("WScript.Shell").exec(cmd).StdOut.ReadAll
z = Ubound(Split(Elements , "Path ="))