|
VBS脚本应用-其它示列(5) wshshell.sendkeys 250481892
wscript.sleep 2000
wshshell.sendkeys {TAB}
wshshell.sendkeys ****************
wscript.sleep 2000
wshshell.sendkeys {ENTER}
Wscript.quit
文件夹的简单操作
Set fso = Wscript.CreateObject(Scripting.FileSystemObject) ‘声明
Set f = fso.CreateFolder(%PATH%) '创建文件夹
Set e = getFolder(%PATH%) '类似于“绑定目标”
e.copy(%PATH2%) '复制文件夹
fso.deletefolder(%PATH%) '删除文件夹
例子:
Set fso = Wscript.CreateObject(Scripting.FileSystemObject)
Set f = fso.CreateObject("C:\\sample")
f.copy("D:\\sample")
fso.deletefolder("C:\\sample")
'(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性)
将某一指定文件夹的所有只读文件转为可读文件
Const ReadOnly = 1 ‘设只读属性对应值为1
Set FSO = CreateObject(Scripting.FileSystemObject) \'声明
Set Folder = FSO.GetFolder(%PATH%) ’绑定文件夹
Set colFiles = Folder.Files ‘文件夹所有文件
For Each objFile in colFiles ’下列语句应用于文件夹所有文件
If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读
File.Attributes = File.Attributes XOR ReadOnly '对判断结果为Ture（默认为True）’执行XOR逻辑运算，将其改为可读
End If ‘结束判断
Next
将Word文件另存为文本文件
Const wdFormatText = 2 '设置常数值
'(当该值为8时另存为HTML文档，为11时另存为XML文档)
Set objWord = CreateObject(Word.Application) '申明调用函数
Set objDoc = objWord.Documents.Open(%Path%) '打开某DOC文件
objDoc.SaveAs %PATH2%, wdFormatText '另存为……
| 
