4,008
社区成员
发帖
与我相关
我的任务
分享
Function GetContent(path, cSet)
With WScript.CreateObject("ADODB.Stream")
.Mode = 3
.Type = 1
.Open
.LoadFromFile path
.Position = 0
.Type = 2
.Charset = cSet
GetContent = .ReadText(-1)
.Close
End With
End Function
Dim Return
Return = "TEST"
ExecuteGlobal GetContent("2.vbs", "GBK")
2.vbs
MsgBox Return