Set of QB64 utilities.

[eoredson]

The most recent QB64 utilities project PD 04/25/2025.

Code: (Select All)

Version vD.0 r1.0a PD 04/25/2025.
  Adds custom command$ function to avoid filelist when * specified.
  Comments out some calls to SetCurrentDirectory.

This QB64 utilities version contains a new subroutine to get the command line posted here:

Code: (Select All)

Function Read.Command$
   Declare Library
      Function GetCommandLineA%& ()
   End Declare
   Dim m As _MEM, ms As String * 1000
   a%& = GetCommandLineA
   m = _Mem(a%&, Len(ms))
   ms = _MemGet(m, m.OFFSET, String * 1000)
   If a%& Then
      cmd$ = ms
      eol = InStr(cmd$, Chr$(0))
      If eol Then
         cmd$ = Left$(cmd$, eol - 1)
      End If
      ' parse off program name.
      eol = InStr(2, cmd$, Chr$(34)) + 1
      cmd$ = Mid$(cmd$, eol)
   End If
   _MemFree m
   Read.Command$ = cmd$
End Function

Where reading commandline avoids concatanted * filelist.