QTP中，判断 excel文件是否存在，不存在，新建一个。能实现吗？怎么实现？

angel

QTP中，判断 excel文件是否存在，不存在，新建一个。能实现吗？怎么实现？

请各位大侠帮忙，谢谢。

lovetest6

好像贴过了吧？看来整理论坛是当务之急 啊。呵呵。更多的例子，请参考QTP plus的帮助文件。

1. dim oFSO
   
2. 
   
3. ' creating the file system object
   
4. 
   
5. set oFSO = CreateObject ("Scripting.FileSystemObject")
   
6. 
   
7. 
   
8. 
   
9. 'Option Explicit
   
10. 
    
11. ' *********************************************************************************************
    
12. 
    
13. ' Create a new txt file
    
14. 
    
15. 
    
16. 
    
17. ' Parameters:
    
18. 
    
19. ' FilePath - location of the file and its name
    
20. 
    
21. ' *********************************************************************************************
    
22. 
    
23. Function CreateFile (FilePath)
    
24. 
    
25.     ' varibale that will hold the new file object
    
26. 
    
27.     dim NewFile
    
28. 
    
29.     ' create the new text ile
    
30. 
    
31.     set NewFile = oFSO.CreateTextFile(FilePath, True)
    
32. 
    
33.     set CreateFile = NewFile
    
34. 
    
35. End Function
    
36. 
    
37. 
    
38. 
    
39. ' *********************************************************************************************
    
40. 
    
41. ' Check if a specific file exist
    
42. 
    
43. 
    
44. 
    
45. ' Parameters:
    
46. 
    
47. ' FilePath - location of the file and its name
    
48. 
    
49. ' *********************************************************************************************
    
50. 
    
51. Function CheckFileExists (FilePath)
    
52. 
    
53.     ' check if file exist
    
54. 
    
55.     CheckFileExists = oFSO.FileExists(FilePath)
    
56. 
    
57. End Function

复制代码

[ Last edited by lovetest6 on 2005-7-22 at 09:25 ]