能不能实现用“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

呵呵！谢谢大家！