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	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
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26