GetCommandLine Win32 function for VBA/VB
ActiveX RegEdit. ActiveX User account Manager Pure-ASP Upload
Export MDB/DBF from ASP Active LogFile WebChecker ActiveX/ASP Multi Dictionary object

See also	IISTracer, real-time IIS monitor and logging tool. аHuge ASP file upload with progress bar.а

Do you like this article?
Please, rate it
and write review!
Rated:

by Aspin.com users

What do you think?

Top messages

22.3.2003 19:18:41

Read and write SQL image data, store binary file to sql table.

(nbsp;WSH, Database, Conversion, VBScript)

4.5.2002 9:16:43

Send an email from ASP (WSH) using VBSscript, CDONTS and Outlook.

(nbsp;ASP / ASP.Net, WSH, VBScript, Email)

12.6.2003 9:14:29

Download multiple files in one http request

(nbsp;File & data transfer, VBScript)

GetCommandLine Win32 function for VBA/VB

Areas>VBA

I needed the GetCommandLine function for VBA several times, but I cannot find any working code of the Win32 api function on net. You cannot simply use App.ExeName property or Command function, because these two VBA methods does not work if you create VBA COM DLL project.

You also cannot directly use GetCommandLine in VBA declaration, something like

Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As string

This simple code do not work, because GetCommandLine returns a pointer to string, which VBA cannot handle directly. You have to use another Win32 functions, which works with pointers. I have choosen lstrlenA to get a length of the command line string and lstrcpynA to copy command line to a VBA buffer.

Declare Function lstrcpyn_long_string Lib "kernel32" Alias "lstrcpynA" (ByVal DestString As String, ByVal SourcePointer As Long, ByVal MaxLen As Long) As Long
Declare Function lstrlen_long Lib "kernel32" Alias "lstrlenA" (ByVal SourcePointer As Long) As Long
Declare Function GetCommandLine_long Lib "kernel32" Alias "GetCommandLineA" () As Long

'GetCommandLine VBA function
' 2008 Antonin Foller, www.motobit.com
Function GetCommandLine() As String
  'Get a pointer to process commandline as Long
  Dim ptrCommandLine As Long
  ptrCommandLine = GetCommandLine_long
  If ptrCommandLine > 0 Then 'GetCommandLine ok
    Dim Buffer As String, BufferLength As Long
    'Get a length of the command line using Long pointer
    'Returns the length without the zero terminating char
    BufferLength = lstrlen_long(ptrCommandLine)
    
    If BufferLength > 0 Then
      'Allocate a space for the command line
      Buffer = Space(BufferLength + 1)
      
      'Copy the command line to a buffer using Long + String pointers.
      ptrCommandLine = lstrcpyn_long_string(Buffer, ptrCommandLine, BufferLength + 1)
      
      'The copy SHOULD be OK. Zero means some error, not enough of space
      If ptrCommandLine > 0 Then 'lstrcpyn
        'Remove the zero terminator from the copied string
        Dim PosZero As Long
        PosZero = InStr(Buffer, Chr$(0))
        If PosZero > 0 Then Buffer = Left(Buffer, PosZero - 1)
        GetCommandLine = Buffer
      End If 'If ptrCommandLine > 0 Then 'lstrcpyn
    End If 'If BufferLength > 0 Then
  End If 'If ptrCommandLine > 0 Then 'GetCommandLine ok
End Function

See also for 'GetCommandLine Win32 function for VBA/VB' article:

If you like this page, please include next link on your pages:

<A
 Href="http://www.motobit.com/tips/detpg_vba-getcommandline/"
 Title="Code to call GetCommandLine function from
  VBA  - Excel, Word
  and other software with Visual
  Basic"
>GetCommandLine Win32 function for VBA/VB</A>

аааааIISTracer - IIS ISAPI real-time monitor IISTracer is a real-time monitoring tool for Microsoft IIS, which will show/log you what is happenning on IIS server right now. It let's you reveal problems with long-running scripts (.asp, .cgi, cfm...), hang-up states and low resource situations and lets you stop long-running requests (uploads/downloads).	аааааActiveX User account Manager - Set of simple objects for creating, deleting, and managing user accounts, groups, servers and domains in the Windows NT environment.
аааааActive log file - Hi-performance text file logging for ASP/VBS/VBA applications. Lets you create daily/weekly/monthly log files with variable number of logged values and extra timing and performance info.	аааааActiveX windows registry editor - Intuitive, easy to use COM interface to windows registry. Set of classes to read/enumerate/modify windows registry keys and values from ASP, VBS and T-SQL.
аааааActiveX/ASP Multi Dictionary object - Free-threaded hi-speed dictionary algorithm with unique/nonunique keys (map/multimap). Connect to another dictionary object in the same process. Lock and Unlock methods to synchronize tasks (application scope). Share ASP Application/Session objects.	аааааExport DBF/MDB from ASP - Conversion from recordset to MDB/DBF. Direct binary output of MDB or DBF files from ASP pages with one row of code.
аааааPure-ASP upload - lets you upload files using Pure ASP VBS code (using multipart/form-data and input type=file).	аааааByteArray - Works with safearray binary data (VT_UI1 \| VT_ARRAY) - save/restore binary data from disk, find, work with code pages, convert to string/hexstring(SQL).
аааааWebChecker - Checks http, https, ftp and gopher internet connections in regular intervals. Lets you monitor web site functionality (uptime). Enables restart or notification on problems.	аааааHTTPLog ISAPI filter - Lets you log incomming/outgoing http header and document data to separate files. Monitor of IIS service input/output.

й 1996 Ц 2010 Antonin Foller, PSTRUH Software, e-mail help@pstruh.cz