ccomsend.cls

来自「RS485文件传送程序」· CLS 代码 · 共 36 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cComSend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Const BlockSize As Long = 1024

Private FileNo As Integer
Private BlockCount As Long
Public mErrStr As String


Public Function SendFile(ByVal vPort As COM_DEC, ByVal vBaud As COMBAUD_DEC, ByVal vPortSetting As COMSET_DEC, ByVal vAddress As Long) As Boolean

'    Call Shell("C:\Program Files\WinRAR\WinRAR.exe a  d:\AirData.rar d:\airdata.mdb", vbNormalFocus)
'
'
'    '等待一段时间
'
'    Call Shell("C:\Program Files\WinRAR\WinRAR.exe x    d:\AirData.rar  airdata.mdb  d:\ ", vbHide)

    


End Function