QTP中，判断 excel文件是否存在，不存在，新建一个。能实现吗？怎么实现？ - 51Testing软件测试论坛

dim oFSO
' creating the file system object
set oFSO = CreateObject ("Scripting.FileSystemObject")
'Option Explicit
' *********************************************************************************************
' Create a new txt file
' Parameters:
' FilePath - location of the file and its name
' *********************************************************************************************
Function CreateFile (FilePath)
' varibale that will hold the new file object
dim NewFile
' create the new text ile
set NewFile = oFSO.CreateTextFile(FilePath, True)
set CreateFile = NewFile
End Function
' *********************************************************************************************
' Check if a specific file exist
' Parameters:
' FilePath - location of the file and its name
' *********************************************************************************************
Function CheckFileExists (FilePath)
' check if file exist
CheckFileExists = oFSO.FileExists(FilePath)
End Function

复制代码