vbscript基础1

'数组

Dim arrayTest(10) '有11个元素 0-10

arrayTest(0) = 1

arrayTest(10) = 10

'动态数组

Dim arrayDymaic() '这里不要先填值

ReDim Preserve arrayDymaic(2)

arrayDymaic(1) = 3

ReDim Preserve arrayDymaic(10) '用preserve 保留数组中先前的值

arrayDymaic(10) = 10

'MsgBox arrayDymaic(10)

'if语句

Dim var

var=1

If var=1 Then
'MsgBox "var=1"

ElseIf var=2 Then
'MsgBox "var=2"

Else
'MsgBox "var=other"

End If

'Select Case 语句

var = 1

Select Case var
Case 1
'MsgBox "var=1"
Case 2 
'MsgBox "var=2"
Case Else
'MsgBox "other"

End Select

'for 语句

Dim intVar

intVar = 0

For i=0 To 10 Step 1 
intVar= intVar + i
If intVar > 40 Then
Exit for
End If

Next

'MsgBox intVar

'while 语句

i = 0

While i<10
i=i+1

Wend

'MsgBox i

'do [while | until].. loop 语句

'''''''''先判断 比while多个exit do 结束循环语句''''''''''''''''''''

i = 0

Do While i<10
i=i+1
If i>5 Then
Exit Do
End If

Loop

'MsgBox i

i=0

Do Until i>=10
i = i+1

Loop

'MsgBox i

'''''''''''后判断'''先执行一次'''''''''''''

i = 0

Do
i = i+1

Loop While i<10

'MsgBox i

Do
i=i+1

Loop Until i>5

'MsgBox i

'''''''''''''''''''''''''''''''

'for ...each 获得文件夹下的所有文件

Set fs = CreateObject("scripting.filesystemobject")

Set folder = fs.GetFolder("D:\yld的文件\视频\vbs\【批处理之家】VBS基础视频教程第三讲")

Set files = folder.Files

For Each onefile In files
MsgBox onefile.Name   ' onefile会输出文件绝对路径 .name只是输出文件名

Next