Vbscript脚本编写1Word文件下载.docx

1、Dim d d.Key（“0”）=”Sunday”Item属性该属性可读写，用来设置或返回Dictionary对象中指定的key对应的item,或返回集合中基于指定的key的item。object.Item（key）=newitem参数key必读，表示与检索或添加的item相关联系的key。参数newitem是可选项，仅用于Dictionary对象，不能应用于集合。如果提供此参数，则newitem是与指定的key相关联系的项目的新值。如果更改item时未找到key,则使用指定的newitem创建一个新的key。如果试图返回一个已有项目时未找到key，则创建一个新的key并且它对应的项目为空值。

2、 下面例子说明如何使用Item属性:Item1=d.Item（“0”）2.Dictionary对象的方法Add方法向Dictionary对象添加键和项目对。object.Add key,item其中object为Dictionary的item相关的key。参数key必选，为与添加的item相关的key。如果key已经存在，则会出现错误。Exists方法如果在Dictionary对象中存在指定键，返回True,如果不存在，返回False。object.Exists（key）其中object为Dictionary对象名称。参数key必选，为在Dictionary对象中查找的Key值。下面的例子说明

3、如何使用Exists方法:Function FindKey Dim d,msg Set d=CreateObject（“Scripting.Dictionary”） d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” If d.Exists（“2”）ThenFindKey=TrueElseFindKey=FalseEnd IfKeys方法返回一数组,其中包含有Dictionary对象的所有现存键。object.Keys其中object为Dictionary对象的名称。下例子说明如何使用Keys方法:Function DicKeys Dim d,I,a

4、llkey,strkeys allkey=d.KeysFor I=0 to d.Count-1 Strkeys=strkeys&allkey（i）&”NextDicKeys=strkeys End FunctionItem方法返回一个数组,其中包含有Dictionary对象中的所有项目。object.Items 下面例子说明如何使用Items方法:Function DicItemsDim d,I,allitem,stritemsallitem=d.Itemsfor I=0 to d.Count-1stritems=stritems&allitem（i）&nextRemove方法从Diction

5、ary对象中删除键和项目对。object.Remove（key）参数key必选，为要从Dictionary对象中删除的键和项目对相关联的key。如果指定的键和项目对不存在，则会出现错误。下面例子说明如何使用Remove方法:d.Remove（“0”）RemoveAll方法删除Dictinary对象中的所有键和项目对。语法为：object.RemoveAll下面例子说明如何使用RemoveAll方法:d.RemoveAllFileSystemObject对象该对象提供对计算机文件系统的访问。允许我们在代码中操纵文本文件、文件夹和驱动器。其语法为:Scripting.FileSystemObjet

6、例如，使用以下语句实例化一个FileSystemObject对象set fso=CreateObject（“Scripting.FileSystemObject”）FileSystemObject对象的属性该对象只有一个属性Drive属性，返回由本地机器上所有Drive对象组成的Drives集合。object.Drives其中object应为FileSystemObject对象的名称无论是否插入媒体，可移动媒体驱动器都显示在Drives集合中。有关Drives集合，我们将在本章稍后的VBScript中的集合中详细讲述。可以使用For Each.Next结构枚举Drives集合的成员。bodyt

7、able border=1% Dim fs,d,dc,s,nSet fs=CreateObject（Scripting.FileSystemObject）Set dc=fs.DrivesFor Each d in dcresponse.write（trtd width=20&d.DriveLetter&/tdtdif d.DriveType= 3 thens=Removen=d.ShareNameelseLocalif d.IsReady thenn=d.VolumeNameend if response.write（s&n&/tr end if%/table/body/htmlFileSys

8、temObject对象的方法该对象有许多方法，分述如下:BuildPath方法向现有路径后添加名称。object.BuildPath（path,name）参数说明：*object:必选项,为FileSystemObject对象的名称.*path:必选项,要附加name的现有路径,可以是绝对或相对路径且无需指定现有文件夹.*name:必须选,要附加到现有path的名称.仅在必要时,BulidPath方法在现有路径与该名称之间插入附加路径分隔符.下面例子说明如何使用BulidPath方法:% dim path1 path1=C:Documents and SettingsAdministrator

9、桌面asp response.write GetBuildPath（path1） Function GetBuildPath（path2） dim fso,newpath Set fso=CreateObject（ newpath=fso.BuildPath（path2,Sub folderGetBuildPath=newpathCopyFile方法将一个或多个文件从某位置复制到另一位置.语法为:object.CopyFile source,destination,overwriteobject:必选项，应为FileSystemObject对象的名称.Source:必选项，表示指定文件的字符串

10、。要复制一个或多个文件时，文件名中可以有通配符。Destination:必选项，表示目标位置的字符串，从source复制文件到该位置。不允许用通配符。Overwrite:可选项，Boolean值表明是否覆盖现有文件。如果是True,则覆盖文件；如果是False,则不覆盖现有文件。默认是True。要注意，无论overwrite设置为何值，只要设置destination为只读属性，CopyFile操作就无法完成。仅能在source参数的路径最后一个组成部分中使用通配符。例如，可以使用:FileSystemObject.CopyFile “c:mydocumentsletters*.doc”,”c:

11、tempfolder”但是，不能使用：mydocuments*R1?97.xls”,”c:tempfolder”.如果Source包含通配符或destination以路径分隔符（）结束，则假定destination是现有文件夹，复制匹配文件到该文件夹。否则，假定destination为要创建的文件。在任一种情况下，复制单个文件时，会出现以下3种情况:#如果destination不存在，则复制source。这是通常会发生的情况。#如果destination是已经存在的文件，当overwrite为Flase时会出现错误。否则，复制source覆盖现有文件。#如果destination是目录,则会出

12、现错误。如果source使用通配符，但并没有相匹配的文件时，则会出现错误。CopyFile方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。CopyFolder方法将文件夹从某位置递归复制到另一位置.语法为:object.CopyFolder source,destination,overwrite参数说明:%object:必选项,应为FileSystemObject对象名称。%source必选项，表示指定文件夹的字符串。要得复制一个或多个文件夹时，可使用通配符。%destination:可选项，Boolean值表明是否覆盖现有文件夹。如果为True,则覆盖文件，如果为

13、False，则不覆盖文件，默认值是True。例如，可以使用：FileSystemObject.CopyFolder “c:mydocumentsletters*”,”c:如果source包含通配符或destination以路径分隔符（）结束，则假定destination是现有文件夹。在任一种情况下，复制单个文件夹时，会发生如下4种情况: 如果destination不存在，则复制source文件夹和其所有内容。 如果destination是已经存在的文件，则出现错误。 如果destination是目录，则复制文件夹和其中的所有内容。如果在destination已经存在source包含的文件，且o

14、verwrite为False,则会出现错误。否则，复制该文件覆盖现有文件。 如果destination是只读目录，在向该目录复制现有只读文件，且overwrite为False时，就会出现错误。如果source使用通配符，但没有匹配文件时，也会出现错误。CopyFolder方法在遇出现的第一个错误时停止。CreateFolder方法创建文件夹。object.CreateFolder（foldername）必选项，应为FileSystemObject对象的名称。Foldername:必选项，字符串表达式，指明要创建的文件夹。dim path1aspasp1 response.write Creat

15、eFolderDemo（path1）Function CreateFolderDemo（path2）dim fso,fSet fso=CreateObject（Set f=fso.CreateFolder（path2）CreateFolderDemo=f.PathEnd FunctionCreateTextFile方法创建指定文件并返回TextStream对象，该对象可用于读或写创建的文件。object.CreateTextFile（filename,overwrite,Unicode）必选项,应为FileSystemObject或Folder对象的名称filename:必选项,字符串表达式,

16、指明要创建的文件.可选项,Boolean值指明是否可以覆盖现有文件。如果可覆盖文件,该值为True;如果不能覆盖文件,则该值为False。如果省略该值，则不能覆盖现有文件。必选项，应为FileSystemObject或Folder对象的名称。必选项，字符串表达式，指明要创建的文件。overwrite:可选项，Boolean值指明是否可以覆盖现有文件。如果可覆盖文件，该值为True；如果不能覆盖文件，则该值为False。unicode:可选项，Boolean值指明是否以Unicode或ASCII文件格式创建文件。如果以Unicode文件格式创建文件，则该值为True;如果以ASCII文件格式创建

17、文件，则该值为False。如果省略些部分，则假定创建ASCII文件。testfile.txt response.write CreateAfile（path1）Function CreateAfile（path2） Set f=fso.CreateTextFile（path2,True）f.WriteLine（This is a testf.CloseDeleteFile方法删除指定的文件。object.DeleteFile filespec,force必选项,应为FileSystemObject的名称。filespec:必选项,要删除的文件名。Filespec在路径的最后个组成部分中可包含通

18、配符。path1=1.txtresponse.write DeleteAFile（path1）Function DeleteAFile（path2） fso.DeleteFile（path2） DeleteFolder方法删除指定的文件夹和其中的内容。object.DeleteFolder folderspec,force必选项，应为FileSystemObject的名称。folderspec:必选项，要删除的文件夹名称。Folderspec在路径的最后一个组成部分中可包含通配符。force:可选项，Boolean值。如果要删除只读文件夹，则该值为True;否则为False（默认）。Delet

19、eFolder方法不能区分文件夹中是否包含内容。无论文件夹是否包含内容，都将该删除文件夹。如果未找到区配文件夹，则会出现错误。DeleteFolder方法在遇到出现的第一个错误时停止。文件夹 response.write DeleteAFolder（path1）Function DeleteAFolder（path2）fso.DeleteFolder（path2） DriveExists方法如果指定的驱动器存在，则返回True,否则返回False。object.DriveExists（drivespec）必选项,应为FileSystemObject对象的名称。drivspec:必选硕,驱动器号

20、或指定的完整径。对于可移动媒体驱动器，即使驱动器中没有插入媒体，DriveExists方法仍返回True.用Drive对象的IsReady属性确定驱动器是否就绪。下面例子说明如何使用DriveExists方法:dim drivedrive=a:response.write ReportDriveStatus（drive）Function ReportDriveStatus（drv）dim fso,msg if fso.DriveExists（drv） then msg=（驱动器UCase（drv）& 存在。msg=（ 不存在。ReportDriveStatus=msgFileExists方法如

21、果指定的文件存在返回True;否则返回False。object.FileExists（filespec）必选项，文件名，表示要确定是否存在的文件。如果文件不在当前文件夹，则必须提供完整路径名（绝对路径或相对路径）。下面的例子说明如何使用FileExists方法:dim dirdir=c:dir.txtresponse.write ReportFileStatus（dir）Function ReportFileStatus（filespec） if （fso.FileExists（filespec） thenmsg=filespec&ReportFileStatus=msgFolderExists方法如果指定的文件夹存在，则返回True;object.FolderExists（folderspec）必选项，文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。下面例子说明如何使用FolderExists方法: dim dir dir=vbresponse.write ReportFolderStatus（dir） Function ReportFolderStatus（filespec） if （fso.FolderExists（filespec） thenReportFolderStatus=msg