ＦＳＯ
Set fso = CreateObject("Scripting.FileSystemObject")
词句必须写上，FSO 对象模型包含在 Scripting 类型库中，
要访问现有驱动器、文件或文件夹，则使用 FileSystemObject 对象中的适当的"get" 方法
GetDrive
GetFolder
GetFile
Set f1 = fso.GetFile("c:\test.txt")这样就有了句柄f1
对于＂create＂方法，可创建文件和文件夹
Set File = fso.CreateFolder("C:\MyTest")
File 是返回的句柄
一旦有了对象的句柄，就可以访问它的属性
１：所有对象的属性
AtEndOfLine 属性如if file.AtEndOfLine＝true ……
AtEndOfLine 属性只能应用于打开用来读取（：１）的TextStream 文件，在一行末尾为true
AtEndOfStream 属性
如果文件指针位于 TextStream 文件的末尾，则返回 True；如果不是，则返回False。
Attributes 属性
设置或返回文件或文件夹的属性。
AvailableSpace 属性
返回指定的驱动器或网络共享上，可供用户使用的空间大小。
Column 属性
返回 TextStream 文件中当前字符位置的列号。
CompareMode 属性
设置并返回比较模式，用于比较 Dictionary 对象中的字符串关键字。
Count 属性
返回集合或 Dictionary 对象中的项目数。
DateCreated 属性
返回指定的文件或文件夹的创建日期和时间。只读。
DateLastAccessed 属性
返回指定的文件或文件夹上一次被访问的日期和时间。
DateLastModified 属性
返回指定的文件或文件夹上一次被修改的日期和时间。
Drive 属性object.Drive object 应为 File 或 Folder 对象。
返回指定的文件或文件夹所在驱动器的盘符。
DriveLetter 属性
返回本地物理驱动器或网络共享的盘符。
DriveType 属性
返回一个值，表明指定的驱动器的类型。
FileSystem 属性
返回指定的驱动器所用的文件系统的类型。
FreeSpace 属性
返回指定的驱动器或网络共享上，可供用户使用的空间大小。
IsReady 属性
如果指定的驱动器准备就绪，则返回 True；如果没有，则返回 False。IsRootFolder 属性
如果指定的文件夹是根文件夹，则返回 True；如果不是，则返回 False。Item 属性
对于 Dictionary 对象中指定的关键字，设置或返回与之相对应的项目。对于集合，则根据指定的关键字返回一个项目。
Key 属性
设置 Dictionary 对象中的关键字。
Line 属性
返回 TextStream 文件中的当前行号。
Name 属性
设置或返回指定的文件或文件夹的名称。
ParentFolder 属性
返回指定文件或文件夹的上一级的文件夹对象。
Path 属性
返回指定文件、文件夹或驱动器的路径。
RootFolder 属性
返回一个 Folder 对象，代表指定驱动器的根文件夹。
SerialNumber 属性
返回十进制序列号，用于唯一地标识磁盘卷。
ShareName 属性
返回指定驱动器的网络共享名。
ShortName 属性
返回要求早期 8.3 命名规范的程序使用的短名称。
ShortPath 属性
返回要求早期 8.3 命名规范的程序使用的短路径。
Size 属性
对于文件，返回指定的文件的大小，以字节为单位。对于文件夹，返回文件夹所包含的所有文件和子文件夹的大小，以字节为单位。
TotalSize 属性
返回驱动器或网络共享的总空间，以字节为单位。
Type 属性
返回有关文件或文件夹类型的信息。
VolumeName 属性
设置或返回指定驱动器的卷名。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
２：所有对象的集合属性
Drives 集合
所有可用驱动器的集合（只读）。
Set dc = fso.Drives
For Each d in dc ……
Files 集合
文件夹内所有 File 对象的集合。
Set fc = f.Files
For Each f1 in fc ……其中ｆ必须为文件夹对象
SubFolders 集合
返回一个 Folders 集合，由指定文件夹中包含的所有文件夹组成，包括设置了隐藏和系统文件属性的文件夹。
object.SubFolders
object 应为 Folder 对象
＝＝＝＝＝＝＝＝＝＝＝＝
３：FileSystemObject 方法
对于所有的方法，必须是以下对象或者集合所拥有：
对象/集合描述
FileSystemObject 主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。和该对象相关联的许多方法，与其他 FSO 对象中的方法完全相似；它们是为了方便才被提供的。
Drive 对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是 CD-ROM 驱动器，RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。
Drives 集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。
File 对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种其他属性。
Files 集合。提供包含在文件夹内的所有文件的列表。
Folder 对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路径和多种其他属性。
Folders 集合。提供在 Folder 内的所有文件夹的列表。
TextStream 对象。用来读写文本文件。
不同对象含有的方法和属性：
１：Drive 对象
方法：Drive 对象没有方法。
属性
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性２：File 对象
方法
Copy 方法 | Delete 方法 | Move 方法 | OpenAsTextStream 方法
属性
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | Type 属性３：FileSystemObject 对象
方法
BuildPath 方法 | CopyFile 方法 | CopyFolder 方法 | CreateFolder 方法 | CreateTextFile 方法 | DeleteFile 方法 | DeleteFolder 方法 | DriveExists 方法 | FileExists 方法 | FolderExists 方法 | GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法 | MoveFile 方法 | MoveFolder 方法 | OpenTextFile 方法
属性
Drives 属性
４：Folder 对象
方法
Copy 方法 | Delete 方法 | Move 方法 | OpenAsTextStream 方法
属性
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | Type 属性
５：TextStream 对象
方法
Close 方法 | Read 方法 | ReadAll 方法 | ReadLine 方法 | Skip 方法 | SkipLine 方法 | Write 方法 | WriteBlankLines 方法 | WriteLine 方法
属性
AtEndOfLine 属性 | AtEndOfStream 属性 | Column 属性 | Line 属性
Add 方法（Dictionary）
向 Dictionary 对象中添加一个关键字项目对。
Add 方法（Folders）
将新文件夹添加到 Folders 集合。
BuildPath 方法
将名称追加到现有路径。
Close 方法
关闭一个打开的文本流文件。
Copy 方法
将指定的文件或文件夹从一个位置复制到另一个位置。
CopyFile 方法
将一个或多个文件从一个位置复制到另一个位置。
CopyFolder 方法
递归地将文件夹从一个位置复制到另一个位置。
CreateFolder 方法
创建文件夹。
CreateTextFile 方法
创建指定的文件名，并返回可用于读取该文件或写入到该文件的 TextStream 对象。
Delete 方法
删除指定的文件或文件夹。
DeleteFile 方法
删除指定的文件。
DeleteFolder 方法
删除指定的文件夹及其内容。
DrivesExists 方法
如果指定的驱动器存在，则返回 True；如果不存在，则返回 False。
Exists 方法
如果 Dictionary 对象中存在指定的关键字，则返回 True；如果不存在，则返回 False。
FileExists 方法
如果指定的文件存在，则返回 True；如果指定的对象不存在，则返回 False。FolderExists 方法
如果指定的文件夹存在，则返回 True；如果不存在，则返回 False。GetAbsolutePathName 方法
由给定的路径规格，返回完整而明确的路径。
GetBaseName 方法
返回一个字符串，包含路径中最后一个组件的基本名称，但不包含扩展名。GetDrive 方法
返回一个 Drive 对象，该对象与指定路径中的驱动器相对应。GetDriveName 方法
返回一个字符串，包含与指定路径相对应的驱动器的名称。GetExtensionName 方法
返回一个字符串，包含路径中最后一个组件的扩展名。
GetFile 方法
返回一个 File 对象，该对象与指定路径中的文件相对应。
GetFileName 方法
返回指定路径中的最后一个组件，该路径不是驱动器规格的组成部分。GetFileVersion 方法
返回指定文件的版本号。
GetFolder 方法
返回一个 Folder 对象，该对象与指定路径中的文件夹相对应。GetParentFolderName 方法
返回一个字符串，包含指定路径中最后一个组件的父文件夹的名称。GetSpecialFolder 方法
返回指定的特殊文件夹对象。
GetTempName 方法
返回随机生成的临时文件或文件夹名称，这在执行需要临时文件或文件夹的操作中尤为有用。
Items 方法
返回一个数组，包含 Dictionary 对象中的所有项目。
Keys 方法
返回一个数组，包含 Dictionary 对象中的所有现存关键字。
Move 方法
将指定文件或文件夹从一个位置移到另一个位置。
MoveFile 方法
将一个或多个文件从一个位置移到另一个位置。
MoveFolder 方法
将一个或多个文件夹从一个位置移到另一个位置。
OpenAsTextStream 方法
打开指定的文件，并返回可用于读取、写入或追加到该文件的 TextStream 对象。OpenTextFile 方法
打开指定的文件，并返回可用于读取、写入或追加到该文件的 TextStream 对象。Read 方法
从 TextStream 文件读取指定数量的字符，并返回所生成的字符串。
ReadAll 方法
读取整个 TextStream 文件，并返回所生成的字符串。
ReadLine 方法
从 TextStream 文件读取一整行（截止到但不包括换行符），并返回生成的字符串。
Remove 方法
从 Dictionary 对象中移除一个关键字、项目对。
RemoveAll 方法
从 Dictionary 对象中移除所有关键字、项目对。
Skip 方法
读取 TextStream 文件时，跳过指定数量的字符。
SkipLine
读取 TextStream 文件时跳过下一行。
Write 方法
将指定的字符串写入 TextStream 文件。
WriteBlankLines 方法
将指定数量的换行符写入 TextStream 文件。
WriteLine 方法
将指定的字符串和换行符写入 TextStream 文件。
利用VBS实现简单的注册表操作 一.VBS简介: 1.VBS代码在本地是通过Windows Script Host(WSH)解释执行的。VBS脚本的执行离不开WSH，WSH 是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。利用WSH，用户能够操纵WSH对象、ActiveX对象、注册表和文件系统。在Windows 2000下，还可用WSH来访问Windows NT活动目录服务。 2. 用VBS编写的脚本程序在窗口界面是由wscript.exe文件解释执行的，在字符界面由cscript.exe文件解释执行。wscript.exe是一个脚本语言解释器，正是它使得脚本可以被执行，就象执行批处理一样。 二.VBS脚本的实例应用: 1.注册表解锁: DIM WSH SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") ****'击活WScript.Shell对象 WSH.POPUP("解锁注册表编辑器!") **** '显示弹出信息“解锁注册表编辑器!” WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion \Policies\System\DisableRegistryTools",0,"REG_DWORD" ****'给注册表编辑器解锁 WSH.POPUP("注册表解锁成功!") ****'显示弹出信息“注册表解锁成功!” 2.关闭Win NT/2000的默认共享: Dim WSHShell ****'定义变量 set WSHShell=CreateObject("WScript.shell") ****'创建一个能与操作系统沟通的对象WSHShell Dim fso,dc Set fso=CreateObject("Scripting.FileSystemObject") ****'创建文件系统对象 set dc=fso.Drives ****'获取所有驱动器盘符 For Each d in dc Dim str WSHShell.run("net share"&d.driveletter &"$ /delete") ****'关闭所有驱动器的隐藏共享 next WSHShell.run("net share admin$ /delete") WSHShell.run("net share ipc$ /delete") ****'关闭admin$和ipc$管道共享 3.显示本机IP: Dim dd Set dd=CreateObject("MSWinsock.Winsock") IPAddress=WS.LocalIP MsgBox "Local IP=" & IPAddress
Vbs脚本经典教材 Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开W ORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机（？）吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs 脚本了，并且可以直接执行。
VBS操作Excel常见方法 dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = "E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格B2内容 '..... 3、如果是XP系统，可以使用如下代码 Dim objFileDlg Set objFileDlg = CreateObject("https://www.doczj.com/doc/ee5039649.html,monDialog") objFileDlg.Filter = "Excel File (*.xls) |*.xls" If objFileDlg.ShowOpen Then msgbox "您选择的文件是：" & objFileDlg.FileName & vbCrLf End If VBS控制Excel的一些常见方法： (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改 Excel 标题栏： oExcel.Caption = "应用程序调用 Microsoft Excel" 3) 添加新工作簿： 4) 打开已存在的工作簿： "C:\Excel\Demo.xls" ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( "Sheet2" ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = "第一行第四列"
V B S脚本编程简明教程 精编 Document number：WTT-LKK-GBB-08921-EIGG-22986
第一章 VBS脚本编程简明教程 第一节◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机()吗 Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程
VBS代码片断大全[一] 1 VBS 取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next -------------------------------------------------------------------------------- 2 取得本机计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Wscript.Echo https://www.doczj.com/doc/ee5039649.html, Next -------------------------------------------------------------------------------- 4 检查升级包 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next -------------------------------------------------------------------------------- 5 检查Hot Fix strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Description: " & objQuickFix.Description
VBS脚本教程(一) 打开你的“记事本”程序，在编辑窗口填写： msgbox "Hello World!" 然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。看到弹出的对话框了没有，单击“确定”，对话框消失了。难看了点，不过确实是你编写的第一个脚本程序。 说明之一：上面的操作中，保存位置放在桌面，仅仅是为了执行方便，你保存到其他的地方完全没有问题，只要你知道你保存在什么地方就可以了，什么？是废话，自己保存的当然知道保存在那里了。不，自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写，不一定非要写kk，只要符合Windows的文件命名规则就可以了，但是扩展名必须是vbs，什么?不知道什么是扩展名？就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：xxx.vbs，其中xxx你随意。 说明之二：在记事本编辑窗口中写的这行是什么意思？ Msgbox是VBS内建的函数，每一个函数都可以完成一定的功能，你只需要按照语法要求，在函数的相应部分填写相应的内容就可以了，这部分内容我们称为参数，当然函数执行的结果我们称为返回值，一个函数可以有返回值也可以没有，可以有参数也可以没有。你不用了解函数是怎么运作的，只要了解这个函数能干什么就行了。 Msgbox语法：msgbox "对话框内容", , "对话框的标题" 你不妨用记事本打开刚才的文件在编辑窗口中输入： msgbox "Hello World!" , , "系统提示" 执行一下，看看效果和位置。 说明之三：如果执行失败，看看你的标点符号，所有的标点符号必须是在英文状态下输入的。 当然，这个脚本实在是太简单了，甚至连最简单的交互都没有，所以你可以把脚本这样修改一下： Dim name name=Inputbox("请输入你的名字:","名称") Msgbox name, , "您的名字是" 保存执行一下，看到弹出的对话框了么？填入你的名字，点确定，看到结果了吗？ 说明之一：第一句是定义变量，dim是定义变量的语句 其格式为：dim 变量1,变量2……， Vbs只有一种变量类型，所以不用声明变量类型。系统会自动分辨变量类型。 说明之二：inputbox是VBS内建的函数，可以接受输入的内容，其语法格式为： Inputbox("对话框内容","对话框标题") 第二句的意思是接受用户的输入，并把输入结果传递给变量name。 好了，到此脚本基本的输入输出函数都有了，已经可以完成一些比较简单的功能了，你可以编写一个
几个超有价值的VBS脚本！ 2008-08-20 12:13 1、exe2swf工具用法：将exe格式的flash拖放在此vbs文件上，即可生成swf文件 dim AsoR,FlashFileName Set ArgObj = WScript.Arguments dim PositionStart,OKed,Tag,EndSize PositionStart = 920000'flash 4的播放器的大致字节数 EndSize = 8 'exe文件结尾字节数,其它版本可以设置为0 FlashFileName = ArgObj(0)'传递路径 set AsoR=CreateObject("Adodb.Stream") AsoR.Mode=3 AsoR.Type=1 AsoR.Open set AsoW=CreateObject("Adodb.Stream") AsoW.Mode=3 AsoW.Type=1 AsoW.Open AsoR.LoadFromFile(FlashFileName) OKed = true dim filesize filesize = AsoR.size if filesize>PositionStart then while OKed AsoR.Position = PositionStart Tag = Bin2Str(AsoR.read(20)) if instr(Tag,"0000000") >0 then PositionStart = PositionStart + 1 else PositionStart = PositionStart + 20 end if if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then OKed = false end if 'if PositionStart > filesize then ' OKed = false 'end if wend
操作 及其操作 VBS连接EXCEL及其(一) 使用动态创建的方法 首先创建Excel 对象，使用ComObj: oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口： oExcel.Visible = True 2) 更改Excel 标题栏： oExcel.Caption = "应用程序调用Microsoft Excel" 3) 添加新工作簿： oExcel.WorkBooks.Add 4) 打开已存在的工作簿： oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" ) 5) 设置第2个工作表为活动工作表： oExcel.WorkSheets(2).Activate 或 oExcel.WorksSheets( "Sheet2" ).Activate 6) 给单元格赋值： oExcel.Cells(1,4).Value = "第一行第四列"
7) 设置指定列的宽度（单位：字符个数），以第一列为例： oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ' 1厘米 9) 在第8行之前插入分页符： oExcel.WorkSheets(1).Rows(8).PageBreak = 1 10) 在第8列之前删除分页符： oExcel.ActiveSheet.Columns(4).PageBreak = 0 11) 指定边框线宽度： oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight = 3 1-左2-右3-顶4-底5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： oExcel.ActiveSheet.Cells(1,4).ClearContents 13) 设置第一行字体属性： oExcel.ActiveSheet.Rows(1)https://www.doczj.com/doc/ee5039649.html, = "隶书" oExcel.ActiveSheet.Rows(1).Font.Color = clBlue oExcel.ActiveSheet.Rows(1).Font.Bold = True oExcel.ActiveSheet.Rows(1).Font.UnderLine = True
VBS脚本参考之一——使用连字符2007年06月14日星期四下午08:35前言 这一章的前半部分介绍了VB 脚本最基本的概念，并且告诉你它可以完成的工作，尤其是VBS和其它的如WMI、ADSI 接合在一起的时候。后半部分主要介绍了VBS对系统管理员更有用的部分。 许多脚本和程序语言在向文本输入的时候并不严格的遵守文本的行。例如，尽管下面这个JS 脚本写了很多行，但是，JS 把它当做一行来处理。这是因为，在大部分的时候，JS 只有看到中止符的时候才认为使一个行的中止。在这个例子中，中止符就是“；”。在实际中敲入的行是和脚本本身不相关的。 var 作者：临汾市外事旅游局薛靖澜，转载请注明出处] objWMI =new Enumerator (GetObject("winmgmts:") . InstancesOf("Win32_process")) ; 正好相反，同样的一段代码，用VB 写的时候就会报一个语法错误。 Set objWMI = (GetObject("winmgmts:") . InstancesOf("Win32_process")) 这是因为，VBS用回车键来代替特定的中止符。为了中止一个VB脚本，你不需要来敲入一个分号或者其它的特殊的符号，你只需要敲回车键就好了。一般来讲，不用中止符的限制，使VBS 在编写的过程中变的简单，但是也有一点会有些复杂。为了增强程序的可读性，建
议每行的最大长度不超过80个字符。那么当你的一行代码中有100 个字符，怎么办呢？尽管看来好象有个很简单的解决办法，但是你不能用回车键来将一行代码分隔成很多行。例如如下的代码片断会返回一个VB 运行错误因为它用回车键来分隔脚本 strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, strCurrentStatus Wscript.Echo strMessageToDisplay 你不能用回车建来换行，因为在VB 中它认为回车是代表一段代码的中止，在上面的代码中，它认为第一行是脚本的第一部分陈述内容。然后认为第二行是另外一部分陈述内容。这样因为strCurrentStatus 不是一个VBS的命令，所以就报错了。为了解决这个问题，VB 脚本用下划线来表示下面一行是上面一行的代替。在VB 的早期修订版本中，在第一行末尾加一个空格和一个下划线来表示第二行是第一行的继续。为更明确的表明这个意思，第二行前面要加四个空格。（这样作是为了可读，你其实不必在继续的行前作特定的标识──就是不用在第二行前加四个空格。）作者：临汾市外事旅游局薛靖澜，转载请注明出处] strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, _ strCurrentStatus Wscript.Echo strMessageToDisplay 当继续的行又引号的时候，它就显的特别复杂。例如，架设你用下划线和空格来分隔一个WMI脚本： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM _ Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ") 如果你运行这个脚本，它会弹出一个错误，因为继续换行符放在了引号中间了，这样它就认为换行符是字符串的一部分。为了分隔这个陈述： 1：在第一行用引号中止，然后插入空格和下划线 2：用and(&)符号来开始下一行，这表示第二行是第一行字符串的继续 3：在下一行开始之前加入引号这些引号表示这些陈述是包涵在上面的一行中的，没有了引号，它就VB就解释Win32_Service 是VB 的陈述语句，因为这个语句不是合法的，所以就产生了错误。修正的版本如下： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM " _
◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机(?)吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM 对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll 作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs脚本了，并且可以直接执行。 Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本？ 就像多数计算机教程一样，我们从“Hello World！”程序开始我们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：Hello World！好了，我们开始吧。 打开你的“记事本”程序，在编辑窗口填写： msgbox "Hello World!" 然后用鼠标单击“文件”菜单，单击“保存”，把“保存在”一栏设为桌面，在“文件名”一栏中填写kk.vbs，单击“保存”就可以了。然后最小化“记事本”窗口，在桌面上寻找你刚刚保存的kk.vbs，然后双击。看到弹出的对话框了没有，单击“确定”，对话框消失了。难看了点，不过确实是你编写的第一个脚本程序。 说明之一：上面的操作中，保存位置放在桌面，仅仅是为了执行方便，你保存到其他的地方完全没有问题，只要你知道你保存在什么地方就可以了，什么？是废话，自己保存的当然知道保存在那里了。不，自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写，不一定非要写kk，只要符合Windows的文件命名规则就可以了，但是扩展名必须是vbs，什么?不知道什么是扩展名？就是文件名中“.”后的那部分，简单说，就是vbs脚本文件命名时必须是：xxx.vbs，其中xxx你随意。
第一章VBS脚本编程简明教程 第一节◎Vbs脚本编程简明教程之一—为什么要使用Vbs？ 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎，使人容易疲劳。 第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机(?)吗？ Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言，但是由于缺少计算机程序设计语言中的部分要素，对于事件的描述能力较弱，所以称为脚本，它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢？ 我这样理解，COM对象就是一些具有特定函数功能项程序模块，他们一般以ocx或者dll作为扩展名，你只要找到包含有你需要的功能的模块文件，并在脚本中规范的引用，就可以实现特定的功能，也就是说Vbs脚本就是调用现成的“控件”作为对象，用对象的属性和方法实现目的，完全免去了编写代码、设计算法等等麻烦。说白了，我不是觉得拔猪毛麻烦么？我发觉xx机（比如真空离心器）有一个功能可以实现脱毛，ok，我把它拿来给猪脱毛。什么？大材小用？太浪费资源了？天哪，那是计算机芯片的事情，死道友不死贫道，反正我的事情是方便快速的解决了，这就行了。 最方便的是它甚至不需要专门的开发环境，在你的计算机中，只要有notepad，就可以编写Vbs脚本了，并且可以直接执行。 第二节◎Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本？ 就像多数计算机教程一样，我们从“Hello World！”程序开始我们的练习。什么？不知道是什么意思？就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序，执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字：Hello World！好了，我们开始吧。 打开你的“记事本”程序，在编辑窗口填写：
◎感谢钱峰2007年05月13日星期日下午04:26学习Vbs，当然是看微软网站上推出的官方教程比较原汁原味，可惜中国vbs学友里看过的恐怕不多，原因很简单，微软的官方原著是英文版的，看起来很费力。 当时，我刚刚发现vbs的妙处，可是除了一本微软的《Microsoft Windows脚本技术.CHM》之外，什么学习资料也找不到，看到网上介绍有一本《windows2000脚本编程实用大全》的书，就跑到各个书店去订书，因为出版的时间太久了，那里都订不到，又跑到各个技术网站上去发帖，希望那位有电子版给我发一份，我愿意用其他方面的技术资料交换，结果如同石沉大海，一点消息也没有，在这里小小鄙视他们一下。 后来偶然在网络上遇到钱峰先生，慷慨赠送了他翻译的微软的官方教程给我，让我迈进了vbs的大门，真是惭愧，由于计算机感染病毒，钱峰先生的邮件地址我也找不到了，只有他的一个qq号码，却从来不见他上线，多次留言，也没有见到他回应，在此对钱峰先生的翻译工作及无偿赠予表示衷心的感谢！ 今后一段时间，我将逐步将钱峰先生翻译的微软官方教程贴出，与大家共同温习。 有英文好的朋友可能会发觉这份翻印的教程与微软官方原版并不是完全相同，一是因为钱峰先生翻译的时候大约并没有想到要出版或者与人交流，仅仅是自己学习，所以翻译的比较粗糙，我刚刚得到的时候，很多地方都看的不是很懂，在与微软英文官方教程比较后，按照自己的理解修改了其中的一部分（对其中的有些地方，其实到现在我也还是弄不明白）；二是因为外国人行文和思维的方式与中国人有着很大的差别，读起来颇为费力，所以我对其中一些表达方式进行了修改，删除了其中一些我认为无关紧要的东西。各位学友如发现其中的错误请不吝指出，我会尽快修改，语意不祥的地方请参考官方网站：https://www.doczj.com/doc/ee5039649.html,/technet/scriptcenter/guide/default.mspx ◎VBS脚本运行库手册之一（磁盘操作）2007年05月13日星期日下午04:36文件系统管理是系统管理的一个关键性任务。WSH 和VB 脚本在这个领域都没有提供相关的功能。幸运的是，你可以通过script runtime 库来管理这些关键的系统组件，比如磁盘，文件夹和文件。此外，script runtime 库提供了从text 文件读写的方法，可以用来创建dictionary和编译脚本。[作者：临汾市外事旅游局薛靖澜，转载请注明出处] 两种主要的脚本语言，VB 脚本语言和JS 脚本语言起初的时候都是设计给客户端来编写IE 的。正是因为如此，这两个脚本语言都有一些局限性。例如VB 脚本和JS 脚本内部都没有提供访问文件管理的一些任务，比如：复制、移动、删除文件等。这样做的目的是为了保护消费者。大多数的的网站不可能让用户通过网页去删除它们硬盘上的东西。尽管如此，脚本已经从类似的HTML 的按钮之类的开始迅速的发展了。随着ASP 的到来，浏览器的编写者要求在server 上管理文件。而随着WSH 的到来，系统管理员要求有在web 浏览器外来管理文件了。作者：临汾市外事旅游局薛靖澜，转载请注明出处] 为了满足这个要求，微软发布的了Script Runtime Library。它是一个单独的DLL 文件,scrrun.dll 文件，用来给脚本的编写者们提供一些文件管理的能力，包括以下内容：作者：
VBS脚本常用经典代码收集于2011年7月2日21:13:37整理 在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。 VBS播放音乐 Dimwmp Setwmp=CreateObject("WMPlayer.OCX") wmp.openState wmp.URL二'想象之中.mp3" DoUntilwmp.playState=1 WScript.Sleep1000 Loop 比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送 了)Setshell二CreateObject("WScript.Shell") shell.run"shutdown-s-t60-c 系统即将关闭.",0 WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123 MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层 Wend shell.run"shutdown-a",0 MsgBox"恭喜",64 修改桌面背景图片 Sphoto二"d:\1.bmp"'输入你自己的BMP路径 Consthkcu=&h80001 Setwmi=GetObject("winmgmts:
stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvalue hkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1 Setwmi=Nothing Setfso=CreateObject("scripting.filesystemobject") Setfs=fso.Getfile(Sphoto) backname=https://www.doczj.com/doc/ee5039649.html, https://www.doczj.com/doc/ee5039649.html,=fso.GetFileName(Spath) fs.Copyfso.GetParentFolderName(Spath)&"\",True https://www.doczj.com/doc/ee5039649.html,=backname Setfso=Nothing Setws=CreateObject("wscript.shell") ws.Run"gpupdate/force",vbhide ws.Run"RunDll 32.exeUSER 32.DLL,UpdatePerUserSystemParameters" Setws=Nothing VBS获取系统安装路径C: 'WINDOWS 路径 先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。 SetWshShell=WScript.CreateObject("WScript.Shell") strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")
VBS教程-wscript对象 一、wscript对象 描述：提供对Windows 脚本宿主对象模型根对象的访问。 详述：WScript 对象是Windows 脚本宿主对象模型层次结构的根对象。它可在任何脚本文件中使用，不需要特定的声明。WScript 对象提供对以下信息的访问命令行参数，脚本文件的名称，宿主文件名，宿主版本信息。WScript 对象可用来创建对象，连接对象，与对象断开连接，同步事件，以编程方式停止脚本的执行，将信息输出到默认输出设备（Windows 对话框或命令控制台）。WScript 对象也可用来设置脚本运行的模式（交互模式或批处理模式）。 就像刚才我们说的一样，对象通过两种其自有的特性想我们提供工具，这两种特性分别是―属性‖和―方法‖。 二、属性 1、Arguments属性 描述：用于返回Arguments 对象（这个对象我们以后会学，现在只需要了解就行）。 语法：object.Arguments 参数：object ，WScript 对象 例子：显示本vbs文件运行的参数 Set Arg=WScript.Arguments For i=0 to Arg.Count-1 msgbox Arg(i) Next 将上面这些代码保存为vbs文件，然后将一个或者数个任意的文件拖放到这个vbs文件上面上，那么他会逐个显示你拖放的文件。（这仅仅给出了一个实例，用到了Arguments对象，其的具体用法我们以后再了解）2、FullName 属性 描述：返回主机可执行文件（CScript.exe 或WScript.exe）的完全限定路径。 语法：object.FullName 参数：object ，WScript 对象 例子：显示本机wscript的路径 msgbox wscript.fullname 在默认的情况下会显示‖C:\WINDOWS\system32\wscript.exe― 3、Interactive 属性 描述：设置或确定脚本模式。 语法：object.Interactive 参数：object ，WScript 对象 说明：Interactive 属性返回一个布尔值。 有批处理和交互两种模式。在交互模式（默认模式）下，该脚本为用户提供交互功能。启用对Windows 脚本宿主的输入和输出。该脚本可以将信息显示在对话框中并等待用户提供反馈。在批处理模式下，不支持这种类型的用户交互,所有对WSH 的输入和输出被禁用。还可以使用Windows 脚本宿主命令行开关//I（对于交互式）和//B（对于批处理模式）来设置脚本模式。 例子：显示本机的脚本模式 msgbox WScript.Interactive 4、Name 属性 描述：返回WScript 对象（主机可执行文件）的名称。
VBS脚本编写及修改指导 -------------------------------------------------------------------------- Copyright (C), Raisecom Technology Co., Ltd . -------------------------------------------------------------------------- 版本 : 0.0.0.1 作者 : 李珊 完成日期 : 07 May 2009 -------------------------------------------------------------------------- 历史修改记录: -------------------------------------------------------------------------- 1. VBS语法总结 1) VBScript运算符优先级别
表达式由常量、变量、运算符、函数和圆括号按一定的规则组成，通过运算后有一个结果，运算结果的类型由数据和运算符共同决定。 2) VBScript控制语句总结 1、选择语句
1.1 单分支选择语句 If 条件Then 语句End If 1.2 双分支选择语句 If 条件 Then 语句1 Else 语句2 End If 1.3 多分支选择语句1 If 条件1 Then 语句1 ElseIf 条件2 Then 语句2 ElseIf 条件3 Then 语句3 ... Else 语句n End If [范例]： If length=1 Then a = "000" & a ElseIf length=2 Then a = "00" & a ElseIf length=3 Then a = "0" & a End If 1.4 多分支选择语句2
对于文件的操作，例如：生成一个或者打开一个或者删除一个.txt格式文件。 虽然官方的file插件提供了一些基本功能，但功能不多。 你并不需要理解什么是fso模版，什么是vbs语句，直接套用下面的语句吧！ 红色字为自己定义的部分，蓝色字为任意选一部分 如果你看不懂，请参考下面的例子！ 操作同一个文件红色部分必须相同 请认真看括号内的解释内容 定义一个名为fso的关系文件问题的对象，对于一个文件的操作只需写一次，此句必须写 vbs set fso = createobject(scripting.filesystemobject) 0.判断一个文件或文件夹是否存在(yn是返回值，文件存在返回1，不存在返回0) vbs yn=fso.fileexists(判断文件的目录) 1.创建一个文件(蓝字定义该文本文件是否可以被下次写入覆盖，省略默认为ture) vbs set ttfile=fso.createtextfile(创建的文件目录,ture|false) 2.打开一个已存在的文件(蓝字定义文件写入方式，分别为a.只读b.可读写,但每打开一次文件重写c.在文件末尾写) vbs const forreading=1 vbs const forwriting=2 vbs const forappending=8 注意：要想更改打开方式必须关闭文件重新打开 vbs set ttfile=fso.opentextfile(打开文件的目录,forreading|forwriting|forappending) 3.关闭一个打开的文件(红色部分要于已经打开的文件红色部分相同) vbs ttfile.close 4.读取打开文件的一行并回车(红色部分ttfile要于已经打开的文件红色部分相同) vbs read=ttfile.readline 5.读取所有文件内容(红色部分ttfile要于已经打开的文件红色部分相同) vbs read=ttfile.readall 6.写入一行并回车(红色部分要于已经打开的文件红色部分相同) vbs ttfile.writeline(自己要写入的内容) 7.删除指定文件(若已定义过ttfile则不需要第一句) vbs set ttfile=fso.getfile(要删的文件目录) vbs ttfile.delete 8.判断输入标记是否在末尾(是返回-1，否则返回0) vbs yn=ttfile.atendofstream 以下是一些文件夹的操作 8.判断是否为根目录(yn是返回值，文件存在返回1，不存在返回0) vbs yn=fso.isrootfolder 9.读取文件夹 vbs set ttfile=fso.getfolder(文件夹目录) 10.创建一个文件夹 vbs set ttfile=fso.creafolder(创建的文件夹目录) 11.删除指定文件夹(若已定义过ttfile则不需要第一句)