130 lines
4.0 KiB
Plaintext
130 lines
4.0 KiB
Plaintext
|
VERSION 5.00
|
||
|
|
Begin VB.Form frmFileWatch
|
||
|
|
Caption = "File Watch"
|
||
|
|
ClientHeight = 7005
|
||
|
|
ClientLeft = 60
|
||
|
|
ClientTop = 345
|
||
|
|
ClientWidth = 10875
|
||
|
|
BeginProperty Font
|
||
|
|
Name = "Courier New"
|
||
|
|
Size = 8.25
|
||
|
|
Charset = 0
|
||
|
|
Weight = 400
|
||
|
|
Underline = 0 'False
|
||
|
|
Italic = 0 'False
|
||
|
|
Strikethrough = 0 'False
|
||
|
|
EndProperty
|
||
|
|
ScaleHeight = 7005
|
||
|
|
ScaleWidth = 10875
|
||
|
|
StartUpPosition = 3 'Windows Default
|
||
|
|
Begin VB.CommandButton cmdClose
|
||
|
|
Caption = "Close"
|
||
|
|
Height = 285
|
||
|
|
Left = 1680
|
||
|
|
TabIndex = 1
|
||
|
|
Top = 6720
|
||
|
|
Width = 1515
|
||
|
|
End
|
||
|
|
Begin VB.Timer Timer1
|
||
|
|
Interval = 1000
|
||
|
|
Left = 5550
|
||
|
|
Top = 210
|
||
|
|
End
|
||
|
|
Begin VB.ListBox lstFileWatch
|
||
|
|
Height = 6570
|
||
|
|
Left = 60
|
||
|
|
TabIndex = 0
|
||
|
|
Top = 60
|
||
|
|
Width = 10455
|
||
|
|
End
|
||
|
|
End
|
||
|
|
Attribute VB_Name = "frmFileWatch"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = True
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Private Sub cmdClose_Click()
|
||
|
|
Unload frmFileWatch
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub Form_Load()
|
||
|
|
lstFileWatch.AddItem doesit$(MessageFileName$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(MessageLogName$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(MessageLogName2$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(COMPLETE$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(COMPLETE2$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(INCOME$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(Reply$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(ReplyComplete$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(ReplyComplete2$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(CADPRINT$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(QUEHANDL, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(CADPRNT2, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(PLOTCFG$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(PrinterCFG$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(SUBSCFG$, "0")
|
||
|
|
|
||
|
|
lstFileWatch.AddItem doesit$(PrintCfg$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(MAKEPS$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(TFIL$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(BufferName$, "1")
|
||
|
|
|
||
|
|
lstFileWatch.AddItem doesit$(ACADComplete$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(ACADWait$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(ACADIncome$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(ACADCH$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(ACADReply$, "1")
|
||
|
|
'
|
||
|
|
lstFileWatch.AddItem doesit$(PROEComplete$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(PROEWait$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(PROEIncome$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(PROECH$, "0")
|
||
|
|
lstFileWatch.AddItem doesit$(PROEReply$, "1")
|
||
|
|
lstFileWatch.AddItem doesit$(PROERPCM$, "1")
|
||
|
|
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub Timer1_Timer()
|
||
|
|
For i = 0 To lstFileWatch.ListCount - 1
|
||
|
|
xx$ = lstFileWatch.List(i)
|
||
|
|
Call PARSE(xx$, stat$, "|", RC%)
|
||
|
|
Call PARSE(xx$, mode$, "|", RC%)
|
||
|
|
Call PARSE(xx$, ffl$, "|", RC%)
|
||
|
|
lstFileWatch.List(i) = doesit$(ffl$, mode$)
|
||
|
|
Next
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
Function doesit$(fl$, mode$)
|
||
|
|
d$ = ""
|
||
|
|
Select Case mode$
|
||
|
|
Case "0"
|
||
|
|
If ExistsNew(fl$) Then
|
||
|
|
d$ = "Normal Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
Else
|
||
|
|
d$ = "--Warn Not Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
End If
|
||
|
|
Case "1"
|
||
|
|
If ExistsNew(fl$) Then
|
||
|
|
d$ = "--Warn Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
Else
|
||
|
|
d$ = "Normal Not Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
End If
|
||
|
|
Case "2"
|
||
|
|
If ExistsNew(fl$) Then
|
||
|
|
d$ = "ERROR Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
Else
|
||
|
|
d$ = "Normal Not Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
End If
|
||
|
|
Case "3"
|
||
|
|
If ExistsNew(fl$) Then
|
||
|
|
d$ = "Normal Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
Else
|
||
|
|
d$ = "ERROR Not Exists" + "|" + mode$ + "|" + fl$
|
||
|
|
End If
|
||
|
|
Case Else
|
||
|
|
End Select
|
||
|
|
doesit$ = d$
|
||
|
|
End Function
|
||
|
|
|