UFT 14.00 如何在不同的操作中使用 属性 的函数

Question

我在 UFT/QTP 14.00 时遇到了这个问题。我想使用函数中的 属性 来写入日志文件，但是 return 在 运行 操作时出现此错误。

Error message: Object doesn't support property or method

这是我的代码：

Function Escrito
    'Function in VBS
    'Habilitamos la creacion y modificacion de archivos
        'Enable Create and update files
     Set fso=createobject("Scripting.FileSystemObject")
     set Stream = fso.CreateTextFile("C:\Users\HCCMD\Documents\test.txt")
     Escrito = Stream
End Function

我想使用 Escrito().write "Hola mundo" 例如。

Answer 1

你忘记了Set。

Set Stream = fso.CreateTextFile("C:\Users\HCCMD\Documents\test.txt")
Set Escrito = Stream

或者，更简单

Set Escrito = fso.CreateTextFile("C:\Users\HCCMD\Documents\test.txt")

另请参阅：What does the keyword Set actually do in VBA?（也适用于 VBScript）