Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas

Attribute VB_Name = "ModuleUtils"
Option Explicit

Public Sub slog(logString As String)
    'Text1.Text = Text1.Text & logString & vbCrLf
    DoEvents
End Sub

Public Function DirectoryExists(Dir As String) As Boolean
    Dim oDir As New Scripting.FileSystemObject
    DirectoryExists = oDir.FolderExists(Dir)
End Function

Public Function getCmdArg(name As String) As String
    
    Dim args() As String
    args = Split(Command$, " ")

    Dim i As Integer
    'MsgBox UBound(args)
    For i = 0 To UBound(args)
        'MsgBox i & ": " & args(i)
        If args(i) = name Then
            getCmdArg = args(i + 1)
            'i = i + 1
            Exit Function
        End If
    Next

End Function
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	joko	1.2	'MsgBox UBound(args)
21	joko	1.1	For i = 0 To UBound(args)
22	joko	1.2	'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	joko	1.1	Next
29
30			End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26