فایل EXE

[شفیعی]

سلام
چگونه می توان به یک فایل EXE پارامتر ارسال نمود مثلا برنامه ای می خواهیم بنویسیم که از طریق خط فرمان اسم فایل را دریافت کرده ونمایش دهد

[Vahid_Nasiri]

با استفاده از Command Function

یک مثال کامل از MSDN :

Function GetCommandLine(Optional MaxArgs)

   'Declare variables.

   Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs

   'See if MaxArgs was provided.

   If IsMissing(MaxArgs) Then MaxArgs = 10

   'Make array of the correct size.

   ReDim ArgArray(MaxArgs)

   NumArgs = 0: InArg = False

   'Get command line arguments.

   CmdLine = Command()

   CmdLnLen = Len(CmdLine)

   'Go thru command line one character

   'at a time.

   For I = 1 To CmdLnLen

      C = Mid(CmdLine, I, 1)

      'Test for space or tab.

      If (C <> " " And C <> vbTab) Then

         'Neither space nor tab.

         'Test if already in argument.

         If Not InArg Then

         'New argument begins.

         'Test for too many arguments.

            If NumArgs = MaxArgs Then Exit For

            NumArgs = NumArgs + 1

            InArg = True

         End If

         'Concatenate character to current argument.

         ArgArray(NumArgs) = ArgArray(NumArgs) & C

      Else

         'Found a space or tab.

         'Set InArg flag to False.

         InArg = False

      End If

   Next I

   'Resize array just enough to hold arguments.

   ReDim Preserve ArgArray(NumArgs)

   'Return Array in Function name.

   GetCommandLine = ArgArray()

End Function