Vbs高手请进…(求一段很简单的vbs程序)

' testVBS

set fs = CreateObject("ScriptingFileSystemObject")

filePath = "C:\ABCtxt"

if fsFileExists(filePath) then

MsgBox "file existed"

WScriptQuit

end if

' 3

CreateFolders(filePath)

set ts = fsCreateTextFile(filePath, true)

' 4

firstName = ""

lastName = ""

lastNameFlag = false

for x=0 to WScriptArgumentsLength - 1

if WScriptArguments(x) = "/FirstName" then

if( x+1 <WScriptArgumentsLength) then

firstName = WScriptArguments(x+1)

end if

elseif WScriptArguments(x) = "/LastName" then

lastNameFlag = true

elseif lastNameFlag then

lastName = WScriptArguments(x)

end if

Next

do while firstName = ""

firstName = InputBox("Please Enter first name")

loop

do while lastName = ""

lastName = InputBox("Please Enter last name")

loop

tsWriteLine("First Name:" & firstName)

tsWriteLine("Last Name:" & lastName)

' 5

Set objProc = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'")

tsWrite "CPU Type:" & objProcName & " "

select case objProcArchitecture

case 0: tsWriteLine("x86")

case 6: tsWriteLine("IPF")

case 9: tsWriteLine("x64")

case else: tsWriteLine("Unknown")

end select

' 6

set wshnet = CreateObject("WScriptNetwork")

tsWriteLine("UserDomain:" & wshnetUserDomain)

tsWriteLine("ComputerName:" & wshnetComputerName)

tsWriteLine("UserName:" & wshnetUserName)

tsClose

sub CreateFolders(path)

start = 1 ' scan path beginning at pos 1

' search for "\"

pos = Instr(start, path, "\")

' loop until no more "\"

do until pos=0

' extract subpath to current "\"

folderpath = left(path, pos-1)

' does this folder already exist

if not fsFolderExists(folderpath) then

' create folder:

fsCreateFolder folderpath

end if

' move to next "\" and scan for more:

start = pos+1

pos = Instr(start, path, "\")

loop

end sub

根据你列出的要求解释一下：

1、2点就不用讲了吧，代码比较简单，之后的每点我在代码中都有标出号码

3、先调用一个sub——CreateFolders创建文件夹，该sub的定义在代码最后，其创建的过程就是根据“\”分隔，从上至下一个一个创建文件夹。

然后在创建文件

4、我对4的理解就是/FirstName后的第一个名字就是first name，/LastName后最后一个名字就是last name，例如下面的命令行（假设该vbs存放路径是C:\testvbs）：

C:\testvbs /FirstName abc ABC /LastName def DEF

结果abc就应该作为first name，大写的DEF就应该作为last name

如果命令行中没找到这两个name，就通过输入框输入，若输入为空则继续输入：

do while firstName = ""

firstName = InputBox("Please Enter first name")

loop

5、可以参考>

vb和vbs还是有很大的区别的,

但是作为vb的一个子集合(是vb里的一小部分命令)的vbs还是弱于vb!语句上差不多一样会vbs不一定会vb,会vb也不一定会vbs(看个人情况如果人太笨了,就还是学先vbs吧!)vbs不足的地方还是很多的…,不过我是建议你学vb好!

哥们我也喜欢vbs但是视乎

只是功能强大而已

但是实用性还没bat高

哥建议你先学bat语言,再学VB!这样

VB+bat差不多你就算是个中下级电脑高手了bat的命令虽然弱于vbs但是命令比vbs多

实用性比vbs高,虽然vbs也能做到bat尽可能做到的事情,不过相对而言bat还是方便许多!

只要你会vb

再去学vbs

看2眼就会啦!

学这些玩意不需要什么教程

自己慢慢琢磨!

以上就是关于Vbs高手请进…(求一段很简单的vbs程序)全部的内容，包括:Vbs高手请进…(求一段很简单的vbs程序)、高分求助一VBS程序、编程 vbs脚本程序 关于vb和vbs语言的疑惑，帮在下解答下…等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！