Parametr Command
Visual
Basic má parametr Command, který vrací argumenty z příkazového řádku.
Například pokud zavoláte naší aplikaci, zkompilovanou do EXE souboru
test.exe takto:
test D:\Projekty\VBCmd\bozena.txt
tak parametr Command bude obsahovat "D:\Projekty\VBCmd\bozena.txt".
Nyní je Vám již určitě jasné, jak modifikovat proceduru Click tlačítka:
Private Sub Command1_Click()
Dim strValue As String
If Command = "" Then
Open App.Path + "\bozena.txt" For Input As #1
Else
Open Command For Input As #1
Endif
Do While Not EOF(1)
Input #1, strValue
Form1.Print strValue
Loop
Close #1
End Sub
V proceduře si podmínkou otestujeme, zda byl aplikaci zaslán nějaký
parametr. Pokud ne, otevře se původní "tvrdá" cesta, pokud je
parametr zaslán, otevře se soubor z parametru. Samozřejmě zde nemá cenu
rozepisovat se o tom, jak ověřit, zda je parametr korektní, např. jestli
soubor existuje atd.