hbwazxf

新手学习一下吧。

myzam

2# myzam
假设f盘有一文件叫 20.txt其属性设置为只读且存档，
现在要用vbs显示这两个属性。方法如下：

set fso=createobject("scripting.filesystemobject")
set file=fso.getfile("f:\20.txt")
t=file.attributes
set dic=createobject("scripting.dictionary")
dic.add 0,"normal"
dic.add 1,"readonly"
dic.add 2,"hide" 
dic.add 4,"system"
dic.add 32,"achive"

 wscript.echo dic(t and 32),dic(t mod 32)
复制代码

---------------------------------
返回驱动器的文件系统

set fso=createobject("scripting.filesystemobject")
set file=fso.drives
on error resume next ‘由于有光驱的存在，没有这句将返回驱动器没有准备好这一结果。
for each i in file
wscript.echo i.filesystem
next
复制代码

resume单词的英文意思：假定，认定。
如假定x是大于2的数：Resuming x is greater than 2

题外话：如果是学数学的 用过专业的数学软件maple，那里面就有大量的 resume这个单词的用法。

--------------------------------------------------------------------------------------------
显示桌面文件有哪些？有多少。

set obj=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
path=obj.specialfolders("desktop")  ‘获取桌面路径，可以直接输入
set folder=fso.getfolder(path)
set files=folder.files
for each i in files
    wscript.echo i.name ’获取文件名
next
   wscript.echo files.count  ‘获取文件数量
复制代码

myzam

vbs问题：
1. 如何在cmd中画出抛物线y=x*x   ？
2.如何从字符串 str="2011-11-30 12:50:33"
中提取年，月，日，时，分，秒？
3. 如何把数字 num=12345转化为 num=$12345.0000 ?
4.如果a.txt,b.txt被打开，如何聚焦到指定的文件如a.txt?
5. 已知字符串 str="z:\gg\ff\my.extend", 如何从str中提取：z，z:,my,extend,my.extend?
6.已知 p1="z:\gg\ff",p2="\rr\uu.txt"，如何合并路径p1与p2？