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ěší.