1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
REM VB.Net program to glob Expert Witness Compression Format file(s) using ewf.net
REM
REM Author: Joachim Metz
REM Creation date: November 3, 2010
REM Modification date: October 16, 2011
Imports EWF
Module Glob
Function Main(ByVal args() As String) As Integer
Dim filenames As Array = Nothing
Dim filename As String = Nothing
Dim program As String = "Glob.exe"
Console.WriteLine(program + " (ewf.net " + EWF.Support.GetVersion() + ")")
If args.Length() <> 1 Then
Console.WriteLine("Usage: " + program + " filename")
Return 1
End If
filenames = EWF.Handle.Glob(args(0))
If filenames.Length() > 0 Then
Console.WriteLine("Filenames:")
For Each filename In filenames
Console.WriteLine(filename)
Next
End If
Console.WriteLine("")
Return 0
End Function
End Module
|
