51Testing软件测试论坛

标题: 求解：如何判断文件是否存在 [打印本页]

作者: yuhang1120 时间: 2010-7-6 16:58
标题: 求解：如何判断文件是否存在
没有文件的绝对路径的情况下，如何能判断在当前文件夹下是否存在同名文件呢？

作者: three116 时间: 2010-7-6 17:05
Dim fso , filespec
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.FileExists(filespec)

作者: three116 时间: 2010-7-6 17:08
Dim fso , filespec, currentPath, fileToCheck
fileToCheck = "test.txt"
currentPath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.FileExists(currentPath & fileToCheck )

不知道这样是否满足你的需要

作者: yuhang1120 时间: 2010-7-6 17:27
没想到这么快有人回复，谢谢

createobject("Scripting.FileSystemObject").GetFolder(".").Path得到的当前路径好像不一样

我打开了我的文档，可是当前路径显示 “C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\~tlp19”

作者: three116 时间: 2010-7-7 16:26
createobject("Scripting.FileSystemObject").GetFolder(".").Path得到的当前路径是所执行的vbs文件所在的文件夹

作者: three116 时间: 2010-7-7 16:28
标题: 回复 1# 的帖子
其实你的要求太过简单，没有明确的场景需求。你可以把你想要做的事情详细描述一下，我想大家都会愿意帮助你的。

作者: yuhang1120 时间: 2010-7-9 10:03
标题: 回复 6# 的帖子
好的，谢谢！
具体情况是这样：测试的软件有导出功能，每次点击导出按钮默认打开上一次导出或导入时的路径，这样每次执行导出操作时打开的路径是不固定的，我想动态的来获取这个路径，判断是否在这个文件夹下增加了我导出的文件。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)