初次接触VBS

随便找了段VBS程序，分析语句

On Error Resume Next               

//////使程序按照产生错误的语句之后的语句继续执行，具体见http://hi.baidu.com/51735/blog/item/6921bf58d5868cdb9d820467.html

Dim sourcepath           
Dim numb

/////////////////////Dim应该是定义变量吧，猜得

////////////////Set初始化变量
Sub fileW            '写文件
 Dim fso, MyFile
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set MyFile = fso.CreateTextFile("c:\2.txt", True)
 MyFile.WriteLine("YES")
 MyFile.Close
 Set MyFile = fso.GetFile("c:\2.txt")
 'MyFile.Delete 
End Sub

////////Sub XXX   跟 End Sub 组成一个函数

Sub FolderAttributes(sourcepath)
    Dim fso, objFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  '调用GetFile()返回File对象，通过File对象来访问其下的属性
  Set objFile = fso.GetFile(sourcepath)
 ////////// 我需要的东西，获取文件信息的方式～哈哈

  MsgBox "文件大小:" & objFile.Size
  if objfile.Size >= 100000 Then '文件大小需要准确判断请自己来定
   MsgBox "YES"
   fileW
  Else 
   MsgBox "false"
  End if
End Sub

 sourcepath = "c:\1.txt"
 Call FolderAttributes(sourcepath) 

//////////////////是不是有参数的函数，在调用的时候要用Call？没参数的，直接用函数名？