标题: QTP告别COM编程(转) [打印本页] 作者: peterz 时间: 2009-3-10 15:42 标题: QTP告别COM编程(转) 现QTP中现在已经不用使用Scripting.FileSystemObject 来进行文件的操作了,因为它引入了.net
以前用Scripting.FileSystemObject判断文件否存在:
Public function sFileExists(sFileName)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(sFileName)) Then
sFileExists = true
Else
sFileExists = false
End If
End Function
现在可以使用.net里的类了,方法如:
Set var_CreateInstance = DotNetFactory.CreateInstance("System.IO.File", "")
dim filepath
filepath = "E:\Excel_VBA.txt"
dim b
b = var_CreateInstance.Exists(filepath)
msgbox b