正在阅读：使用VB中的SERIPTING RUNTIME LIBRARY使用VB中的SERIPTING RUNTIME LIBRARY

2004-02-14 09:34 出处：eNet学院作者：enet 责任编辑：zwg

二、对于文件夹Folder对象的操作　　通过FileSystemObject的GetFolder方法可以获得一个Folder对象。下面的范例介绍了如何建立一个Folder对象和利用该对象建立、删除文件夹和获取子文件夹的操作。　　首先建立一个工程文件，在其中加入SR库。在Form1中加入一个TreeView控件，两个CommandButton控件，然后在Form1中加入以下代码：　　　Dim fsoSys As New Scripting.FileSystemObject 　　　Dim fsoRootFolder As Folder 　　　Private Sub Form_Load() 　　　Dim fsoSubFolder As Folder 　　　Dim nodRootNode As Node 　　　Dim nodChild As Node 　　　Dim astr＄　　　Set nodRootNode = TreeView1.Nodes.Add(, , “Root", “c:\") 　　　Set fsoRootFolder = fsoSys.GetFolder(“c:\") 　　　For Each fsoSubFolder In fsoRootFolder.SubFolders 　　　astr = fsoSubFolder.Path 　　　Set nodChild = TreeView1.Nodes.Add("Root", tvwChild, astr, fsoSubFolder.Name) 　　　Next 　　　Set fsoRootFolder = Nothing 　　　Command1.Caption =“建立目录" 　　　Command2.Caption = “删除目录" 　　　End Sub 　　　Private Sub Form_Unload(Cancel As Integer) 　　　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目录。