lstInfo.ListItems.Item(lstInfo.ListItems.count).Selected = True
EditLstvInfo lstInfo.SelectedItem ''''显示精选项
End With
Case Else
End Select
Exit Sub
ErrLab:
If Err.Number = 32755 Then
Exit Sub
Else
Err.Raise Err.Number, , Err.Description
Exit Sub
End If
End Sub
Private Sub cmdOK_Click(Index As Integer)
Dim resultat As Long
Dim resultat2 As Long
Dim res As Double
Dim startinfo As STARTUPINFO
Dim procinfo As PROCESS_INFORMATION
Dim secu As SECURITY_ATTRIBUTES
Dim i As Long
Dim blInfo As Boolean
Dim FileName As String
Dim str1 As String
Dim str2 As String
startinfo.cb = Len(startinfo)
secu.nLength = Len(secu)
If Trim("" & txtEditInfo(3)) = "" Then
txtEditInfo(3) = txtEditInfo(3).Tag
End If
Select Case Index
Case 0 ''''信息打包
'''' 检查包信息是否存在
If FileExists(App.Path & "\" & Trim(txtEditInfo(3)) & ".CAB_") Then
If MsgBox("当前目录下存在 “" & Trim(txtEditInfo(3)) & ".CAB_” 包文件,是否覆盖?", vbQuestion + vbYesNo) = vbYes Then
Kill App.Path & "\" & Trim(txtEditInfo(3)) & ".CAB_"
Else
Exit Sub
End If
End If
Screen.MousePointer = 11
''''生成安装列表信息
FileName = App.Path & "\更新.ini"
With lstInfo
WritePrivateProfileString "文件数目", "FileNum", CStr(.ListItems.count), FileName
For i = 1 To .ListItems.count
WritePrivateProfileString "源文件信息", "File" & i, .ListItems(i).SubItems(1), FileName
WritePrivateProfileString "目标文件信息", "File" & i, .ListItems(i).SubItems(2), FileName
Next
WritePrivateProfileString "打包名称", "BagName", "" & txtEditInfo(3), FileName
End With
''''生成商务.DDF文件,指定打包信息
str1 = ".Option EXPLICIT" & vbCrLf & _
".Set Cabinet=off" & vbCrLf & _
".Set Compress=off" & vbCrLf & _
".Set MaxDiskSize = CDROM" & vbCrLf & _
".Set ReservePerCabinetSize = 6144" & vbCrLf & _
".Set DiskDirectoryTemplate=" & vbCrLf & _
".Set CompressionType = MSZIP" & vbCrLf & _
&n 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> 没有相关教程
|