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
    For i = 0 To UBound(args)
        MsgBox args(i)
        i = i + 1
    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	For i = 0 To UBound(args)
21	MsgBox args(i)
22	i = i + 1
23	Next
24
25	End Function
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26