登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

FSO对象新建、打开、保存文件  

2012-07-28 18:12:42|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

文件管理:

语句管理:打开、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

摘自:http://hi.baidu.com/xiongvb/blog/item/c684f2eac87a9bc9d439c965.html


相关参考1


VBFSO的调用的两种方法

VB 中应用 FSO 对象模型介绍(摘自网络)

[] VbFSO 对象的介绍

[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函数

读取和写入WindowsINI文件

简述UTF8编码原理及其文本文件的读写技术【转】

VB中的文件操作

VB中的文件操作文档

vb 中拷贝文件

VB反跟踪技术点滴

VB共享软件防破解设计技术初探(二)

VB共享软件防破解设计技术初探(三)

VB共享软件防破解设计技术初探(一)

RTF文件格式【转】

VB压缩技术

[vb]FSO对象模型在VB中的应用

VB 窗体实现文件拖拽获取路径方法

VB:注册表的读写

vb中空操作(等待)的指令、延时方法

VB让控件可以当标题栏拖动

FSO对象新建、打开、保存文件

获取网关IPMAC VB源码

VB文件关联

vb获得本地和远程的MAC地址(网卡地址)

VBShellExeCute的应用

VB打开网址方法大全

vb简单控制音量大小及静音的方法

拖动无边框窗体(VB6代码)

VB使用FileSystemObject对象写文件

VB 从注册表中删除项及其某个值

vb 字符串转为数字和判断字符串是否是数字字符串【转】

vb按热键启动应用程序

VB的坐标系统综述

VB利用API函数来处理文件

关于VBShellShellExecute的总结与记录

[vb]On Error GoTo 0On Error resume区别

[vb]On Error 语句

记录一下:在菜单上添加自绘图形的例子(VB6代码)

vbfindwindow的疑惑

[vb]FindWindow使用方法

常用文件类[转,无法运行通,待调试]

[vb]url utf-8编码

VB中的Unicode Ansi 格式

VB中的format格式化函数

VB中字符串匹配的多种方式

VB抓图

vb目录文件操作的三种方法-2

vb目录文件操作的三种方法-1

vb使用open方法读写文件

VBMD5加密模块

VB 超简单的屏幕截图代码

vb以类名或窗口标题查找句柄并关闭

VB将配置保存到EXE本身(生成EXE木马程序)

VB 调用腾讯截图控件CameraDLL.dll

VB6.0中怎么实现escapeunescape

vb求任意两线交点

VB中调用Windows API的注意事项[VB知识库]

VB 一个获得自己外网IP 地址的程序代码

VB程序中实现IP地址子网掩码网关DNS的更改[]

VB 中应用FSO 对象模型介绍(摘自网络)

[] VbFSO 对象的介绍

VB 画坐标轴

VB 二进制文件的操作

[VB]BMPJPG

VBKeyCode常数用法

vb实时曲线的绘制和保存


更多精彩>>>

  评论这张
 
阅读(790)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018