VBS類 方法總結 肯定能用到

'1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数
'2、Scripting.Dictionary —> 用来返回存放键值对的字典对象
'3、Wscript.Shell —> 提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取DOS 环境变量，读取链接中的设置
'4、Wscript.NetWork —> 提供网络连接和远程打印机管理的函数。（其中，所有Scripting 对象都存放在SCRRUN.DLL 文件中，所有的Wscript 对象都存放在WSHOM.ocx 文件中。）

'0 是在后台运行；1 表示正常运行；2 表示激活程序并且显示为最小化；3 表示激活程序并且显
'示为最大化；如果设为了true,脚本就会等待调用的程序退出后再向后执行
Set objShell=CreateObject("wscript.shell")
'objShell.Run "notepad",0,True
'objShell.Run "calc",0,True

'讀注冊表值
v=objShell.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Office/11.0/Common/InstallRoot/path")
'MsgBox v

Dim fso
Set fso=WScript.CreateObject("scripting.filesystemobject")
'FSO 包含的常见对象有：
'Drive 对象：包含储存设备的信息，包括硬盘、光驱、ram 盘、网络驱动器
'Drives 集合：提供一个物理和逻辑驱动器的列表
'File 对象：检查和处理文件
'Files 集合：提供一个文件夹中的文件列表
'Folder 对象：检查和处理文件夹
'Folders 集合：提供文件夹中子文件夹的列表
'Textstream 对象：读写文本文件
'FSO 的常见方法有：
'BulidPath：把文件路径信息添加到现有的文件路径上
'CopyFile：复制文件
'CopyFolder：复制文件夹
'CreateFolder：创建文件夹
'CreateTextFile：创建文本并返回一个TextStream 对象
'DeleteFile：删除文件
'DeleteFolder：删除文件夹及其中所有内容
'DriveExits：确定驱动器是否存在
'FileExits：确定一个文件是否存在
'FolderExists：确定某文件夹是否存在
'GetAbsolutePathName：返回一个文件夹或文件的绝对路径
'GetBaseName：返回一个文件或文件夹的基本路径
'GetDrive：返回一个dreve 对象
'GetDriveName：返回一个驱动器的名字
'GetExtensionName：返回扩展名
'GetFile：返回一个file 对象
'GetFileName：返回文件夹中文件名称
'GetFolder：返回一个文件夹对象
'GetParentFolderName：返回一个文件夹的父文件夹
'GetSpecialFolder:返回指向一个特殊文件夹的对象指针
'GetTempName:返回一个可以被createtextfile 使用的随机产生的文件或文件夹的名称
'MoveFile：移动文件
'MoveFolder：移动文件夹
'OpenTextFile：打开一个存在的文件并返回一个TextStream 对象
Set fso=Nothing   '釋放fso模型

'SendKeys 简化重复操作
Set wshObject =WScript.CreateObject("wscript.shell")
wshObject.SendKeys "e"

'Provider="Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=192.168.50.9; user id=sa;pwd=mis"
'Set Objconn = createobject("ADODB.Connection")
'Objconn.Open Provider & "QCDB"
'Set Objrs = CreateObject("ADODB.Recordset") '創建記錄集

'執行sql
'Sql="select count(*) from qcuser_file" '例如：Select count(*) from table1
'Set objrs = objconn.execute(sql)

'Wscript.Echo "This is the first line of text." & VbCrLF & VbCrLF & _
'"This is the second line of text."

'Wscript.Echo " 1" & VbTab & " 2" & VbTab & " 3"
'Wscript.Echo "A" & VbTab & "B" & VbTab & "C"
'Wscript.Echo "D" & VbTab & "E" & VbTab & "F"

Const Fixed = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDiskDrives = objFSO.Drives
For Each objDiskDrive in colDiskDrives
If objDiskDrive.DriveType = Fixed then
 MsgBox objDiskDrive.DriveLetter
End if
Next

DateInfo = DateInfo & Now & VbCrLf
DateInfo = DateInfo & Date & VbCrLf
DateInfo = DateInfo & Time & VbCrLf
Wscript.Echo DateInfo