关于“Check1”的问题！【已解决】
能不能实现用“Check1”自动检测文件是否存在，如过文件存在，则“Check1”是选中的（就是说Check1中有对号），如果文件不存在“Check1”则是空的（没对号 待选）谢谢大家。（可以有文件的准确路径）如：C：\windows\*.*.exe，那个简单就用那个！[[it] 本帖最后由 yujimin 于 2008-7-25 19:51 编辑 [/it]]
应该是这样！
Dim fD As Object
Private Sub Form_Load()
Set fD = CreateObject("Scripting.FileSystemObject")
Check1.Value = checkFile
End Sub
Private Function checkFile() As Integer
If fD.FileExists("文件") Then '''''有文件
checkFile = 1
Else
checkFile = 0
End If
End Function
呵呵！谢谢大家！