WritePrivateProfileString "目标文件信息", "File" & i, .ListItems(i).SubItems(2), FileName

                    Next

                    WritePrivateProfileString "打包名称", "BagName", "" & txtEditInfo(3), FileName

                End With

            End With

            MsgBox "信息列表被导出在“" & FileName & "”文件中！", , App.EXEName

        Case 2    ''''导入包列表

            If lstInfo.ListItems.count <> 0 Then

                resultat = MsgBox("要保存当前的更新列表信息吗？", vbQuestion + vbOKCancel, App.EXEName)

                If resultat = vbOK Then

                    cmdOK_Click 1

                End If

            End If

            With frmMain.comdInfo

                .Filter = "更新列表信息|*.TLB"

                .DialogTitle = "选择导入包列表信息文件"

                .InitDir = CurDir()

                .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly

                .FileName = txtEditInfo(3).Tag

                On Error GoTo ErrLab

                .ShowOpen

                FileName = .FileName

                On Error GoTo 0

                ''''导入信息

                With lstInfo

                    .ListItems.Clear

                    resultat = CLng(ReadIniFile(FileName, "文件数目", "FileNum"))

                    If resultat = 0 Then

                        MsgBox "文件“" & FileName & "”没有信息，或不正确！", , App.EXEName

                        Exit Sub

                    End If

                    txtEditInfo(3) = ReadIniFile(FileName, "打包名称", "BagName")

                    For i = 1 To resultat

                        ''''不添加重复的主信息

                        str1 = ReadIniFile(FileName, "源文件信息", "File" & i)

                        str2 = ReadIniFile(FileName, "目标文件信息", "File" & i)

                        lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, str1, str2

                    Next

                    .ListItems(i - 1).Selected = True

                    EditLstvInfo .SelectedItem

                End With

            End With

      &

 << 上一页  [11] [12]  下一页