FSO对象问题

Question

本帖最后由 Jnagmy 于 2011-04-24 22:04:04 编辑

Answer 1

仔细一些，看看帮忙文件，FolderExists到底是什么？？
认真一点就可以解决问题的

Answer 2

嗯 找出来了、刚又翻了一下书 发现 函数调用错误了  FileExists才是 检查文件是否存在的
对了  有个问题是 
If FSO.FileExists(App.path + StrPathName(1)) = ture Then '这里 为什么不需要加上 "\"
    Print App.path + "\" + StrPathName(1)                'APP.path+"\"+StrPathName(1)加上的话 就找不到该文件了
    Shell App.path + "\" + StrPathName(1), vbNormalFocus '而 shell函数这 不加上"\"就打不开文件
Else
    MsgBox "要打开的文件不存在", vbOKOnly, 提示
End If