问下关于vb的检测文件的问题

#############333
Dim file1$, a As Boolean
file1 = "%systemroot%\temp\*.*"
Set fso = CreateObject("Scripting.FileSystemObject")
a = fso.FolderExists(file1)
If a = True Then
 MsgBox "存在垃圾，是否清除"
Else
 MsgBox "no"
End If
#############
这段代码我怎么测试都是“no”！
请问高手们，我是个vb菜鸟~请指教！ --------------------编程问答-------------------- 啊？不会吧，没人········ --------------------编程问答-------------------- 啊？不会吧，没人········ --------------------编程问答--------------------
If Dir(Environ("windir") & "\temp\*.*", vbDirectory) > "." Then
MsgBox "存在垃圾，是否清除" 
Else 
MsgBox "no" 
End If 

补充：VB ,  基础类