VB6中的FSO对象模型

　　 Private Sub Command4—Click()

　　　　 Dim fso As New FileSystemObject, txtfile As TextStream, fil1 As File, fil2 As File

　　　　 Set txtfile=fso.CreateTextFile(″c:\testfile.txt″, True)

　　　　 txtfile.Write (″这是一个测试文件!″)

　　　　 txtfile.Close

　　　　 Set fil1=fso.GetFile(″c:\testfile.txt″)

　　 ′获得一个文件句柄

　　　　 fil1.Copy (″c:\temp1\testfile.txt″)　　

　　 ′将该文件复制到\temp1目录下

　　　　 fil1.Move (″c:\temp2\testfile.txt″)　　

　　 ′将该文件移动到\temp2目录下

　　　　 Set fil1=fso.GetFile(″c:\temp1\testfile.txt″)

　　　　 ′获得这些文件当前位置的句柄

　　　　 Set fil2=fso.GetFile(″c:\temp2\testfile.txt″)

　　　　 fil1.Delete

　　　　 fil2.Delete

　　 End Sub

上一篇： 如何用TextBox打开和保存文件
下一篇： 如何在VB中实现目录遍历

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!