压缩文件方法

使用7z

if (m_strName == "压缩MDB数据库") //btf 2012.3.1 压缩数据库
{
if (GetOsGlob()->GetWorkConn()!= NULL)
{
MessageBox(NULL,"请在压缩之前先断开库连接","温馨提示",MB_OK);
return FALSE;
}
CString sPath;
sPath.Format("%sSysSet/connect.txt",CCommon::GetAppPath());
CFile file(sPath,CFile::modeReadWrite);
BOOL check1 = 0,check2 = 0,check3 = 0,check4 = 0;
CString database,server,username,instance,password="";
CString sDataType;
int datatype=-1;
int nIndex = 0;
IGtGeoConnectPtr spGeoConn;
CArchive ar(&file,CArchive::load);
if (file.GetLength()>0)
{
ar>>check1>>check2>>check3>>check4>>datatype>>database>>server>>username>>instance;
}
server.Replace("\\","/");
CString sParm;
CString sSaveTemp;
sSaveTemp = server.Left(server.Find(".mdb"));
sParm = "a -t7z -mx9 " + sSaveTemp + " \"" + server + "\"";
if (!ShellExecute(NULL,"open",CCommon::GetAppPath()+"7-Zip/7z.exe",sParm,NULL,SW_SHOW))
{
MessageBox(NULL,"压缩失败","提示",MB_OK);
}
}
else if (m_strName == "解压缩MDB数据库") //btf 2012.3.1 解压缩数据库
{
CString sPath;
sPath.Format("%sSysSet/connect.txt",CCommon::GetAppPath());
CFile file(sPath,CFile::modeReadWrite);
BOOL check1 = 0,check2 = 0,check3 = 0,check4 = 0;
CString database,server,username,instance,password="";
CString sDataType;
int datatype=-1;
int nIndex = 0;
IGtGeoConnectPtr spGeoConn;
CArchive ar(&file,CArchive::load);
if (file.GetLength()>0)
{
ar>>check1>>check2>>check3>>check4>>datatype>>database>>server>>username>>instance;
}
server.Replace("\\","/");
CString sSaveTemp;
CString sParm;
sSaveTemp = server.Left(server.Find(".mdb"));
sParm = "e " + sSaveTemp + ".7z -y -aos -o\"" + sSaveTemp + "\"";
if (!ShellExecute(NULL,"open",CCommon::GetAppPath()+"7-Zip/7z.exe",sParm,NULL,SW_SHOW))
{
MessageBox(NULL,"解缩失败","提示",MB_OK);
}
}
else if (m_strName == "打开解压目录") //btf 2012.3.2 打开解压缩目录
{
CString sPath;
sPath.Format("%sSysSet/connect.txt",CCommon::GetAppPath());
CFile file(sPath,CFile::modeReadWrite);
BOOL check1 = 0,check2 = 0,check3 = 0,check4 = 0;
CString database,server,username,instance,password="";
CString sDataType;
int datatype=-1;
int nIndex = 0;
IGtGeoConnectPtr spGeoConn;
CArchive ar(&file,CArchive::load);
if (file.GetLength()>0)
{
ar>>check1>>check2>>check3>>check4>>datatype>>database>>server>>username>>instance;
}
server.Replace("\\","/");
CString sSaveTemp;
CString sParm;
sSaveTemp = server.Left(server.Find(".mdb"));
ShellExecute(NULL,"open",NULL,NULL,sSaveTemp,SW_SHOW);
}

第1页