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. 

Zp∞t DalÜφ