frmexport.frm

用VB6.0编写的关于车辆运输调度的系统

VERSION 5.00
Begin VB.Form Frmexport 
   Caption         =   "Export"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.CommandButton Cmd_send 
      Caption         =   "Send"
      Height          =   495
      Left            =   1200
      TabIndex        =   1
      Top             =   1800
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   735
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   3495
   End
End
Attribute VB_Name = "Frmexport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Cmd_send_Click()
    Shell ("c:\program files\outlook express\msimn.exe")
End Sub

Private Sub Form_Load()
  Dim file, fld, f, fc
  Label1.Caption = "The data is being prosseced,Please wait!"
  Set fld = CreateObject("Scripting.FileSystemObject")
   f = fld.fileexists(App.path & "\.." & "\com\export\" & gsEntCode & "lds.arj")
  If f Then
     fld.deletefile App.path & "\.." & "\com\export\" & gsEntCode & "lds.arj"
     Shell (App.path & "\arj a " + App.path + "\.." + "\com\export\" + gsEntCode + "lds.arj " + " " + App.path + "\..\dbs\lds.mdb")
  Else
     Shell (App.path & "\arj a " + App.path + "\.." + "\com\export\" + gsEntCode + "lds.arj " + " " + App.path + "\..\dbs\lds.mdb")
  End If
  Cmd_send.Visible = True
End Sub