1 |
Attribute VB_Name = "ModuleUtils" |
2 |
Option Explicit |
3 |
|
4 |
Public Sub slog(logString As String) |
5 |
'Text1.Text = Text1.Text & logString & vbCrLf |
6 |
DoEvents |
7 |
End Sub |
8 |
|
9 |
Public Function DirectoryExists(Dir As String) As Boolean |
10 |
Dim oDir As New Scripting.FileSystemObject |
11 |
DirectoryExists = oDir.FolderExists(Dir) |
12 |
End Function |
13 |
|
14 |
Public Function getCmdArg(name As String) As String |
15 |
|
16 |
Dim args() As String |
17 |
args = Split(Command$, " ") |
18 |
|
19 |
Dim i As Integer |
20 |
'MsgBox UBound(args) |
21 |
For i = 0 To UBound(args) |
22 |
'MsgBox i & ": " & args(i) |
23 |
If args(i) = name Then |
24 |
getCmdArg = args(i + 1) |
25 |
'i = i + 1 |
26 |
Exit Function |
27 |
End If |
28 |
Next |
29 |
|
30 |
End Function |