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

    Imports System.IO
    Imports System.Text
 
    Dim srcFile As New StreamReader("SourceFile.txt")
    Dim newFile As New StreamWriter("NewFile.txt")
    Dim inText As String
    Dim intLineCount As Integer = 1
 
    inText = srcFile.ReadLine()
    While Not inText Is Nothing
        If intLineCount <> 2 Then
            newFile.WriteLine(inText)
        Else
            newFile.WriteLine("New Text To Replace Line 2")
        End If
    End While
    srcFile.Close()
    newFile.Close()
 
    File.Delete("SourceFile.txt")
    File.Move("NewFile.txt", "SourceFile.txt")