C / C++ / MFC

Public Function GetFile(Filename As String)<br />
    Dim path As String<br />
    Dim Fnum As Integer<br />
<br />
    '---read file in one pass!<br />
    Fnum = FreeFile<br />
    Open Filename For Input As #Fnum<br />
        GetFile = Input(LOF(Fnum), Fnum)<br />
    Close Fnum<br />
<br />
    Exit Function<br />
    <br />
ErrorHandler:<br />
    Err.Description = "GetFile: " &amp; Err.Description &amp; " -&gt; " &amp; File<br />
    Err.Raise Err.Number<br />
<br />
<br />
End Function

Private Sub Form_Load()<br />
Dim path As String<br />
<br />
On Error GoTo nofile<br />
<br />
If Command$  Empty Then<br />
    Form1.Print<br />
    Form1.Print<br />
    Form1.Print<br />
    Form1.Print<br />
    <br />
    Form1.Print "Command Line Parameter passed: " + Command$<br />
    If Left$(Command$, 1) = Chr$(34) And Right$(Command$, 1) = Chr$(34) Then<br />
        path = Mid(Command$, 2, (Len(Command$) - 2))<br />
    Else<br />
        path = Command$<br />
    End If<br />
    'MsgBox (path)<br />
    Form1.Print "Path of File passed: " + path<br />
    Form1.Print<br />
    Form1.Print "File contents: " + vbCrLf<br />
    <br />
    Form1.Print GetFile(path)<br />
    <br />
Else<br />
    'MsgBox ("No Parameters passed!")<br />
End If<br />
<br />
Exit Sub<br />
nofile:<br />
MsgBox ("ERROR: No valid text file!")<br />
<br />
End Sub