VBscript 中 FileSystemObject对象的使用

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"