Private Sub cmdsave_Click()
Dim filelocation As String
' loads save as box
  commondialog1.ShowSave
  filelocation = commondialog1.FileName
' append saves over file if it assists
  Open filelocation For Append As #1
    Print #1, text1.text
  Close #1
End Sub
Private Sub cmdopen_Click()
Dim filelocation As String
' show open box
  commondialog1.ShowOpen
  filelocation = commondialog1.FileName
' input files into text1.text  
  Open filelocation For Input As #1
Do Until EOF(1)
    Input #1, Data
    text1.text = text1.text + Data + vbNewLine
  EOF (1)
  Loop
  Close #1
End Sub

希望本文所述對大家的VB程序設(shè)計有所幫助。

您可能感興趣的文章:

VB
文件

相關(guān)文章

VB打開與保存txt文件的方法
這篇文章主要介紹了VB打開與保存txt文件的方法,涉及使用VB操作文本文件的相關(guān)技巧,需要的朋友可以參考下
2015-06-06
VB FileSystemObject對象實(shí)例詳解
FileSystemObject對象被用來訪問服務(wù)器上的文件系統(tǒng)。這個對象能夠處理文件、文件夾和目錄路徑。用它來檢索文件系統(tǒng)信息也是可能的，而且vb與vbs、asp都是差不多的語法
2018-12-12
什么是一個高效的軟件
什么是一個高效的軟件...
2006-10-10
VB實(shí)現(xiàn)鼠標(biāo)繪圖實(shí)例代碼
這篇文章主要介紹了VB實(shí)現(xiàn)鼠標(biāo)繪圖實(shí)例代碼,很實(shí)用的一個功能,需要的朋友可以參考下
2014-07-07
VBA數(shù)組用法案例詳解
這篇文章主要介紹了VBA數(shù)組用法案例詳解,本篇文章通過簡要的案例,講解了該項技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下
2021-08-08
使用WMI得到計算機(jī)的信息
WMI是一項行業(yè)推薦規(guī)范，旨在為訪問企業(yè)環(huán)境中的管理信息而開發(fā)一種標(biāo)準(zhǔn)化技術(shù)。該信息包括系統(tǒng)內(nèi)存的狀態(tài)、當(dāng)前安裝的客戶應(yīng)用程序清單，以及有關(guān)客戶端狀態(tài)的其他數(shù)據(jù)
2019-04-04
VB6中的LSet語句和RSet語句詳解
這篇文章主要介紹了VB6中的LSet語句和RSet語句詳解,LSet語句和RSet語句不太常用,所以知道的人不多,需要的朋友可以參考下
2014-07-07
VBA中連接SQLSERVER數(shù)據(jù)庫例子
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語言,需要的朋友可以參考下
2014-07-07
VB實(shí)現(xiàn)禁用任務(wù)管理器的方法
本文給大家介紹的是使用VB來實(shí)現(xiàn)禁用任務(wù)管理器的方法和示例，十分的簡單實(shí)用，有需要的小伙伴可以參考下。
2015-06-06
VB返回記錄集結(jié)果到HTML表格的方法
這篇文章主要介紹了VB返回記錄集結(jié)果到HTML表格的方法,實(shí)例分析了VB獲取記錄集與HTML表格生成的相關(guān)技巧,需要的朋友可以參考下
2015-06-06