網(wǎng)站seo 優(yōu)化百度快速seo
文件管理：
語句管理：打開、open----for output(append)===寫操作
Input-----write(print)通過input進行讀操作
Close---關閉文件
FSO----file system object?文件系統(tǒng)的簡稱
將復雜語句轉(zhuǎn)化成對象的方法
對象種類：
通過???----工程-----引用：Microsoft script runtime
Fso?主對象?文本流對象---與內(nèi)容有關的（讀寫、新建）必須創(chuàng)建文本流對象
Drive?驅(qū)動器對象：用來收集驅(qū)動器信息，如可用磁盤空間或驅(qū)動器類型
Folder?文件夾對象：用于創(chuàng)建、刪除、或移動文件夾
File?文件對象：用于創(chuàng)建、刪除、或移動文件
Textstream對象：用來完成對文本文件的讀寫操作
Filesystemobject對象：是fso對象模型的主對象
創(chuàng)建（聲明）一個fso對象
1.??????dim fso1 as new filesystemobject
2.??????dim fso1 as filesysytemobject
set fso1=new filesystemobject
3.??????set fao1=createobject(“scriptring.filesyatemobject”)
創(chuàng)建（聲明）一個textstream對象
新文本流—fso1.createtextfile
打開----fso1.opentextfile
File.openastextstream
實例：用fso對象新建、打開、保存文件
Dim fso As New FileSystemObject
Dim modi As Boolean
Dim new1 As Boolean
Dim f
Dim x As Integer
Dim filename As String
Private Sub menunew_Click()
??? new1 = True
??? Text1.Text = ""
??? Text1.SetFocus
End Sub
Private Sub menuopen_Click()
??? If modi Then
??????? x = MsgBox("數(shù)據(jù)已經(jīng)被修改,你確定要保存嗎?", vbYesNo)
??????? If x = vbNo Then Exit Sub
??? End If
??? Dim fso As New FileSystemObject
??? Dim f
??? Dim ts As TextStream '通過此對象可調(diào)用一些方法
??? CommonDialog1.DialogTitle = "打開文件"
??? CommonDialog1.Filter = "文本文件(*.txt) |*.txt| 所有文件 (*.*) | *.*"
??? CommonDialog1.ShowOpen
??? filename = CommonDialog1.filename
??? Set f = fso.GetFile(filename)
??? Set ts = f.OpenAsTextStream(ForReading)
??? Text1.Text = ts.ReadAll
??? ts.Close
??? Set ts = Nothing
??? Set f = Nothing
??? Set fso = Nothing
??? Text1.SetFocus
End Sub
Private Sub menusave_Click()
??? Dim fso, f
??? If modi And new1 Then
??????? CommonDialog1.DialogTitle = "保存文件"
??????? CommonDialog1.Filter = "文本文件(*.txt) |*.txt"
??????? CommonDialog1.ShowSave
??????? filename = CommonDialog1.filename
??????? Set fso = CreateObject("scripting.filesystemobject")
??????? fso.CreateTextFile filename
??????? Set f = fso.GetFile(filename)
??????? Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
??????? ts.Write Text1.Text
??????? ts.Close
??????? modi = False
??????? xinjian = False
??? End If
??? If modi = True Then
??????? Set fso = CreateObject("scripting.filesystemobject")
??????? fso.CreateTextFile filename
??????? Set f = fso.GetFile(filename)
??????? Set ts = f.OpenAsTextStream(ForWriting)
??????? ts.Write Text1.Text '將text1.text寫入到文件filename中
??????? ts.Close
??????? modi = False
??? End If
End Sub
Private Sub Text1_Change()
??? modi = True
??? 'new1=True
End Sub
相關文章參考1：
★VB中FSO的調(diào)用的兩種方法
★在 VB 中應用 FSO 對象模型介紹（摘自網(wǎng)絡）
★ [轉(zhuǎn)] Vb中FSO 對象的介紹
★[vb]FSO對象模型在VB中的應用
★FSO對象新建、打開、保存文件
★VB使用FileSystemObject對象寫文件
相關文章參考2：
※vb 關于commondialog的多選VB獲取Windows操作系統(tǒng)所有版本
※【轉(zhuǎn)】vb 關于commondialog的多選※
※VB 打開txt,bat,jpg 任意后綴程序
打開資源管理器并指定文件
※VB 打開文件夾,并選中指定的文件
VB手控Combobox的打開或收起
?
★VB部分相關文章推薦：★
☆VB6 中善用ByRef 提升速度
☆[vb] Set 語句
☆VB_Format自定義格式
☆用VB如讀取內(nèi)存地址
☆vb FindwindowEx的用法實例
☆進制轉(zhuǎn)化進10進制數(shù)
☆收藏:如何獲取當前已經(jīng)打開的IE對象(VB6代碼)
☆DXInput中鍵碼的轉(zhuǎn)換(VB6.0代碼)
☆如何在VB6.0里動態(tài)使用具有事件的對象
☆[vb]格式輸出Format函數(shù)
☆讀取和寫入Windows的INI文件
☆簡述UTF－8編碼原理及其文本文件的讀寫技術【轉(zhuǎn)】
☆VB中的文件操作
☆VB中的文件操作文檔
☆vb 中拷貝文件
☆VB反跟蹤技術點滴
☆VB共享軟件防破解設計技術初探（二）
☆VB共享軟件防破解設計技術初探（三）
☆VB共享軟件防破解設計技術初探（一）
☆RTF文件格式【轉(zhuǎn)】
☆VB壓縮技術
☆[vb]FSO對象模型在VB中的應用
☆VB 窗體實現(xiàn)文件拖拽獲取路徑方法
☆VB：注冊表的讀寫
☆vb中空操作（等待）的指令、延時方法
☆VB讓控件可以當標題欄拖動
☆FSO對象新建、打開、保存文件
☆獲取網(wǎng)關IP和MAC 的VB源碼
☆VB文件關聯(lián)
☆vb獲得本地和遠程的MAC地址(網(wǎng)卡地址)
☆VB中ShellExeCute的應用
☆VB打開網(wǎng)址方法大全
☆vb簡單控制音量大小及靜音的方法
☆拖動無邊框窗體(VB6代碼)
☆VB使用FileSystemObject對象寫文件
☆VB 從注冊表中刪除項及其某個值
☆vb 字符串轉(zhuǎn)為數(shù)字和判斷字符串是否是數(shù)字字符串【轉(zhuǎn)】
☆vb按熱鍵啟動應用程序
☆VB的坐標系統(tǒng)綜述
☆VB利用API函數(shù)來處理文件
☆關于VB中Shell及ShellExecute的總結(jié)與記錄
☆[vb]On Error GoTo 0和On Error resume區(qū)別
☆[vb]On Error 語句
☆記錄一下:在菜單上添加自繪圖形的例子(VB6代碼)
☆vb中findwindow的疑惑
☆[vb]FindWindow使用方法
☆常用文件類[轉(zhuǎn)，無法運行通，待調(diào)試]
☆[vb]url utf-8編碼
☆VB中的Unicode 和Ansi 格式
☆VB中的format格式化函數(shù)
☆VB中字符串匹配的多種方式
☆VB抓圖
☆談vb目錄文件操作的三種方法－2
☆談vb目錄文件操作的三種方法－1
☆vb使用open方法讀寫文件
☆VB的MD5加密模塊
☆VB 超簡單的屏幕截圖代碼
☆vb以類名或窗口標題查找句柄并關閉
☆VB將配置保存到EXE本身（生成EXE木馬程序）
☆VB 調(diào)用騰訊截圖控件CameraDLL.dll
☆在VB6.0中怎么實現(xiàn)escape和unescape
☆vb求任意兩線交點
☆VB中調(diào)用Windows API的注意事項[VB知識庫]
☆VB 一個獲得自己外網(wǎng)IP 地址的程序代碼
☆VB程序中實現(xiàn)IP地址子網(wǎng)掩碼網(wǎng)關DNS的更改[轉(zhuǎn)]
☆在VB 中應用FSO 對象模型介紹（摘自網(wǎng)絡）
☆[轉(zhuǎn)] Vb中FSO 對象的介紹
☆VB 畫坐標軸
☆VB 二進制文件的操作
☆[VB]BMP轉(zhuǎn)JPG
☆VB中KeyCode常數(shù)用法
☆vb實時曲線的繪制和保存
更多精彩>>>