module1.bas

来自「通用GSM模块汉字发送VB程序：具有自动汉字PDU码生成及转换的功能」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
''Public iniCOM As New Class1  '定义全局ini文件
Public File_STR As String
Public Declare Function CloseWindow Lib "User32" (ByVal hWnd As Long) As Long
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long '设置文件属性api函数
Sub Main()
'
Load frmCOMSMS
frmCOMSMS.Show
End Sub
Public Function CheckFile(ByVal Filename As String) As Boolean
    On Error GoTo Err
    If Dir(Filename) <> "" And Filename <> "" Then
        CheckFile = True
    Else
        CheckFile = False
    End If
    Exit Function
Err:
If Err.Number = 52 Then
    MsgBox "找不到相关的文件。", vbOKOnly + vbExclamation, "文件出错"
    CheckFile = False
End If
'
End Function