Returns information from a VSFlex archive file.
Syntax
[form!]vsFlexGrid.ArchiveInfo(ArcFileName As String, InfoType As ArchiveInfoSettings, [ Index As Variant ])
Remarks
This property returns information from an archive file created with the Archive method.
The parameters for the ArchiveInfo property are described below:
ArcFileName as String
This parameter contains the name of the archive file, including its path.
InfoType As ArchiveInfoSettings
The type of information to retrieve from the archive. Valid settings are:
|
Constant |
Value |
Description |
|
arcFileCount |
0 |
Returns the number of files in the archive. |
|
arcFileName |
1 |
Returns the name of a file in the archive. |
|
arcFileSize |
2 |
Returns the original size of a file in the archive. |
|
arcFileCompressedSize |
3 |
Returns the compressed size of a file in the archive. |
|
arcFileDate |
4 |
The date of the last modification made to a file in the archive. |
Index As Integer (optional)
This parameter specifies which file in the archive should be processed. It ranges from zero to the number of files in the archive minus 1. It may be omitted only when retrieving the file count.
For example, the code below lists the contents of an archive file.
Sub ArcList(fn$)
Dim i&, cnt&
With fg
On Error Resume Next
cnt = .ArchiveInfo(fn, arcFileCount)
Debug.Print "Archive "; fn; " ("; cnt; " files)"
Debug.Print "Name", "Size", "Compressed", "Date"
For i = 0 To cnt - 1
Debug.Print .ArchiveInfo(fn, arcFileName, i), _
.ArchiveInfo(fn, arcFileSize, i), _
.ArchiveInfo(fn, arcFileCompressedSize, i), _
.ArchiveInfo(fn, arcFileDate, i)
Next
If Err <> 0 Then MsgBox "An error occurred while processing " & fn
End With
End Sub
Data Type
Variant