Contoh pada artikel ini menjelaskan cara membuka dan menyimpan file txt dengan VB. Bagikan dengan semua orang untuk referensi Anda. Dengan rincian sebagai berikut:
Sub Pribadi cmdsave_Click()Redupkan lokasi file As String' memuat simpanan sebagai kotak commondialog1.ShowSave filelocation = commondialog1.FileName' append menyimpan file jika membantu Buka lokasi file Untuk Tambahkan Sebagai #1 Cetak #1, text1.text Tutup #1End SubPrivate Sub cmdopen_Click ()Redupkan lokasi file Sebagai String' tampilkan kotak terbuka commondialog1.ShowOpen filelocation = input commondialog1.FileName' file ke dalam text1.text Buka lokasi file Untuk Input Sebagai #1Do Sampai EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1End Sub
Saya harap artikel ini bermanfaat untuk pemrograman VB semua orang.