Visual Basic

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

"On two occasions, I have been asked [by members of Parliament], 'Pray, Mr. Babbage, if you put into the machine wrong figures, will the right answers come out?' I am not able to rightly apprehend the kind of confusion of ideas that could provoke such a question."
--Charles Babbage (1791-1871)

<br />
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim fileName As String = System.Environment.CommandLine.Substring( _<br />
        System.Environment.CommandLine.IndexOf(Chr(34) & " " & Chr(34)) + 3)<br />
<br />
        'this is now a string containing the exact path & filename which was opened with the program.<br />
        fileName = fileName.Substring(0, fileName.Length - 1)<br />
<br />
        'then in this sub or another, do something with the file:<br />
        '(in this case, open the file, and copy the text in it into a textbox)<br />
        Dim inFile As IO.StreamReader = IO.File.OpenText(fileName)<br />
        textBox1.text = inFile.ReadToEnd<br />
        inFile.Close()<br />
<br />
End Sub<br />

Settings\userid\Desktop\filename.txt

myapp.exe "%1"

|----------- Index 0 --------------| |------------------- Index 1 ------------------------|
C:\Program Files\myCompany\myApp.exe C:\Documents and Settings\userID\Desktop\fileToUse.txt

Dim cmdArgs As String()
cmdArgs = Environment.GetCommandLineArgs()

C:\WINDOWS\system32\NOTEPAD.EXE "%1"

' Visual Basic .NET
Function PrevInstance() As Boolean
   If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
      Return True
   Else
      Return False
   End If
End Function