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