网站后台改版面营销手段和技巧
文件管理：
语句管理：打开、open----for output(append)===写操作
Input-----write(print)通过input进行读操作
Close---关闭文件
FSO----file system object 文件系统的简称
将复杂语句转化成对象的方法
对象种类：
通过 ----工程-----引用：Microsoft script runtime
Fso 主对象 文本流对象---与内容有关的（读写、新建）必须创建文本流对象
Drive 驱动器对象：用来收集驱动器信息，如可用磁盘空间或驱动器类型
Folder 文件夹对象：用于创建、删除、或移动文件夹
File 文件对象：用于创建、删除、或移动文件
Textstream对象：用来完成对文本文件的读写操作
Filesystemobject对象：是fso对象模型的主对象
创建（声明）一个fso对象
1. dim fso1 as new filesystemobject
2. dim fso1 as filesysytemobject
set fso1=new filesystemobject
3. set fao1=createobject(“scriptring.filesyatemobject”)
创建（声明）一个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("数据已经被修改,你确定要保存吗?", vbYesNo)
If x = vbNo Then Exit Sub
End If
Dim fso As New FileSystemObject
Dim f
Dim ts As TextStream '通过此对象可调用一些方法
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的调用的两种方法
★在 VB 中应用 FSO 对象模型介绍（摘自网络）
★ [转] Vb中FSO 对象的介绍
★[vb]FSO对象模型在VB中的应用
★FSO对象新建、打开、保存文件
★VB使用FileSystemObject对象写文件
相关文章参考2：
※vb 关于commondialog的多选VB获取Windows操作系统所有版本
※【转】vb 关于commondialog的多选※
※VB 打开txt,bat,jpg 任意后缀程序
打开资源管理器并指定文件
※VB 打开文件夹,并选中指定的文件
VB手控Combobox的打开或收起
★VB部分相关文章推荐：★
☆VB6 中善用ByRef 提升速度
☆[vb] Set 语句
☆VB_Format自定义格式
☆用VB如读取内存地址
☆vb FindwindowEx的用法实例
☆进制转化进10进制数
☆收藏:如何获取当前已经打开的IE对象(VB6代码)
☆DXInput中键码的转换(VB6.0代码)
☆如何在VB6.0里动态使用具有事件的对象
☆[vb]格式输出Format函数
☆读取和写入Windows的INI文件
☆简述UTF－8编码原理及其文本文件的读写技术【转】
☆VB中的文件操作
☆VB中的文件操作文档
☆vb 中拷贝文件
☆VB反跟踪技术点滴
☆VB共享软件防破解设计技术初探（二）
☆VB共享软件防破解设计技术初探（三）
☆VB共享软件防破解设计技术初探（一）
☆RTF文件格式【转】
☆VB压缩技术
☆[vb]FSO对象模型在VB中的应用
☆VB 窗体实现文件拖拽获取路径方法
☆VB：注册表的读写
☆vb中空操作（等待）的指令、延时方法
☆VB让控件可以当标题栏拖动
☆FSO对象新建、打开、保存文件
☆获取网关IP和MAC 的VB源码
☆VB文件关联
☆vb获得本地和远程的MAC地址(网卡地址)
☆VB中ShellExeCute的应用
☆VB打开网址方法大全
☆vb简单控制音量大小及静音的方法
☆拖动无边框窗体(VB6代码)
☆VB使用FileSystemObject对象写文件
☆VB 从注册表中删除项及其某个值
☆vb 字符串转为数字和判断字符串是否是数字字符串【转】
☆vb按热键启动应用程序
☆VB的坐标系统综述
☆VB利用API函数来处理文件
☆关于VB中Shell及ShellExecute的总结与记录
☆[vb]On Error GoTo 0和On Error resume区别
☆[vb]On Error 语句
☆记录一下:在菜单上添加自绘图形的例子(VB6代码)
☆vb中findwindow的疑惑
☆[vb]FindWindow使用方法
☆常用文件类[转，无法运行通，待调试]
☆[vb]url utf-8编码
☆VB中的Unicode 和Ansi 格式
☆VB中的format格式化函数
☆VB中字符串匹配的多种方式
☆VB抓图
☆谈vb目录文件操作的三种方法－2
☆谈vb目录文件操作的三种方法－1
☆vb使用open方法读写文件
☆VB的MD5加密模块
☆VB 超简单的屏幕截图代码
☆vb以类名或窗口标题查找句柄并关闭
☆VB将配置保存到EXE本身（生成EXE木马程序）
☆VB 调用腾讯截图控件CameraDLL.dll
☆在VB6.0中怎么实现escape和unescape
☆vb求任意两线交点
☆VB中调用Windows API的注意事项[VB知识库]
☆VB 一个获得自己外网IP 地址的程序代码
☆VB程序中实现IP地址子网掩码网关DNS的更改[转]
☆在VB 中应用FSO 对象模型介绍（摘自网络）
☆[转] Vb中FSO 对象的介绍
☆VB 画坐标轴
☆VB 二进制文件的操作
☆[VB]BMP转JPG
☆VB中KeyCode常数用法
☆vb实时曲线的绘制和保存
更多精彩>>>