1 |
joko |
1.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 |
|
|
For i = 0 To UBound(args) |
21 |
|
|
MsgBox args(i) |
22 |
|
|
i = i + 1 |
23 |
|
|
Next |
24 |
|
|
|
25 |
|
|
End Function |