P°φprava projektu

Nynφ zalo₧te nov² projekt. Na formulß° p°idejte tlaΦφtko a projekt ulo₧te do tΘho₧ adresß°e, kde se nalΘzß textov² soubor.

TlaΦφtko bude otevφrat textov² soubor a vypφÜe jeho obsah na formulß°, Φili na udßlost Click tlaΦφtka zapiÜte:

Private Sub Command1_Click()

   Dim strValue As String

   Open App.Path + "\bozena.txt" For Input As #1
   Do While Not EOF(1)
      Input #1, strValue
      Form1.Print strValue
   Loop
   Close #1

End Sub

V p°φkazu Open jsem pou₧il tvrdou cestu k souboru, i kdy₧ je ji₧ ΦßsteΦn∞ upravena tak, aby se alespo≥ podφvala do adresß°e, kde je aplikace. Nejv∞tÜφ tvr∩ßk m∙₧e napsat mφsto App.Path + "\bozena.txt" nap°φklad "D:\Projekty\VBCmd\bozena.txt"

Po spuÜt∞nφ projektu a kliknutφ na tlaΦφtko byste m∞li vid∞t n∞co takovΘho:

Pokud nynφ soubor bozena.txt p°esunete do jinΘ slo₧ky a kliknete na tlaΦφtko, uvidφte asi toto:

- co₧ jist∞ nepot∞Üφ.

Zp∞t DalÜφ