form1.frm

实现文件批量解压缩处理,方便批量实现RAR文件操作!

         Left            =   1080
         TabIndex        =   17
         Top             =   2160
         Width           =   5055
      End
      Begin VB.Label Label3 
         Caption         =   "选择文件："
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   300
         Width           =   975
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "第３步 - 输入需添入文件 "
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000011&
      Height          =   2535
      Left            =   7560
      TabIndex        =   1
      Top             =   120
      Width           =   7215
      Begin VB.CommandButton Command11 
         Caption         =   "Next - >"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6120
         TabIndex        =   16
         Top             =   2160
         Width           =   975
      End
      Begin VB.CommandButton Command9 
         Caption         =   "添  加"
         Height          =   255
         Left            =   6120
         TabIndex        =   14
         Top             =   1440
         Width           =   975
      End
      Begin VB.ListBox List3 
         Appearance      =   0  'Flat
         Height          =   930
         Left            =   1320
         TabIndex        =   13
         Top             =   1440
         Width           =   4695
      End
      Begin VB.ListBox List2 
         Appearance      =   0  'Flat
         Height          =   930
         Left            =   1320
         TabIndex        =   11
         Top             =   360
         Width           =   4695
      End
      Begin VB.CommandButton Command6 
         Caption         =   "添  加"
         Height          =   255
         Left            =   6120
         TabIndex        =   6
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "添加注释文件："
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label4 
         Caption         =   "添加普通文件："
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   360
         Width           =   1335
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   6960
      Top             =   360
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Flags           =   1
   End
   Begin VB.Frame Frame3 
      Caption         =   "第１步 - WinRar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000011&
      Height          =   1095
      Left            =   120
      TabIndex        =   2
      Top             =   1560
      Width           =   7215
      Begin VB.CommandButton Command10 
         Caption         =   "Next ->"
         Height          =   255
         Left            =   6120
         MaskColor       =   &H000000FF&
         TabIndex        =   15
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton Command7 
         Caption         =   "添　加"
         Height          =   255
         Left            =   6120
         TabIndex        =   9
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox Text4 
         Appearance      =   0  'Flat
         Height          =   255
         Left            =   1320
         TabIndex        =   8
         Top             =   360
         Width           =   4695
      End
      Begin VB.Label Label6 
         Caption         =   "WinRAR 路径："
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   360
         Width           =   1215
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command10_Click()
Frame3.Visible = False
Frame1.Height = 2535
Frame1.Left = 120
Frame1.Top = 120
End Sub

Private Sub Command11_Click()
Frame2.Visible = False
Frame6.Height = 2535
Frame6.Left = 120
Frame6.Top = 120
End Sub

Private Sub Command12_Click()
Frame1.Visible = False
Frame2.Height = 2535
Frame2.Left = 120
Frame2.Top = 120
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()

On Error GoTo errhandler
   With CommonDialog1
      .DialogTitle = "打开多个文件"
      .Filter = "压缩文件(*.zip;*.rar;)|*.zip;*.rar;|"
      .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
      .ShowOpen
   End With
   s = Split(CommonDialog1.FileName, Chr(0))
   For i = 1 To UBound(s)
      List1.AddItem IIf(Right(s(0), 1) = "\", s(0), s(0) & "\") & s(i)
   Next i
errhandler:
       If Err > 0 Then Exit Sub '32755取消

'CommonDialog1.Filter = "压缩文件(*.zip;*.rar;)|*.zip;*.rar;|"
'CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
'CommonDialog1.ShowOpen
'List1.AddItem = CommonDialog1.FileName
End Sub

Private Sub Command7_Click()
CommonDialog1.Filter = "WinRAR(*.exe)|*.exe|"
CommonDialog1.ShowOpen
Text4.Text = CommonDialog1.FileName
End Sub

Private Sub Command8_Click()
CommonDialog1.Filter = "压缩文件(*.zip;*.rar;)|*.zip;*.rar;|"
CommonDialog1.Action = 2
Text5.Text = CommonDialog1.FileName
End Sub