Hows it going everyone. Right now I am working on a project with VS2008 that parses directory and subdirectories and lists all filenames/paths/size/etc. This is working correctly, but I also need to parse the contents of zip files without actually unzipping them. What would be the easiest method to return the information on the files in a zip file? (Filename, Size, etc). Heres the code that I currently have to parse directories and subdirectories.
Sub Parse(ByVal ThisFolder As String)
FSO = New Scripting.FileSystemObject
Dim soFolder As Folder
Dim soFile As File
Dim soFolders As Folders
soFolder = FSO.GetFolder(ThisFolder)
' Files in this directory
For Each soFile In soFolder.Files
' TestdbDataSet.Table1.Rows.Add(CStr(ThisFolder), CStr(soFile.Name), CStr(soFile.Type), CStr(soFile.Size))
Table1TableAdapter.Insert(CStr(ThisFolder), CStr(soFile.Name), CStr(soFile.Type), CStr(soFile.Size))
Next soFile
' Recurse Subdirectories
soFolders = soFolder.SubFolders ' parses subfolders
For Each soFolder In soFolders
Parse(soFolder.Path)
Next soFolder
soFolders = Nothing
soFolder = Nothing
soFile = Nothing
End Sub
Last edited by cellus205; Jul 25th, 2008 at 1:02 pm.