判断文件是否存在

If Dir(App.Path & "\zkpara.txt", vbHidden Or vbReadOnly Or vbNormal Or vbSystem) <> "" Then  '''判断zkpara文件是否存在,属性为隐藏 只读 正常 系统
    ''''读取zk文件
    Dim fso As Object, ts As Object
    txt_lowzk = ""
    Set fso = CreateObject("scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(App.Path & "\zkpara.txt", 1)   '''zkpara.txt属性为隐藏+系统文件
    Do While ts.AtEndOfStream <> True
    txt_lowzk = txt_lowzk & ts.ReadLine & vbCrLf
    Loop
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
    ''''读取zk文件
Else
End If