锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net压缩目录 vb压缩包解压

文件IT技术

求软件压缩工具，本人是学VB.NET的，现在做了一个软件想把它压缩成.exe文件那不是压缩，是编译 ， 默认是debug模式，编译生成后会在bin里的debug里，如果选择release模式，会生成到bin里的release里 。
想要安装文件，不需要其它工具 ， 在VS里你就可以新建一个安装项目 ， 然后把编译好的文件加入进来，会自动检查依赖的文件，然后生成一下，就会在安装项目文件夹里的bin/release或debug生成你要的安装文件 。
vb.net进行文件压缩如果机器安装有winRar软件，就可以通过shell来借用他的功能达到压缩文件的效果；
参考代码如下：
Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls")'原始文件(压缩前)
Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")
Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")
'用shell命令调用winrar.exe创建压缩文件()
Dim winRarexe As String = "C:\Program Files\WinRAR\Rar"'winzip执行文件的位置
Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip"'目地文件(压缩后)
Dim command As String = winRarexe" a "wtarget" "DeliveryF" "TruckInfo" "QDetail
'这个命令你可以查看winrar的命令集
Dim retval As Double'Shell指令传回值
retval = Shell(command, AppWinStyle.MinimizedFocus)
用vb.net对sql多数据库压缩备份为一个文件using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Text;
using _5dRss.Const;
using _5dRss.lib.Data.Tool;
public partial class admin_admin_dbmanage : System.Web.UI.Page
{
【vb.net压缩目录 vb压缩包解压】protected void Page_Load(object sender, EventArgs e)
{
//生成备份文件列表
ListBackupFiles();
if (!Page.IsPostBack)
{
Showmsg.Visible = false;
//数据库路径
lilDBPath.Text = HttpContext.Current.Request.PhysicalApplicationPath"App_Data\\"ConfigurationSettings.AppSettings["DBFile"];
//新建一个 FileInfo 对象vb.net压缩目录，并获得数据库文件vb.net压缩目录的大小vb.net压缩目录，然后转换单位为KB
FileInfo myFileInfo = new FileInfo(lilDBPath.Text);
lilDBSize.Text = Convert.ToString(myFileInfo.Length/1024)" KB";
//如果两个参数都不为空，则继续执行
if (Request.QueryString["cmd"] != nullRequest.QueryString["source"] != null)
{
//备份数据库原文件名
string sourceFileName = Request.QueryString["source"];
//如果 cmd 参数为 DelFile
if (Request.QueryString["cmd"].Equals("DelFile"))
{
//删除备份数据库文件
File.Delete(HttpContext.Current.Request.PhysicalApplicationPath"Backup\\"sourceFileName);
//刷新备份文件列表
ListBackupFiles();
Showmsg.Visible = true;
Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='https://www.04ip.com/post/images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'删除备份数据库成功!/spanimg src='https://www.04ip.com/post/images/aR.gif' style='margin-bottom:-6px;'//div";
}
//如果 cmd 参数为 Restore
if (Request.QueryString["cmd"].Equals("Restore"))
{
//用备份文件覆盖原文件
File.Copy(HttpContext.Current.Request.PhysicalApplicationPath"Backup\\"sourceFileName, HttpContext.Current.Request.PhysicalApplicationPath"App_Data\\"ConfigurationSettings.AppSettings["DBFile"], true);
//刷新备份文件列表
ListBackupFiles();
Showmsg.Visible = true;
Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='https://www.04ip.com/post/images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'还原备份数据库成功!/spanimg src='https://www.04ip.com/post/images/aR.gif' style='margin-bottom:-6px;'//div";
}
}
}
}
protected void lnkbtnCompactDB_Click(object sender, EventArgs e)
{
//压缩修复数据库
AccessDBtool.CompactAccessDB(SysConfig.ConnectionString, HttpContext.Current.Request.PhysicalApplicationPath"App_Data\\"ConfigurationSettings.AppSettings["DBFile"]);
Showmsg.Visible = true;
Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='https://www.04ip.com/post/images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'压缩修复数据库成功!/spanimg src='https://www.04ip.com/post/images/aR.gif' style='margin-bottom:-6px;'//div";
}
protected void lnkbtnBackupDB_Click(object sender, EventArgs e)
{
string sourceFileName = HttpContext.Current.Request.PhysicalApplicationPath"App_Data\\"ConfigurationSettings.AppSettings["DBFile"];
string destFileName = HttpContext.Current.Request.PhysicalApplicationPath"Backup\\""Backup_";
destFileName= DateTime.Now.ToString("yyyyMMddHHmmss");
destFileName= ".mbk";
//将数据库文件Copy到Backup目录，如果有重名文件就覆盖原文件
File.Copy(sourceFileName, destFileName, true);
//生成备份文件列表
ListBackupFiles();
Showmsg.Visible = true;
Showmsg.Text = "div align='center' style='margin-bottom:8px;'img src='https://www.04ip.com/post/images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'备份数据库成功!/spanimg src='https://www.04ip.com/post/images/aR.gif' style='margin-bottom:-6px;'//div";
}
/// summary
/// 生成备份文件列表
/// /summary
/// returns文件列表，文件详细信息及操作选项的HTML代码/returns
public void ListBackupFiles()
{
//如果目录不存在则创建次目录
if (!Directory.Exists(HttpContext.Current.Request.PhysicalApplicationPath"Backup\\"))
Directory.CreateDirectory(HttpContext.Current.Request.PhysicalApplicationPath"Backup\\");
DirectoryInfo mydir = new DirectoryInfo(HttpContext.Current.Request.PhysicalApplicationPath"Backup\\");
StringBuilder sb = new StringBuilder();
foreach (FileInfo f in mydir.GetFiles())
{
sb.Append("a href='https://www.04ip.com/post/backup/"f.Name"' target='_blank'img border='0' src='https://www.04ip.com/post/images/mdb.gif' style='margin:4px 3px -3px 0px'/"f.Name"/aa href='https://www.04ip.com/post/?cmd=DelFilesource="f.Name"' title='删除备份文件'删除/a | a href='https://www.04ip.com/post/?cmd=Restoresource="f.Name"' title='删除备份文件'还原数据库/a | "f.Length/1024" KB | "f.CreationTime"br /");
}
lilBackupFileList.Text = sb.ToString();
}
}
把下面这句换成vb.net压缩目录你的数据库地址vb.net压缩目录：
//数据库路径
//lilDBPath.Text = HttpContext.Current.Request.PhysicalApplicationPath"App_Data\\"ConfigurationSettings.AppSettings["DBFile"];
VB.net 如何将TXT文件转换压缩成.gz文件手机敲很累的！一定要给分?。「袷绞牵簍ar 选项 文件.选项有 -c:产生打包文件 -v:显示详细信息 -f:指定压缩后的文件名 -z:打包同时压缩！举个例子吧！将目录my打包并压缩成my.tar.gz就这样tar -zcvf my.tar.gz my
关于vb.net压缩目录和vb压缩包解压的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：mysql 引号转义 mysql双引号的转义字符

    下一篇：服务器怎么查找网页内容记录 服务器怎么查找网页内容