使用VB中的SERIPTING RUNTIME LIBRARY

• 
  　　　Set fsoSys = Nothing
  
  　　　End Sub
  
  　　　Private Sub Command1_Click()
  
  　　　Dim fsoFolder As Folder
  
  　　　’检查目录是否存在,如果目录不存在则建立新目录
  
  　　　If fsoSys.FolderExists(“c:\temp") Then
  
  　　　MsgBox (“目录c:\temp已经存在，无法建立目录")
  
  　　　Else
  
  　　　Set fsoFolder = fsoSys.CreateFolder(“c:\temp")
  
  　　　Set fsoFolder = Nothing
  
  　　　End If
  
  　　　End Sub
  
  　　　Private Sub Command2_Click()
  
  　　　’检查目录是否存在,如存在则删除目录
  
  　　　If fsoSys.FolderExists(“c:\temp") Then
  
  　　　fsoSys.DeleteFolder ("c:\temp")
  
  　　　Else
  
  　　　MsgBox (“目录c:\temp不存在")
  
  　　　End If
  
  　　　End Sub
  
  　　运行程序，程序建立一个指向C盘根目录的Folder对象并获取它的所有子文件夹加入到TreeView中，双击TreeView1中的 “c:\" 就可以打开分支查看c:\目录下的所有子目录名。点击Command1就可以建立 c:\temp目录，如果目录已存在程序会给出提示；点击Command2删除c:\temp目录。
  
  进入讨论组讨论。
  
  　　三、对于文件File对象的操作
  
  　　通过FileSystemObject的GetFile方法可以建立一个指向磁盘上一个文件的File对象。下面的范例介绍了如何利用File对象获得文件的基本信息。
  
  

  　　首先建立一个新的工程文件，加入SR库，在Form1中加入一个FileListBox控件和一个PictureBox控件，不要使二者重叠，然后在Form1中加入以下代码：
  
  　　　Option Explicit
  
  　　　Dim fsoSys As New Scripting.FileSystemObject
  
  　　　Private Sub File1_Click()
  
  　　　Dim fsoFile As File
  
  　　　Dim astr＄
  
  　　　Dim sDateCreate
  
  　　　On Error GoTo errfun
  
  　　　’获得File1中的文件名并据此建立一个File对象
  
  　　　Set fsoFile = fsoSys.GetFile(“c:\windows\" ＋ File1.List(File1.ListIndex))
  
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 使用VB中的SERIPTING RUNTIME LIBRARY 相关文章：
• ·使用VB中的SERIPTING RUNTIME LIBRARY
• 使用VB中的SERIPTING RUNTIME LIBRARY 相关软件

上一篇:如何使用VB控件Commom Dialog

下一篇:VB中“会报数的计算器”的基本实现

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐