VB coding

1.用VB6判断文件存在妙法
在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用VB 6.0提供的FileSystemObject对象。

　　FileSystemObject对象不是VB内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“Microsoft Scripting Runtime”，然后利用FileSystemObject的FileExists方法来判断文件是否存在。示例程序代码如下：

　　Private Sub Command1_Click()

　　 ′引用FileSystemObject对象

　　 Dim fs As New FileSystemObject

　　 ′利用FileSystemObject对象的FileExists

　　 ′方法判断文件是否存在

　　 If fs.FileExists(″c:/＊.gif″) Then

　　 MsgBox ″文件存在″

　　 Else

　　　　　　MsgBox ″文件不存在″

　　　　End If

　　End Sub

　　灵活运用FileSystemObject对象可以解决与文件操作有关的大部分问题。

　　以上程序在PWin 98,VB 6.0中文企业版中运行通过。

 

2.    Checkbox选择

chkBlacklist = vbUnchecked
    chkBlacklist.Style
    If StrComp(curVisitor.IsBlacklist, "1") = 0 Then
        chkBlacklist = vbChecked
    End If