Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas

Attribute VB_Name = "ModuleUtils"
' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01

Option Explicit

' Access the GetUserNameA function in advapi32.dll and call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

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

' via: http://support.microsoft.com/kb/q152970/
Function Get_User_Name() As String

    ' Dimension variables
    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String
    
    ' Get the user name minus any trailing spaces found in the name.
    ret = GetUserName(lpBuff, 25)
    Get_User_Name = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    
End Function

1	joko	1.1	Attribute VB_Name = "ModuleUtils"
2	joko	1.3	' (c) Andreas Motl <andreas.motl@ilo.de>, 2007-09-01
3
4	joko	1.1	Option Explicit
5
6	joko	1.3	' Access the GetUserNameA function in advapi32.dll and call the function GetUserName.
7			Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
8
9	joko	1.1	Public Sub slog(logString As String)
10			'Text1.Text = Text1.Text & logString & vbCrLf
11			DoEvents
12			End Sub
13
14			Public Function DirectoryExists(Dir As String) As Boolean
15			Dim oDir As New Scripting.FileSystemObject
16			DirectoryExists = oDir.FolderExists(Dir)
17			End Function
18
19			Public Function getCmdArg(name As String) As String
20
21			Dim args() As String
22			args = Split(Command$, " ")
23
24			Dim i As Integer
25	joko	1.2	'MsgBox UBound(args)
26	joko	1.1	For i = 0 To UBound(args)
27	joko	1.2	'MsgBox i & ": " & args(i)
28			If args(i) = name Then
29			getCmdArg = args(i + 1)
30			'i = i + 1
31			Exit Function
32			End If
33	joko	1.1	Next
34
35			End Function
36	joko	1.3
37			' via: http://support.microsoft.com/kb/q152970/
38			Function Get_User_Name() As String
39
40			' Dimension variables
41			Dim lpBuff As String * 25
42			Dim ret As Long, UserName As String
43
44			' Get the user name minus any trailing spaces found in the name.
45			ret = GetUserName(lpBuff, 25)
46			Get_User_Name = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
47
48			End Function
49
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26