切换到Visual Basic Script经常会遗漏的语法总结

• 什么时候用Set，什么时候不用？例如 y.GetSomething()返回的是一个对象，则要使用Set去接收它Set x = y.GetSomething()。如果y.GetSomething()返回的是一个基本数据类型，如string，int类型，则不能用Set去接收，应该直接写 x = y.GetSomething()
• If(x>0)Then Else EndIf 记住Then不要漏了，这个Then经常漏掉，还有EndIf
• 想要用vbs以UTF-8编码写入文件，要使用ADODB.Stream，示例代码如下：

  Sub AppendToFile(filePath, content)
      Dim objFSO, objStream
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      ' 判断文件是否存在，如果不存在则创建文件
      If Not objFSO.FileExists(filePath) Then
          Set objStream = objFSO.CreateTextFile(filePath)
          objStream.Close
      End If
      ' 打开文件并以 UTF-8 编码写入内容
      Set objStream = CreateObject("ADODB.Stream")
      objStream.Open
      objStream.Charset = "UTF-8"
      objStream.LoadFromFile(filePath)
      ' 在文件末尾追加内容
      objStream.Position = objStream.Size
      objStream.WriteText content
      objStream.SaveToFile filePath, 2 ' adSaveCreateOverWrite
      ' 关闭文件对象
      objStream.Close
      Set objStream = Nothing
      Set objFSO = Nothing
  End Sub