frmmain.frm

对ima、imz压缩文件修改

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   4065
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7155
   LinkTopic       =   "Form1"
   ScaleHeight     =   4065
   ScaleWidth      =   7155
   StartUpPosition =   3  'Windows Default
   Begin VB.FileListBox FileFind 
      Height          =   2235
      Left            =   3720
      TabIndex        =   7
      Top             =   600
      Width           =   3360
   End
   Begin VB.DirListBox DirFind 
      Height          =   1890
      Left            =   120
      TabIndex        =   6
      Top             =   960
      Width           =   3450
   End
   Begin VB.DriveListBox DriveFind 
      Height          =   315
      Left            =   120
      TabIndex        =   5
      Top             =   600
      Width           =   3420
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Close"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   3600
      Width           =   6975
   End
   Begin VB.TextBox txtRead 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   3000
      Width           =   4575
   End
   Begin VB.TextBox txtWrite 
      Height          =   375
      Left            =   2520
      TabIndex        =   2
      Top             =   120
      Width           =   4575
   End
   Begin VB.CommandButton cmdRead 
      Caption         =   "Read Floppy A: to Image"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   3000
      Width           =   2295
   End
   Begin VB.CommandButton cmdWrite 
      Caption         =   "Write Image to Floppy A:"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2295
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public gsPath As String

Private Sub cmdRead_Click()
    Call ReadFloppyToFile(txtRead.Text, "Label Name", True)
    DirFind.Path = gsPath
End Sub

Private Sub cmdWrite_Click()
    Call WriteImageToFloppy(txtWrite.Text, True)
    DirFind_Change
End Sub

Private Sub Command1_Click()
    End
End Sub

Private Sub DirFind_Change()
    FileFind.filename = DirFind.Path
    gsPath = DirFind.Path
End Sub

Private Sub DriveFind_Change()
    DirFind.Path = DriveFind.Drive
End Sub

Private Sub FileFind_Click()
    Dim Tmp As String
    If FileFind.ListCount > 0 Then
        txtWrite.Text = DirFind.Path & "\" & FileFind.List(FileFind.ListIndex)
        cmdWrite.Enabled = True
    End If
End Sub

Private Sub Form_Load()
    frmMain.Caption = "Image Tester"
    txtRead.Text = App.Path & "\MyTestRead.imz"
    'txtWrite.Text = App.Path & "\MyTestRead.imz"
    FileFind.Pattern = "*.ima;*.imz"
    DirFind.Path = App.Path
    cmdWrite.Enabled = False
End Sub

Private Sub txtWrite_Change()
    If txtWrite.Text = "" Then cmdWrite.Enabled = False
End Sub