求解：如何判断文件是否存在

yuhang1120 · 发表于 2010-7-6 16:58:59

没有文件的绝对路径的情况下，如何能判断在当前文件夹下是否存在同名文件呢？

three116 · 发表于 2010-7-6 17:05:45

Dim fso , filespec
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.FileExists(filespec)

three116 · 发表于 2010-7-6 17:08:16

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:35

没想到这么快有人回复，谢谢

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

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

three116 · 发表于 2010-7-7 16:26:47

createobject("Scripting.FileSystemObject").GetFolder(".").Path得到的当前路径是所执行的vbs文件所在的文件夹

three116 · 发表于 2010-7-7 16:28:48

其实你的要求太过简单，没有明确的场景需求。你可以把你想要做的事情详细描述一下，我想大家都会愿意帮助你的。

yuhang1120 · 发表于 2010-7-9 10:03:51

好的，谢谢！
具体情况是这样：测试的软件有导出功能，每次点击导出按钮默认打开上一次导出或导入时的路径，这样每次执行导出操作时打开的路径是不固定的，我想动态的来获取这个路径，判断是否在这个文件夹下增加了我导出的文件。

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 求解：如何判断文件是否存在

相关帖子

回复 1# 的帖子

回复 6# 的帖子

站长推荐 /1