frmimport2.frm

来自「用VB6.0编写的关于车辆运输调度的系统」· FRM 代码 · 共 58 行

VERSION 5.00
Begin VB.Form frmimport2 
   Caption         =   "Import"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   735
      Left            =   600
      TabIndex        =   0
      Top             =   1320
      Width           =   3255
   End
End
Attribute VB_Name = "frmimport2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Dim file, fld, f, fc, leng, leng2, str, path, str2
  Label1.Caption = "The data is being prosseced,Please wait!"
  Set fld = CreateObject("Scripting.FileSystemObject")
  Set f = fld.GetFolder(App.path & "\..\com\import")
  Set fc = f.Files
  For Each file In fc
     leng = Len(Trim(file))
     str2 = StrReverse(file)
     leng2 = InStr(str2, "\")
     str = Left$(str2, leng2 - 1)
     str2 = StrReverse(str)
     str = Mid$(str2, 1, leng2 - 8)
     '?leng2 = Len(App.path & "\..\com\import\")
    ' str = Mid$(Trim(file), 19, leng - 18 - 7)
     path = App.path & "\..\dbs\" & str
     If fld.folderexists(path) Then
         If fld.fileexists(path & "\lds.mdb") Then
            fld.deletefile path & "\lds.mdb"
            Shell (App.path & "\arj e " + file + " " + path)
         Else
            Shell (App.path & "\arj e " + file + " " + path)
         End If
     Else
         fld.createfolder (path)
         Shell (App.path & "\arj e " + file + " " + path)
     End If
  Next
'  Unload Me
End Sub