FileSystemObject 对象,需要使用CreateObject语句来创造具体的实例。
然后其中有几个很重要的文件复制和移动重命名的方法
复制:Copy(),CopyFile(),CopyFolder()
移动: Move(),MoveFile(),MoveFolder()
重命名: Object.Name[=newname]
下面我将用代码给大家举几个例子 大家就明白了。
注意生成的对象在运行结束后要清空,避免内存的占用,只要将其赋值为Nothing就可以了。
(1)首先是CopyFile命令,是移动文件的,然后例子如下,将C盘下的命令台窗口移动到D:盘下。
Dim fso Set fso = CreateObject("SCripting.FileSystemObject") '产生FileSysetemObject的对象fso fso.CopyFile "C:\WINDOWS\system32\cmd.exe","D:\" '然后用fso来进行查找所要复制的cmd命令窗口的位置,然后将其复制到D盘的根目录下。 fso=Nothing
然后是MoveFile命令和CopyFile()命令是一样的,直接用MoveFile来替换CopyFile命令即可,都得输入需要移动或复制文件的具体的位置
(2)其次是CopyFolder()命令,这个看名字也能知道,这个是用来移动文件夹(包括其中的子文件夹和子文件)的。
下附例子一枚。
Dim fso Set fso = CreateObject("SCripting.FileSystemObject") fso.CopyFolder "C:\WINDOWS" , "D:\" '找到将WINDOS的文件夹复制到D盘的根目录下小提示 注意有些机子中桌面设置了访问权限,可能存在着不能将文件或文件夹移动到桌面上。小提示 本文中所有程序都经过了笔者的验证 若存在VBScript代码不能运行的情况,请检查本机的复制和移动路径是否正确,先确保文件路径的正确,才能进行文件的复制和移动
同理MoveFolder()文件也是同样如此的。
(3)下面Copy命令,Copy命令中既可以移动文件夹,也可以移动文件的,但是需要首先确定好文件和文件的夹的位置。见例子。移动文件的操作
Dim fso,target,path Set fso = CreateObject("Scripting.FileSystemObject") '获得FileSystemObject对象 能具有对 文件和文件夹进行操作的权限 path = "C:\WINDOWS\system32\cmd.exe" '将所要复制的文件的位置存放在path这个字符串变量中 Set target = fso.GetFile(path) '通过GetFile函数,用target指代要复制的文件对象 target.Copy "D:\" '将其复制到D:盘下的根目录中移动文件夹的操作,在windows目录中有些文件具有特殊的访问权限,就不能移动。
Dim fso,path,target Set fso = CreateObject("SCripting.FileSystemObject") path = "C:\WINDOWS" Set target = fso.GetFolder(path) target.Copy "D:\"(4)
Dim fso,target,path Set fso = CreateObject("SCripting.FileSystemObject") path = "D:\cmd.exe" Set target = fso.GetFile(path) target.Name="CCmd.exe"