Copy的使用
方法名：Copy(destination,overwrite)
说明：将文件夹的所有内容，复制到destination文件夹中。详细说明请见表5
示例：
| Dim sourcepath sourcepath = "C:/testing" Call FolderAttributes(sourcepath) Sub FolderAttributes(sourcepath) Dim fso,objset Set fso = CreateObject("Scripting.FileSystemObject") '使用GetFolder方法来返回Folder对象 Set objset = fso.getFolder(sourcepath) '将testing中的所有内容复制到123文件夹中 objset.Copy("d:/123") End Sub |
备注：如果目标文件夹不存在，则脚本在运行是将自动创建
Delete的使用
方法名：Delete(force)
说明：删除文件夹及里面的所有内容。详细说明请见表5
示例：
| Dim sourcepath sourcepath = "C:/testing" Call FolderAttributes(sourcepath) Sub FolderAttributes(sourcepath) Dim fso,objset Set fso = CreateObject("Scripting.FileSystemObject") '使用GetFolder方法来返回Folder对象 Set objset = fso.getFolder(sourcepath) '将testingw文件夹及文件夹里所有的内容全部删除 objset.Delete(True) End Sub |
备注：如果文件夹属性为只读且Delete的参数为False，则脚本在运行是将提示“没有权限”；当文件夹不存在时，将提示“路径未找到”。
Move的使用
方法名：Move(destination)
说明：将文件夹及里面所有的内容移动到 destination 指定的文件夹。详细说明请见表5
示例：
| Dim sourcepath sourcepath = "C:/testing" Call FolderAttributes(sourcepath) Sub FolderAttributes(sourcepath) Dim fso,objset Set fso = CreateObject("Scripting.FileSystemObject") '使用GetFolder方法来返回Folder对象 Set objset = fso.getFolder(sourcepath) '使用Move()将testing文件夹及里面所有的内容，移动到目标文件夹123中 objset.Move("C:/123") End Sub |
备注：如果目标文件夹123已存在，则脚本运行时提示“文件已存在”；如果目标文件夹123在D:/，则脚本运行使提示“没有权限”
CreateTextFile的使用
方法名：CreateTextFile(filename,overwrite,unicode)
说明：创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。详细说明请见表5。
示例：
| Dim sourcepath sourcepath = "C:/testing" Call FolderAttributes(sourcepath) Sub FolderAttributes(sourcepath) Dim fso,objset Set fso = CreateObject("Scripting.FileSystemObject") '使用GetFolder方法来返回Folder对象 Set objset = fso.getFolder(sourcepath) '在testing文件夹下，使用CreateTextFile()创建myClass2.doc文件 objset.CreateTextFile "myClass2.doc",true End Sub |
备注：CreateTextFile()所创建的文件类型是根据所提供的扩展名来确定的，如也可以写成myClass2.txt、myClass.exe等等；FileSystemObject对象也可以调用CreateTextFile(),我们可以将上面的代码改写成：
