|
ePrivateProfileString "源文件信息", "File" & i, .ListItems(i).SubItems(1), FileName
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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
