[VB6] Passaggio di argomenti ad una TextBox

[the programmer]

Vorrei sapere come far aprire un file in una textbox associando l'estensione al programma e cliccando ci sopra.
Es.:
Aprendo i file .txt il blocco note ne visualizza il contenuto nella textbox ed io vorrei fare lo stesso.

Grazie a tutti!!!

[oregon]

Utilizzi la funzione Command$ per ottenere il nome del file passato al tuo eseguibile.

Una volta ottenuto il nome con la Command$, lo apri, lo leggi nel text e chiudi il file.

[the programmer]

Ho provato ad usarla come funzione ma non funziona
L'ho usata come variabile e cosi' mi funziona
Grazie tanto!!! Non sai quanto ho desiderato saperlo!!!
Ciao!

[oregon]

E' una funzione senza argomenti ... quindi la devi usare come fosse una variabile ... mi sembrava scontato ...

[the programmer]

Ho provato facendo cosi' e se provo ad associare il prog. ad i file di testo non me li apre dicendo:

Errore di run-time '52':

Nome o numero di file non valido


Ho provato a visualizzare il contenuto della variabile Command attraverso una MsgBox e mi da il file con le virgolette.
Es. "c:\prova.txt"

Quindi forse il problema potrebbero essero essere le virgolette, ma non so come rimuoverle.
Mi potresti aiutare?

[oregon]

Se mostri il codice che hai usato ...

[the programmer]

If Not Command = "" Then
Dim linea2
Text1.Text = ""
Open Command$ For Input As #3
Do
Input #3, linea2
Text1.Text = Text1.Text + linea2 + vbNewLine
Loop Until EOF(3) = True
End If

[oregon]

Ma tu come lo chiami il programma e come passi il nome del file ...?

[the programmer]

lo chiamo text.exe e lo associo all'estensione txt con un prog. di installazione

[oregon]

Prova così

Dim fi$ As String
fi$=Replace$(Command$, Chr$(34), "")
If Len(fi$) Then
   Dim linea2 As String
   Text1.Text = ""
   Open fi$ For Input As #3
   Do
     Input #3, linea2
     Text1.Text = Text1.Text + linea2 + vbNewLine
   Loop Until EOF(3) = True
End If