Vbscript

CrAcK8编程小组 ----Vbscript脚本 Dictionary对象 Dictionary对象是保存数据键和项目对的对象，类似二元数组，把关键字和关联的项组 合在一起。Dictionary对象与PERL关联数组是等价的。项目(可以是任何形式的数据) 被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符 串，但不能为数组。该对象的语法为： Scripting.Dictionary 下面代码示例如何创建Dictionary对象: Dim d Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” Dictionary对象属性 CompareMode属性 该属性设置并返回在Dictionary对象中比较字符串关键字的比较模式。语法为: object.CompareModel[=compare] Count属性 该属性为只读属性。返回一个集合或Dictionary对象包含的项目数。语法为: object.Count Key属性 该属性在Dictionary对象中设置key。语法为: Object.Key(kdy)=newkey 其中object为Dictionary对象的名称 参数 转速和进给参数表a氧化沟运行参数高温蒸汽处理医疗废物pid参数自整定算法口腔医院集中消毒供应 Key必选，为要改变的Key值。 参数Newkey必选，表示代替指定key值的新值。 如果在更改Key值时未找到Key,将出现运行的错误。下面例子说明如何使用Key属性： Dim d Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” d.Key(“0”)=”Sunday” Item属性 该属性可读写，用来设置或返回Dictionary对象中指定的key对应的item,或返回集合中基于指定的key的item。语法为: object.Item(key)[=newitem] 其中object为Dictionary对象的名称 参数key必读，表示与检索或添加的item相关联系的key。 参数newitem是可选项，仅用于Dictionary对象，不能应用于集合。 如果提供此参数，则newitem是与指定的key相关联系的项目的新值。 如果更改item时未找到key,则使用指定的newitem创建一个新的key。如果试图返回一个已有项目时未找到key，则创建一个新的key并且它对应的项目为空值。 下面例子说明如何使用Item属性: Dim d Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” d.Key(“0”)=”Sunday” 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值。 下面的例子说明如何使用Exists方法: Function FindKey Dim d,msg Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” If d.Exists(“2”)Then FindKey=True Else FindKey=False End If Keys方法 返回一数组,其中包含有Dictionary对象的所有现存键。语法为: object.Keys 其中object为Dictionary对象的名称。 下例子说明如何使用Keys方法: Function DicKeys Dim d,I,allkey,strkeys Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” allkey=d.Keys For I=0 to d.Count-1 Strkeys=strkeys&allkey(i)&”
” Next DicKeys=strkeys End Function Item方法 返回一个数组,其中包含有Dictionary对象中的所有项目。语法为: object.Items 其中object为Dictionary对象的名称。 下面例子说明如何使用Items方法: Function DicItems Dim d,I,allitem,stritems Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” allitem=d.Items for I=0 to d.Count-1 stritems=stritems&allitem(i)&”
” next Remove方法 从Dictionary对象中删除键和项目对。语法为: object.Remove(key) 其中object为Dictionary对象的名称。 参数key必选，为要从Dictionary对象中删除的键和项目对相关联的key。 如果指定的键和项目对不存在，则会出现错误。 下面例子说明如何使用Remove方法: Dim d Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” d.Remove(“0”) RemoveAll方法 删除Dictinary对象中的所有键和项目对。语法为： object.RemoveAll 其中object为Dictionary对象的名称。 下面例子说明如何使用RemoveAll方法: Dim d Set d=CreateObject(“Scripting.Dictionary”) d.Add “0”,”星期日” d.Add “1”,”星期一” d.Add “2”,”星期二” d.RemoveAll FileSystemObject对象 该对象提供对计算机文件系统的访问。允许我们在代码中操纵文本文件、文件夹和驱动器。其语法为: Scripting.FileSystemObjet 例如，使用以下语句实例化一个FileSystemObject对象 set fso=CreateObject(“Scripting.FileSystemObject”) FileSystemObject对象的属性 该对象只有一个属性—Drive属性，返回由本地机器上所有Drive对象组成的Drives集合。语法为: object.Drives 其中object应为FileSystemObject对象的名称 无论是否插入媒体，可移动媒体驱动器都显示在Drives集合中。有关Drives集合，我们将在本章稍后的VBScript中的集合中详细讲述。 可以使用For Each….Next结构枚举Drives集合的成员。 <% Dim fs,d,dc,s,n Set fs=CreateObject("Scripting.FileSystemObject") Set dc=fs.Drives For Each d in dc response.write("") end if Next %>

"&d.DriveLetter&"

") if d.DriveType= 3 then s="Remove" n=d.ShareName else s="Local" if d.IsReady then n=d.VolumeName end if response.write(s&"

"&n&"

FileSystemObject对象的方法 该对象有许多方法，分述如下: BuildPath方法 向现有路径后添加名称。语法为： object.BuildPath(path,name) 参数说明： *object:必选项,为FileSystemObject对象的名称. *path:必选项,要附加name的现有路径,可以是绝对或相对路径且无需指定现有文件夹. *name:必须选,要附加到现有path的名称. 仅在必要时,BulidPath方法在现有路径与该名称之间插入附加路径分隔符. 下面例子说明如何使用BulidPath方法: <% dim path1 path1="C:\Documents and Settings\Administrator\桌面\asp" response.write GetBuildPath(path1) Function GetBuildPath(path2) dim fso,newpath Set fso=CreateObject("Scripting.FileSystemObject") newpath=fso.BuildPath(path2,"Sub folder") GetBuildPath=newpath End Function %> CopyFile方法 将一个或多个文件从某位置复制到另一位置.语法为: object.CopyFile source,destination[,overwrite] 参数说明： object:必选项，应为FileSystemObject对象的名称. Source:必选项，表示指定文件的字符串。要复制一个或多个文件时，文件名中可以有通配符。 Destination:必选项，表示目标位置的字符串，从source复制文件到该位置。不允许用通配符。 Overwrite:可选项，Boolean值表明是否覆盖现有文件。如果是True,则覆盖文件；如果是False, 则不覆盖现有文件。默认是True。要注意，无论overwrite设置为何值，只要设置destination为只读属性，CopyFile操作就无法完成。 仅能在source参数的路径最后一个组成部分中使用通配符。例如，可以使用: FileSystemObject.CopyFile “c:\mydocuments\letters\*.doc”,”c:\tempfolder\” 但是，不能使用：FileSystemObject.CopyFile “c:\mydocuments\*\R1???97.xls”,”c:\tempfolder”. 如果Source包含通配符或destination以路径分隔符(\)结束，则假定destination是现有文件夹，复制匹配文件到该文件夹。否则，假定destination为要创建的文件。在任一种情况下，复制单个文件时，会出现以下3种情况: #如果destination不存在，则复制source。这是通常会发生的情况。 #如果destination是已经存在的文件，当overwrite为Flase时会出现错误。否则，复制 source覆盖现有文件。 #如果destination是目录,则会出现错误。 如果source使用通配符，但并没有相匹配的文件时，则会出现错误。CopyFile方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。 CopyFolder方法 CopyFolder方法 将文件夹从某位置递归复制到另一位置.语法为: object.CopyFolder source,destination[,overwrite] 参数说明: %object:必选项,应为FileSystemObject对象名称。 %source必选项，表示指定文件夹的字符串。要得复制一个或多个文件夹时，可使用通配符。 %destination:可选项，Boolean值表明是否覆盖现有文件夹。如果为True,则覆盖文件，如果为False，则不覆盖文件，默认值是True。 仅能在source参数的路径最后一个组成部分中使用通配符。例如，可以使用： FileSystemObject.CopyFolder “c:\mydocuments\letters\*”,”c:\tempfolder\” 如果source包含通配符或destination以路径分隔符(\)结束，则假定destination是现有文件夹。在任一种情况下，复制单个文件夹时，会发生如下4种情况: · 如果destination不存在，则复制source文件夹和其所有内容。这是通常会发生的情况。 · 如果destination是已经存在的文件，则出现错误。 · 如果destination是目录，则复制文件夹和其中的所有内容。如果在destination已经存在source包含的文件，且overwrite为False,则会出现错误。否则，复制该文件覆盖现有文件。 · 如果destination是只读目录，在向该目录复制现有只读文件，且overwrite为False时，就会出现错误。 如果source使用通配符，但没有匹配文件时，也会出现错误。 CopyFolder方法在遇出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。 CreateFolder方法 创建文件夹。语法为: object.CreateFolder(foldername) 参数说明： object:必选项，应为FileSystemObject对象的名称。 Foldername:必选项，字符串表达式，指明要创建的文件夹。 <% dim path1 path1="C:\asp\asp1" response.write CreateFolderDemo(path1) Function CreateFolderDemo(path2) dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.CreateFolder(path2) CreateFolderDemo=f.Path End Function %> CreateTextFile方法 创建指定文件并返回TextStream对象，该对象可用于读或写创建的文件。语法为: object.CreateTextFile(filename,[,overwrite[,Unicode]]) 参数说明: object:必选项,应为FileSystemObject或Folder对象的名称 filename:必选项,字符串表达式,指明要创建的文件. Overwrite:可选项,Boolean值指明是否可以覆盖现有文件。如果可覆盖文件,该值为True; 如果不能覆盖文件,则该值为False。如果省略该值，则不能覆盖现有文件。 ·object:必选项，应为FileSystemObject或Folder对象的名称。 ·filename:必选项，字符串表达式，指明要创建的文件。 ·overwrite:可选项，Boolean值指明是否可以覆盖现有文件。如果可覆盖文件，该值为True；如果不能覆盖文件，则该值为False。如果省略该值，则不能覆盖现有文件。 ·unicode:可选项，Boolean值指明是否以Unicode或ASCII文件格式创建文件。如果以Unicode文件格式创建文件，则该值为True;如果以ASCII文件格式创建文件，则该值为False。如果省略些部分，则假定创建ASCII文件。 <% dim path1 path1="C:\testfile.txt" response.write CreateAfile(path1) Function CreateAfile(path2) dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.CreateTextFile(path2,True) f.WriteLine("This is a test") f.Close End Function %> DeleteFile方法 删除指定的文件。语法为: object.DeleteFile filespec[,force] ·object:必选项,应为FileSystemObject的名称。 ·filespec:必选项,要删除的文件名。Filespec在路径的最后个组成部分中可包含通配符。 <% dim path1 path1="C:\1.txt" response.write DeleteAFile(path1) Function DeleteAFile(path2) dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") fso.DeleteFile(path2) End Function %> DeleteFolder方法 删除指定的文件夹和其中的内容。语法为: object.DeleteFolder folderspec,[,force] 参数说明: ·object:必选项，应为FileSystemObject的名称。 ·folderspec:必选项，要删除的文件夹名称。Folderspec在路径的最后一个组成部分中可包含通配符。 ·force:可选项，Boolean值。如果要删除只读文件夹，则该值为True;否则为False(默认)。 DeleteFolder方法不能区分文件夹中是否包含内容。无论文件夹是否包含内容，都将该删除文件夹。 如果未找到区配文件夹，则会出现错误。DeleteFolder方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。 <% dim path1 path1="C:\文件夹 " response.write DeleteAFolder(path1) Function DeleteAFolder(path2) dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") fso.DeleteFolder(path2) End Function %> DriveExists方法 如果指定的驱动器存在，则返回True,否则返回False。语法为: object.DriveExists(drivespec) 参数说明： ·object:必选项,应为FileSystemObject对象的名称。 ·drivspec:必选硕,驱动器号或指定的完整径。 对于可移动媒体驱动器，即使驱动器中没有插入媒体，DriveExists方法仍返回True. 用Drive对象的IsReady属性确定驱动器是否就绪。 下面例子说明如何使用DriveExists方法: <% dim drive drive="a:\" response.write ReportDriveStatus(drive) Function ReportDriveStatus(drv) dim fso,msg Set fso=CreateObject("Scripting.FileSystemObject") if fso.DriveExists(drv) then msg=("驱动器"&UCase(drv)&" 存在。") else msg=("驱动器"&UCase(drv)&" 不存在。") end if ReportDriveStatus=msg End Function %> FileExists方法 如果指定的文件存在返回True;否则返回False。语法为: object.FileExists(filespec) ·object:必选项，应为FileSystemObject对象的名称。 ·filespec:必选项，文件名，表示要确定是否存在的文件。如果文件不在当前文件夹，则必须提供完整路径名(绝对路径或相对路径)。 下面的例子说明如何使用FileExists方法: <% dim dir dir="c:\dir.txt" response.write ReportFileStatus(dir) Function ReportFileStatus(filespec) dim fso,msg Set fso=CreateObject("Scripting.FileSystemObject") if (fso.FileExists(filespec)) then msg=filespec&" 存在。" else msg=filespec&" 不存在。" end if ReportFileStatus=msg End Function %> FolderExists方法 如果指定的文件夹存在，则返回True;否则返回False。语法为: object.FolderExists(folderspec) ·object:必选项，应为FileSystemObject的名称。 ·folderspec:必选项，文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名(绝对路径或相对路径)。 下面例子说明如何使用FolderExists方法: <% dim dir dir="c:\vb" response.write ReportFolderStatus(dir) Function ReportFolderStatus(filespec) dim fso,msg Set fso=CreateObject("Scripting.FileSystemObject") if (fso.FolderExists(filespec)) then msg=filespec&" 存在。" else msg=filespec&" 不存在。" end if ReportFolderStatus=msg End Function %> GetAbsolutePathName方法 从提供的指定路径中返回完整且含义明确的路径。语法为: object.GetAbsolutePathName(pathspec) 参数说明: ·object:必选项，应为FileSystemObject的名称。 ·pathspec:必选项，指定的路径,该路径要转换为完整且含义明确的路径。 如果路径提供从指定驱动器根目录开始的完整引用，则该路径是完整且含义明确的。如果 路径指定某映射驱动器的根目录文件夹，则该路径仅能以路径分隔符(\)结束.。 GetAbsdutePathName方法执行时的操作 pathspec 返回路径 “c:” “c:\mydocument\reposrts” “c…” “c:\mydocuments” “c:\\\” “c:\” “c:*.*\may97” “c:\mydocument\reports\*.*\may97” “region1” “c”\mydocument\reports\region1” “c:\…\..mydocuments” “c:\mydocuments” GetBaseName方法 返回字符串，其中包含文件的基本名(不带扩展名),或者提供的路径说明中的文件夹。 语法为: object.GetBaseName(path) 参数说明： ·object:必选项，应为FileSystemObject的名称。 ·path:必选项，指定文件或文件夹的路径，要返回其组成部分的基本名。 如果路径中没有任何文件或文件夹与指定的path参数匹配，则GetBaseName方法返回零长度字符串(“”)。 下面的例子举例说明如何使用GetBaseName方法: <% dim dir dir="c:\vb" response.write GetTheBase(dir) Function GetTheBase(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") GetTheBase=fso.GetBaseName(filespec) End Function %> GetDrive方法 返回与指定路径中驱动器相对应的Drive对象。语法为： object.GetDrive drivespec 参数说明： ·object:必选项，应为FileSystemObject的名称。 ·drivespec:必选项，drivespec可以是驱动器号(c)、带冒号的驱动器号(c:)、带有冒号与路径分隔符的驱动器号(c:\)或任何指定的网络共享(\\computer2\share1)。 对于网络共享，检查并确保该网络共享存在。 若drivespec与已接受格不一致致或不存在，就会出错。为了调用GetDrive方法时使用标准路径字符串，使用下列序列得到与drivespec相匹配的字符串。 DriveSpec=GetDriveName(GetAbsolutePathName(Path)) 下面示例说明如何使用GetDrive方法: <% dim dir dir="c:\vb" response.write ShowFreeSpace(dir) Function ShowFreeSpace(filespec) Dim fso,d,s Set fso=CreateObject("Scripting.FileSystemObject") Set d=fso.GetDrive(fso.GetDriveName(filespec)) s="Drive:"&UCase(filespec)&"_" s=s&d.VolumeName&"
" s=s&"Free Space:"&FormatNumber(d.FreeSpace/1024,0) s=s&"Kbytes" ShowFreeSpace=s End Function %> GetDriveName方法 返回包含指定路径中驱动器名的字符串。 Object.GetDriveName(path) 参数说明: ·object:必选项，应为FileSystemObject的名称。 ·path:必选项，指定路径，要返回其组成部分的驱动器名。 如果无法确定驱动器，则GetDriveName方法返回零长度字符串(“”)。 下面例子说明如何使用GetDriveName方法: <% dim dir dir="c:\vb" response.write GetAName(dir) Function GetAName(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") GetAName=fso.GetDriveName(filespec) End Function %> 注意：GetDriveName只能对提供path的字符串起作用，它不能试图分析一个路径,也不能检查指定路径是否存在。 GetExtensionName方法 返回字符串，该字符串包含路径最后一个组成部分的扩展名。语法为: ·object:必选项，应为FileSystemObject的名称。 ·path:必选项，指定路径，用于返回其组成部分的扩展名。 对于网络驱动器，根目录(\)也认为是一个组成部分。 如果路径组成部分与path参数不匹配，则GetExtensionName方法返回零长度字符串(“”)。 <% dim dir dir="C:\vb" response.write GetAnExtension(dir) Function GetAnExtension(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") GetAnExtension=fso.GetExtensionName(filespec) End Function %> GetFile方法 返回与指定路径中某个文件相应的File对象，语法为: object.GetFile(filespec) 参数说明: ·object:必选项，应为FileSystemObject的名称。 ·filespec:必选项，filespec是指定文件的路径(绝对路径或相对路径)。 如果指定文件不存在，则会出现错误。 <% dim dir dir="C:\dir.txt" response.write ShowFileAccessInfo(dir) Function ShowFileAccessInfo(filespec) Dim fso,f,s Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFile(filespec) s=s&"Created:"&f.DateCreated&"
" s=s&"Last Accessed:"&f.DateLastAccessed&"
" s=s&"Last Modified:"&f.DateLastModified ShowFileAccessInfo=s End Function %> GetFileName方法 返回指定路径(不是指定驱动器路径部分)的最后一个文件或文件夹。语法为: object.GetFileName(pathspec) 参数说明： ·object:必选项，应为FileSystemObject的名称。 ·pathspec:必选项，指定文件的路径(绝对路径或相对路径)。 如果pathspec不是以已命名的文件或文件夹结束，则GetFileName方法返回零长度字符串(“”)。 注意：GetFileName方法只能对提供path的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。 <% dim dir dir="C:\dir.txt" response.write GetAName(dir) Function GetAName(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") GetAName=fso.GetFileName(filespec) End Function %> GetFolder方法 返回与指定的路径中某文件夹相应的Folder对象。语法为： object.GetFolder(folderspec) 参数说明为： ·object:必选项，应为FileSystemObject的名称。 ·folderspec:必选项，folderspec是指定文件夹的路径(绝对路径或相对路径)。 <% dim dir,dir1 dir="C:\vb" dir1="C:\1" response.write AddNewFolder(dir,dir1) Function AddNewFolder(filespec,filespec1) Dim fso,f,fc,nf Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder(filespec) Set fc=f.SubFolders if filespec1<>"" then Set nf=fc.Add(filespec1) else Set nf=fc.Add("New Folder") end if End Function %> GetParentFolderName方法 返回字符串，该字符串包含指定的路径中最后一个文件或文件夹的父文件夹。语法为: object.GetParentFolderName(path) ·object:必选项，应为FileSystemObject的名称。 ·path:必选项，指定路径，要返回文件或文件夹的父文件夹名。 如果path参数指定文件或文件夹无父文件夹，则GetParentFolderName方法返回零长度字符串(“”)。 注意：GetParentFolderName方法只能对提供path的字符串起作用，它不能试图分析一个路径，也不能检查指定路径是否存在。 <% dim dir dir="C:\vb" response.write GetTheParent(dir) Function GetTheParent(filespec) Dim fso Set fso=CreateObject("Scripting.FileSystemObject") GetTheParent=fso.GetParentFolderName(filespec) End Function %> GetSpecialFolder方法 返回指定的特殊文件夹。语法为: object.GetSpcialFolder(folderspec) 参数说明： ·object:必选项，应为FileSystemObject的名称。 ·folderspec:必选项，要返回的特殊文件夹名称。可以是”设置”部分列出的任何常数。 Folderspec选项的取值如表6.2所示。 表6.2 olderspec选项的取值 常数 值 描述 WindowsFolder 0 Windows文件夹，包含Windows操作系统安装的文件 SystemFolder 1 System文件夹，包含库、字体和设备驱动程序文件 TemporaryFolder 2 Temp文件夹，用于保存临时文件。可以在TMP环境变量中找到该文件 下面例子说明如何使用GetSpecialFolder方法: <% response.write CreateTempFile Function CreateTempFile Dim tfolder,tname,tfile Const TemporaryFolder=2 Set fso=CreateObject("Scripting.FileSystemObject") Set tfolder=fso.GetSpecialFolder(TemporaryFolder) tname=fso.GetTempName Set tfile=tfolder.CreateTextFile(tname) Set CreateTempFile=tfile Set tempfile=CreateTempFile tempfile.WriteLine "世界你好" tempfile.Close End Function %> MoveFile方法 将一个或多个文件从某位置移动到另一位置。语法为: object.MoveFile source,destination 参数说明： ·object:必须项,应为FileSystemObject的名称。 ·source:必须项，要移动的文件的路径。Source参数字符串仅可在路径的最后一个组成部分中用通配符。 ·destination:必须项，指定路径，表示要将文件移动到该目标位置。Destination参数不能包含通配符。 如果source包含通配符或destination以路径分隔符(\)结束，则假定destination指定现有文件夹，将匹配文件移动到该文件夹中。否则，假定destination是要创建的目标文件。在任何一种情部下，移动单个文件时，可能出现以下3种情况: ·如果destination不存在，则进行文件移动。这是通常会发生的情况。 ·如果destination是已经存在的文件，则会出现错误。 ·如果destination是目录,则会出现错误。 下面例子说明如何使用MoveFile方法: <% dim dir dir="c:\dir.txt" response.write MoveAFile(dir) Function MoveAFile(Drivespec) dim fso Set fso=CreateObject("Scripting.FileSystemObject") fso.MoveFile Drivespec,"c:\2\" End Function %> MoveFolder方法 将一个或多个文件夹从某位置移动到另一位置。语法为: object.MoveFolder source,destination ·object:必选项，应为FileSystemObject的名称. ·source:必选项，要移动的文件夹的路径。Source参数字符串仅可在路径的最后一个组成部分中包含通配符。 ·destination:必选项，指定路径，表示要将文件夹移动到该目标位置。Destination参数不能包含通配符。 如果source包含通配符或destionation以路径分隔符(\)结束，则假定destination指定现有文件夹。在任一种情况下，移动单个文件夹时，可能会发生以下3种情况： ·如果destination不存在，则移动文件夹，这是通常会发生的情况。 ·如果destination是已经存在的文件，则会现错误。 ·如果destination是目录，则会出现错误。 如果source使用通配符，但没有匹配文件夹时，则会出现错误。MoveFolder方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。 Sub MoveAFolder(Drivespec) Dim fso Set fso=CreateObject(“Scripting.FileSystemObject”) Fso.MoveFolder Drivespec,”c:\windows\desktop\” End Sub 注意:只有当操作系统支持时，此方法才允许在两个卷之间移动文件夹。 OpenTextFile方法 打开指定的文件并返回一个TextStream对象，可以读取，写入此对象或将其追加到文件。语法为： object.OpenTextFile(filename,[,iomode,[,create[,format]]]) 参数说明： ·object:必选项，应为FileSystemObject对象的名称。 ·filename:必选项，字符串表达式，指明要打开的文件名称。 ·iomode:可选项，输入/输出模式，是下列3个常数之一：ForReading、ForWriting或ForAppending。 ·create:可选项，Boolean值，指出当指定的filename不存在时是否能够创建新文件。允许创建新文件时为True,否则为False。默认值为False。 ·format:可选项，3个Tristate值之一。指出以何种格式打开文件。若忽略参数，则文件以ASCII格式打开。 Iomode参数可为表6.3中设置之一。 表6.3 imode参数的取值 常数 值 描述 ForReading 1 以只读模式打开文件。不能对此文件进行写操作 ForWriting 2 以只写方式打开文件。不能对此文件进行读操作 ForAppending 8 打开文件并在文件末尾进行写操作 Format参数可为表6.4中设置之一。 常数 值 描述 TristateUseDefault -2 以系统默认格式打开文件 TristateTrue -1 以Unicode格式打开文件 TristateFalse 0 以ASCII格式打开文件 以下例子说明如何使用OpenTextFile方法打开写文件: <% response.write OpenTextFileTest Function OpenTextFileTest Const ForReading=1,ForWriting=2,ForAppending=8 dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile("c:\testfile.txt",ForWriting,True) f.Write "嗨,你好!" f.Close End Function %> Drive对象 该对象提供对磁盘驱动器或网络共享属性的访问。该对象的语法为： Scripting.FileSystemObject Drive对象的属性 AvailableSpace属性 该属性返回指定的驱动器或网络共享对于用户的可和空间大小。语法为： object.AvailabelSpace DriveLetter属性 该属性为只读，返回本地驱动器或网络共享的驱动器号。语法为： object.DriveLetter DriveType属性 返回一个描述指定驱动器的类型的值。语法为： Object.DriveType FileSystem属性 返回指定的驱动器使用的文件系统的类型。语法为: object.FileSystem FreeSpace属性 该属性为只读，返回指定的驱动器或网络共享对于用户的可用空间大小。语法为： object.FreeSpace IsReady属性 如果指定的驱动器就绪，返回True;否则返回False。语法为： object.IsReady Path属性 返回指定文件、文件夹或驱动器的路径。语法为： object.Path 路径不包含根目录。例如，C驱动器的路径是C：而不是C:\。 以下例子说明如何使用Path属性： Function ShowFileAccessInfo(filespec) Dim fso,d,f,s Set fso=CreateObject(“Scripting.FileSystemObject”) Set f=fso.GetFile(filespec) S=Ucase(f.Path)&”
” S=s&”创建时间:”&f.DateCreated&”
” S=s&”上次访问时间:”&f.DateLastAccessed&”
” S=s&”上次修改时间:”&f.DateLastModified ShowFileAccessInfo=s End Function RootFolder属性 该属性为只读，返回一个Folder对象，表示指定驱动器的根文件夹。语法为： object.RootFolder SerialNumber属性 返回十进制序列号，用于唯一标识一个磁盘卷。语法: object.SerialNumber ShareName属性 返回指定的驱动器的网络共享名。语法为: object.ShareName TotalSize属性 返回驱动器或网络共享的总字节数。语法为： object.TotalSize VolumeName属性 设置或返回指定驱动器的卷标，可读写。语法为： object.VolumeName=[=newname] 参数newname是可选项。如果提供此参数，则newname为指定的object的新名称。 Drive对象的方法 Drive对象没有任何方法。 程序实例 Drive对象示例 <% dim dir dir="c:\" response.write ShowDrvAtt(dir) Function ShowDrvAtt(drvPath) dim fs,d,s Set fs=CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive(fs.GetDriveName(drvPath)) s="驱动器"&UCase(drvPath)&"_" s=s&d.VolumeName&vbCrlf s=s&"
" s=s&"文件系统:"&d.FileSystem s=s&"
" s=s&"序列号:"&d.SerialNumber s=s&"卷标:"&d.VolumeName ShowDrvAtt=s End Function %> File和Folder对象 File对象提供了对文件的所有属性的访问,Folder对象提供对文件夹所有属性访问。 这两个对象具有很多实用的方法和属性。由于它们有很多相同的属性和方法，我们在这里 一并列出。 1、属性 Attributes属性 设置或返回文件或文件夹的属性。可读写或只读(与属性有关)。语法为: object.Attriutes[=newattributes] 参数说明: ·Object:必须项，是File 或Folder对象的名称。 ·Newattributes:可选项，如果指定参数，则newattributes为指定的object的属性的新值。 newAttributes参数可取表6.5中设置之一或其合理组合。 表6.5 newattributes参数的取值 常数 值 描述 Normal 0 普通文件。没有设置任何属性 ReadOnly 1 只读文件。可读写 Hidden 2 隐藏文件。可读写 System 4 系统文件。可读写 Directory 16 文件或目录。只读 Archive 32 上次备份后已更改的文件。可读写。 Alias 1024 链接或快捷方式。只读。 Compressed 2048 压缩文件。只读 如果对只读属性(别名，压缩或目录)有所改变，将被忽略。 当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性。 以下例子说如何使用Atrributes属性: <% dim dir dir="c:\2\dir.txt" response.write ToggleArchiveBit(dir) Function ToggleArchiveBit(filespec) dim fso,f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFile(filespec) if f.attributes and 32 then f.attributes=f.attributes-32 ToggleArchiveBit="清空归档位。" else f.attributes=f.attributes+32 ToggleArchiveBit="设置归档位。" end if End Function %> DateCreated属性 只读属性,返回指定的文件或文件夹的创建日期和时间。语法为: object.DataCreated 其中object为必须。File或Folder对象的名称。 以下代码举例说明如何使用DateCreated属性: <% dim dir dir="c:\2\dir.txt" response.write ShowFileInfo(dir) Function Show