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

naigeer的知识库

不断学习,用知识武装头脑,用头脑创造未来!

 
 
 

日志

 
 

[转载]利用VB控件操作目录和文件夹(一)  

2007-11-30 14:25:25|  分类: 编程系列 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
新建、修改、删除目录

  以上控件除了通用对话框(CommonDialog)之外一般只能显示当前的目录结构,对于在磁盘上新建、修改、删除目录却基本无能为力。
  我们先来看看通用对话框对文件夹的新建,修改和删除操作.
  1、新建目录
  我们只要在显示出来的通用对话框的空白位置,单击
鼠标,选择“新建”即可在指定的路径下创建新的目录,或者点击通用对话框右上角的新建图表(如下图所示),也可以在指定的路径下创建新的目录
[转载]利用VB控件操作目录和文件夹(一) - younglion - naigeer的知识库
 
2、修改文件夹名称
  可以在显示出来的通用对话框中,用鼠标右键点击选择所要修改的文件夹,再弹出的快捷菜单中,选择重命名,即可修改目录名称。如下图所示:
[转载]利用VB控件操作目录和文件夹(一) - younglion - naigeer的知识库
 3、删除文件夹
  同修改文件夹名称一样,我们只要选择删除即可。如上图所示。
  而且这种方法比RmDir更简便,它还可以删除包含有文件和子文件夹的文件夹。
  除了以上控件,
windows还给我们提供了一个叫做FileSystemObject(简称FSO)对象。FSO对象模型中包括了计算机文件系统所有的对象。见下表。利用这些对象可以更方便的操作文件系统。

对象
功能
Drive 允许收集系统的驱动器信息,诸如驱动器的可用空间
Folder 允许创建、删除或移动文件夹,并向系统查询文件夹的名称、路径等等
Files 允许创建、删除或移动文件,并向系统查询文件的名称、路径等等
FileSysterObject 此为主要对象,提供一整套用于创建、删除、搜集相关信息,以及通常的操作驱动器,文件夹,和文件的方法。
TextStream 允许读写文本文件

  下面我们一起来看看怎样用FSO对象来显示、新建、修改以及删除目录。
  FSO对象模型包含在Scripting的类型库中,此类型库存在于Scrrun.dll文件中.使用FSO对象模型,首先要建立一个FileSystemObject对象。有两种方法可以实现。一种是从”工程”菜单中的”引用”对话框选择”MicrosoftScriptingRuntime”项,然后在代码窗口中声明一个FileSystemObject类型的变量.语句如下:
Dim fso As NewFileSystemObject
另一种方法是在代码中使用CreatObject方法动态的创建一个FileSystemObject对象.语句如下:
Dim fso As Object ‘声明对象变量
Set fso = CreatObject(“Scripting. FileSystemObject”)‘创建FSO对象
我们具体看看FileSystemObject的主要属性.
  1、驱动器

  (1)Drives属性是FileSystemObject对象的唯一属性,它返回Drives集合中所有可用驱动器的只读集合。对于可删除的驱动器,不需要将媒体插入其中,就可以在Drives集合中显示出来。下面是它的主要属性有两个:一个是Count,另一个是Item.Count属性返回Drives集合或Dictionary对象中的条目数.Item属性用来返回或设置Drives集合或Dictionary对象中与指定关键字相关的项目.

  下面代码说明了如何获得Drives集合,以及如何用ForEacn……Next语句来访问该集合中的每个Drive:
Sub ShowDriveList()

 Dim fs As Object, d, dc, s,n
 创建文件系统对象
 Set fs = CreatObject(“Scripting. FileSystemObject”)
 创建驱动器集合
 Set dc= fs.Drives
 '取的驱动器对象
 For Each d in dc
  s = s & d.DriveLetter & “-” ‘格式化文本
  If d.DriverType = Remote Then ‘如果是Remote类型的驱动器
   n = d.ShareName ‘取得它的共享名
  Else
   n = d.volumeName ‘否则取得它的卷标
  End if
  s= s& n & vbCrLf ‘格式化文本
 Next
 MsgBox s ‘显示文本
End sub

  (2)当然我们也可以用Drive对象.Drive对象提供了对磁盘驱动器或网络共享属性的访问方法.下面是它的主要属性及其解释:
Availablespace 驱动器已用空间 DriveLetter 驱动器指定的字母
Freespace 驱动器剩余空间 DriverType 驱动器类型
TotalSize 驱动器全部空间 FileSystem 驱动器文件系统
IsReady 驱动器是否已准备 Path 驱动器根目录
SerizlNumber 驱动器序列号 VolumeName 驱动器卷标
ShareName 驱动器共享名

  主要的方法就是GetDrive,此方法用来访问一个已有的驱动器,该方法返回一个与指定路径中的驱动器相对应的Drive对象。下面的代码中,我们将说明怎样取得一个指定的驱动器的相关信息:

Sub ShowFreeSpace(drvPath)‘显示指定目录下的驱动器的信息
 Dim fs As Object, d, s
 Set fs = CreateObject("Scripting.FileSystemObject")‘创建文件系统对象
 Set d = fs.GetDrive(fs.GetDriveName(drvPath))‘创建并得到指定取目录下的驱动器
 s = "Drive" & UCase(drvPath) & "-" ‘格式化文本
 s = s & d.VolumeName & vbCrLf ‘得到驱动器的卷标
 s = s & "FreeSpace:" & FormatNumber(d.FreeSpace / 1024,0)
 '计算驱动器的剩余磁盘空间
 s = s & "Kbytes"
 MsgBox s ‘显示
End Sub

  下面是filesystemobject的其他方法

CreateFolder 该方法的作用是创建一个文件夹。所要创建的文件夹必须是不存在的,否则出错。
CreateTextFile 该方法的作用是产生一个指定的文件名,并返回一个TextStream对象,该对象可被用于对指定的文件进行读写。如果overwrite参数为False或未指定,对于一个已存在的文件,将产生错误。
DeleteFile 该方法的作用是删除一个指定的文件。如果指定的文件不存在,则出错。
DeleteFolder 该方法的作用是删除一个文件夹及其内容。如果没有发现匹配的文件夹则出错。该方法不能确定文件夹中是否包含内容。
DriveExists 该方法的作用是用来确定驱动器是否存在。如果指定的驱动器存在,则返回True,否则返回False。但对于可删除介质的驱动器,即使没有介质存在,DriveExists方法也返回True,因此最好使用IsReady属性确定驱动器是否准备就绪。
FileExists 该方法的作用是判断指定的文件对象是否存在于当前文件夹
FolderExists 该方法的作用是判断指定的文件夹对象是否存在于当前文件夹
GetDrive 该方法的作用是返回一个在指定路径中的与某个驱动器相对应的Drive对象。对于网络驱动器,将首先检查该共享是否存在。
GerDriveName 该方法的作用是返回包括某一指定路径上的驱动器名的字符串。如果驱动器不能确定,则返回一个0长度字符串。该方法只对指定的路径起作用,它并不试图解析路径,也不检查指定路径是否存在。
GetExtensionName 该方法的作用是返回指定路径中最后一个组成部分的扩展名。
GetFile 该方法的作用是返回指定路径中与某一文件相关的File对象。一定要保证所指定的文件是实际存在的。否则将产生错误。
GetFileName 该方法的作用是返回指定路径的最后一个组成部分的文件名。
GetFolder 该方法的作用是返回指定路径上的与某个文件夹相关的Folder对象.要保证指定的文件夹是实际存在的,否则会出错.使用Folder对象的第一部就是先用FileSystemObjectd的GetFolder方法得到Folder对象
GetParentFolderName 该方法的作用是返回一个包含指定路径上的最后一个组成部分的父文件夹的名称。
MoveFile 该方法的作用是将一个或多个文件从一个地方移动到另一个地方。
MoveFolder 该方法的作用是移动一个或多个文件夹,如果源路径包含通配符,或目的路径以斜杠(\)为结束,则表明目的路径为已存在的路径,在此文件夹中移动相匹配的文件夹.否则,认为目的路径是一个要创建的目标文件夹的名字.如果目的路径为一个已存在的文件或目的路径为一个目录,则出错.如果没有任何文件与源路径中的通配符相匹配也出错.
OpenTextFile 该方法可用来打开一个指定的文件,并返回一个TextStream对象。用于读文件或追加文件。

  评论这张
 
阅读(249)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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