miaozk2006

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

日志

关于我

miaozk2006

文章分类

VB中的文件操作文档

2012-07-30 21:34:11| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

7.1 文件系统控件

1． 文件系统控件种类

　（1）驱动器列表框（DriveListBox）：用来显示当前机器上的所有盘符
　
　（2）目录列表框（DirListBox）：用来显示当前盘上的所有文件夹

　（3）文件列表框（FileListBox）：用来显示当前文件夹下的所有文件名

2． 重要属性

属性	适用的控件	作用	示例
Drive	驱动器列表框	包含当前选定的驱动器名	Driver1. Drive="C"
Path	目录和文件列表框	包含当前路径	Dir1.Path="C:/WINDOWS"
FileName	文件列表框	包含选定的文件名	MsgBox File1.FileName
Pattern	文件列表框	决定显示的文件类型	File1.Pattern="*.BMP"

3． 重要事件

事件	适用的控件	事件发生的时机
Change	目录和驱动器列表框	驱动器列表框的Change事件是在选择一个新的驱动器或通过代码改变Drive属性的设置时发生目录列表框的Change事件是在双击一个新的目录或通过代码改变Path属性的设置时发生
PathChange	文件列表框	当文件列表框的Path属性改变时发生
PattenChange	文件列表框	当文件列表框的Pattern属性改变时发生
Click	目录和文件列表框	用鼠标单击时发生
DblClick	文件列表框	用鼠标双击时发生

7.2 文件的读写

1. 文件的有关概念

　记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。

　文件：记录的集合，相当于一张表。

　文件类型：顺序文件、随机文件、二进制文件。

　访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。

2. 顺序访问模式

　顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以跳跃式访问。该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长可短，记录与记录之间用“换行符”来分隔。

　　顺序文件的写入步骤：打开、写入、关闭； 读出步骤：打开、读出、关闭。

（1）打开文件

　　打开文件的命令是Open，格式为：

　　　　　　　　　Open “文件名” For 模式 As [#] 文件号 [Len=记录长度]

　说明：

　　　1）文件名可以是字符串常量也可以是字符串变量

　　　2）模式可以是下面之一：

　　　　　　OutPut：打开一个文件，将对该文件进行写操作

　　　　　　Input：打开一个文件，将对该文件进行读操作

　　　　　　Append：打开一个文件，将在该文件末尾追加记录

　　　3）文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。可以利用FreeFile（）函数获得下一个可以利用的文件号。

　　例： Open "D:/sj/aaa" For Output As #1

　　　意思是：打开D:/SJ下aaa文件供写入数据，文件号为#1

（2）写操作

　　　将数据写入磁盘文件所用的命令是：Write# 或Print#。语法格式：

　　1） Print #文件号，[输出列表]
　　　　
　　　　例： Open “D:/SJ/TEST.DAT” For Output As #1

　　　　　　 Print #1,Text1.Text '把文本框的内容一次性写入文件

　　　　　　　Close #1

　　2）Write #文件号，[输出列表]

　其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。

（3） 关闭文件

　　　结束各种读写操作后，必须将文件关闭，否则会造成数据丢失。关闭文件的命令是Close。

　　 Close [#]文件号[，[#]文件号]……

　　例： Close #1，#2，#3

（4） 读操作

　　1） Input #文件号，变量列表

　　　作用：将从文件中读出的数据分别赋给指定的变量。

　　　注意：与Write #配套才可以准确地读出。

　　2）Line Input #文件号，字符串变量

　　　　用于从文件中读出一行数据，并将读出的数据赋给指定的字符串变量，读出的数据中不包含回车符和换行符，可与Print #配套用。

　　3）Input$（读取的字符数，#文件号）

　　　　该函数可以读取指定数目的字符。

　　　　与读文件有关的两个函数：

　　　　LOF（）：返回某文件的字节数

　　　　EOF（）：检查指针是否到达文件尾。

　　　　例：将一个文本文件读入文本框的三种方法。

3.随机访问模式

　该模式要求文件中的每条记录的长度都是相同的，记录与记录之间不需要特殊的分隔符号。只要给出记录号，可以直接访问某一特定记录，其优点是存取速度快，更新容易。

　（1） 打开与关闭

　　　　打开：Open “文件名” For Random As [#] 文件号 [Len=记录长度]

　　　　关闭：Close #文件号

　　注意：文件以随机方式打开后，可以同时进行写入和读出操作，但需要指明记录的长度，系统默认长度为128个字节。

　（2）读与写

　　　 读操作：Get [#]文件号，[记录号]，变量名

　　　　说明：Get命令是从磁盘文件中将一条由记录号指定的记录内容读入记录变量中；记录号是大于1的整数，表示对第几条记录进行操作，如果忽略不写，则表示当前记录的下一条记录。

　　 写操作：Put [#]文件号，[记录号]，变量名

　　　说明：Put命令是将一个记录变量的内容，写入所打开的磁盘文件指定的记录位置；记录号是大于1的整数，表示写入的是第几条记录，如果忽略不写，则表示在当前记录后插入一条记录。

4. 二进制访问模式

　　打开：Open “文件名” For Binary As [#] 文件号 [Len=记录长度]

关闭：Close #文件号

　该模式是最原始的文件类型，直接把二进制码存放在文件中，没有什么格式，以字节数来定位数据，允许程序按所需的任何方式组织和访问数据，也允许对文件中各字节数据进行存取和访问。

　该模式与随机模式类似，其读写语句也是Get 和Put，区别是二进制模式的访问单位是字节，随机模式的访问单位是记录。在此模式中，可以把文件指针移到文件的任何地方，刚开始打开时，文件指针指向第一个字节，以后随文件处理命令的执行而一旦。文件一旦打开，就可以同时进行读写。

7.3 常用的文件操作语句和函数

1． FileCopy语句

　　格式：FileCopy 源文件名目标文件名

　　功能：复制一个文件

　　说明：不能复制一个已打开的文件

2． Kill语句

　　格式：Kill 文件名

　　功能：删除文件

　　说明：文件名中可以使用通配符 *，？

3． Name语句

　　格式：Name 旧文件名新文件名

　　功能：重新命名一个文件或目录

　　说明：不能使用通配符；具有移动文件功能；不能对已打开的文件进行重命名操作

4． ChDrive语句

　　格式：ChDrive 驱动器

　　功能： 改变当前驱动器

　 说明：如果驱动器为空，则不变；如果驱动器中有多个字符，则只会使用首字母

5．MkDir语句

　　格式：MkDir 文件夹名

　　功能：创建一个新的目录

6．ChDir语句

　　格式：ChDir 文件夹名

　　功能：改变当前目录

　　说明：改变默认目录，但不改变默认驱动器。

7. RmDir语句

　　格式：RmDir 文件夹名

　 功能：删除一个存在的目录

　 说明：不能删除一个含有文件的目录

8. CurDir（）函数

　　格式： CurDir[（驱动器）]

　 功能：可以确定任何一个驱动器的当前目录。

　 说明：括号中的驱动器表示需要确定当前目录的驱动器，如果为空，返回当前驱动器的当前目录路径。

摘自：网络整理

★VB部分相关文章推荐：★

☆vb FindwindowEx的用法实例

☆进制转化进10进制数

☆收藏:如何获取当前已经打开的IE对象(VB6代码)

☆DXInput中键码的转换(VB6.0代码)

☆如何在VB6.0里动态使用具有事件的对象

☆[vb]格式输出Format函数

☆读取和写入Windows的INI文件

☆简述UTF－8编码原理及其文本文件的读写技术【转】

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

☆VB使用FileSystemObject对象写文件

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

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

☆vb按热键启动应用程序

☆VB的坐标系统综述

☆VB利用API函数来处理文件

☆关于VB中Shell及ShellExecute的总结与记录

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

☆[vb]On Error 语句

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

☆VB中的Unicode 和Ansi 格式

☆VB抓图

☆VB将配置保存到EXE本身（生成EXE木马程序）

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

☆在VB6.0中怎么实现escape和unescape

☆vb求任意两线交点

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

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

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

☆在VB 中应用FSO 对象模型介绍（摘自网络）

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087066081081089074082080086075072085089065080081086070092',
              blogTitle:'VB中的文件操作文档',
              blogAbstract:'\r\n<P style=\"TEXT-ALIGN: center; LINE-HEIGHT: 100%;\"  align=\"center\" \><STRONG\><SPAN style=\"FONT-SIZE: 14pt;\"  lang=\"EN-US\" \>7.1<SPAN style=\"FONT: 7pt \'Times New Roman\';\"  \>    </SPAN\></SPAN\></STRONG\><STRONG\><SPAN style=\"FONT-FAMILY: 宋体; FONT-SIZE: 14pt;\"  \>文件系统控件</SPAN\></STRONG\></P\>\r\n<P style=\"LINE-HEIGHT: 100%;\"  \><STRONG\><SPAN lang=\"EN-US\" \>1．<SPAN style=\"FONT: 7pt \'Times New Roman\';\"  \> </SPAN\></SPAN\></STRONG\><STRONG\><SPAN style=\"FONT-FAMILY: 宋体;\"  \>文件系统控件种类</SPAN\></STRONG\></P\>\r\n<P style=\"LINE-HEIGHT: 100%;\"  \><STRONG\><SPAN style=\"FONT-FAMILY: 宋体;\"  \>　（</SPAN\><SPAN lang=\"EN-US\" \>1</SPAN\><SPAN style=\"FONT-FAMILY: 宋体;\"  \>）</SPAN\> <SPAN style=\"FONT-FAMILY: 宋体;\"  \>驱动器列表框</SPAN\></STRONG\><SPAN style=\"FONT-FAMILY: 宋体;\"  \>（</SPAN\><SPAN lang=\"EN-US\" \>DriveListBox</SPAN\></P\>',
              blogTag:'',
              blogUrl:'blog/static/382470582012622114421184',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361407994391,
              publishTime:1343655251737,
              permalink:'blog/static/382470582012622114421184',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'',
              hmcon:'0',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/382470582012622114421184">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

miaozk2006

导航

日志

VB中的文件操作文档

历史上的今天

最近读者

热度

评论

页脚