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