vb.net進行文件壓縮

如果機器安裝有winRar軟件，就可以通過shell來借用他的功能達到壓縮文件的效果；

青山網站制作公司哪家好，找創新互聯！從網頁設計、網站建設、微信開發、APP開發、成都響應式網站建設公司等網站項目制作，到程序開發，運營維護。創新互聯成立與2013年到現在10年的時間，我們擁有了豐富的建站經驗和運維經驗，來保證我們的工作的順利進行。專注于網站建設就選創新互聯。

參考代碼如下：

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的，現在做了一個軟件想把它壓縮成.exe文件

那不是壓縮，是編譯，默認是debug模式，編譯生成后會在bin里的debug里，如果選擇release模式，會生成到bin里的release里。

想要安裝文件，不需要其它工具，在VS里你就可以新建一個安裝項目，然后把編譯好的文件加入進來，會自動檢查依賴的文件，然后生成一下，就會在安裝項目文件夾里的bin/release或debug生成你要的安裝文件。

VB.net平臺做出來的程序怎么打包成.exe文件？

將VB.Net程序打包成可執行的.exe程序 收藏 一).創建部署項目1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。2. 在“添加新項目”對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然后選擇“模板”窗格中的“安裝項目”。在“名稱”框中鍵入 setup1。3. 單擊“確定”關閉對話框。4. 項目被添加到解決方案資源管理器中，并且文件系統編輯器打開。5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統 。二).將 主程序 項目的輸出添加到部署項目中1. 在“文件系統編輯器”中，選擇“應用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項目輸出”。2. 在“添加項目輸出組”對話框中，選擇“項目”下拉列表中的“你的程序”。3. 單擊“確定”關閉對話框。4. 從列表中選擇“主輸出”和“內容文件”組，然后單擊“確定”。三).創建安裝程序類1. 在“文件”菜單上指向“新建”，然后選擇“項目”。2. 在“新建項目”對話框中，選擇“項目類型”窗格中的“Visual Basic 項目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。3. 單擊“打開”關閉對話框。4. 從“項目”菜單中選擇“添加新項”。5. 在“添加新項”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。6. 單擊“確定”關閉對話框。7. 詳細代碼附后。四).創建自定義安裝對話框1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節點。在“操作”菜單上，選擇“添加對話框”。 3. 在“添加對話框”對話框中，選擇“許可協議”對話框，然后單擊“確定”關閉對話框。4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然后單擊“確定”關閉對話框。5. 在“操作”菜單上，選擇“上移”。重復此步驟，直到“文本框 (A)”對話框位于“安裝文件夾”節點之上。6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數據庫.7. 選擇 BodyText 屬性并鍵入：安裝程序將在目標機器上安裝數據庫8. 選擇 Edit1Label 屬性并鍵入：數據庫名稱:9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA110. 選擇 Edit1Value 屬性并鍵入：dbservers11. 選擇 Edit2Label 屬性并鍵入：服務器名:12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA213. 選擇 Edit2Value 屬性并鍵入：(local)14. 選擇 Edit3Label 屬性并鍵入：用戶名:15. 選擇 Edit3Value 屬性并鍵入：sa16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA317. 選擇 Edit4Label 屬性并鍵入：密碼:18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA419. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，并將它們設置為 true五).創建自定義操作1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。2. 在自定義操作編輯器中選擇“安裝”節點。在“操作”菜單上，選擇“添加自定義操作”。3. 在“選擇項目中的項”對話框中，雙擊“應用程序文件夾”。4. 選擇“主輸出來自 installDB（活動）”項，然后單擊“確定”關閉對話框。5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。附:/targetdir="[TARGETDIR]\"是安裝后的目標路徑，為了在installDB類中獲得安裝后的路徑，我們設置此參數。

vb.net 如何壓縮、解壓縮文件

1、你先搞懂 winrar.exe 的解壓參數格式，然后把winrar.exe和相關文件加入到資源文件中，然后調用 資源文件中的winrar.exe

2、弄明白rar/zip文件解壓/壓縮方法和格式，自己寫程序 (可能會比較麻煩)

用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

{

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 對象，并獲得數據庫文件的大小，然后轉換單位為KB

FileInfo myFileInfo = new FileInfo(lilDBPath.Text);

lilDBSize.Text = Convert.ToString(myFileInfo.Length/1024) + " KB";

//如果兩個參數都不為空，則繼續執行

if (Request.QueryString["cmd"] != null Request.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='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'刪除備份數據庫成功!/spanimg src='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='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'還原備份數據庫成功!/spanimg src='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='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'壓縮修復數據庫成功!/spanimg src='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='images/aL.gif' style='margin-bottom:-6px;'/span class='alertTxt'備份數據庫成功!/spanimg src='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='backup/" + f.Name + "' target='_blank'img border='0' src='images/mdb.gif' style='margin:4px 3px -3px 0px'/" + f.Name + "/a??a href='?cmd=DelFilesource=" + f.Name + "' title='刪除備份文件'刪除/a | a href='?cmd=Restoresource=" + f.Name + "' title='刪除備份文件'還原數據庫/a | " + f.Length/1024 + " KB | " + f.CreationTime + "br /");

}

lilBackupFileList.Text = sb.ToString();

}

}

把下面這句換成你的數據庫地址：

//數據庫路徑

// lilDBPath.Text = HttpContext.Current.Request.PhysicalApplicationPath + "App_Data\\" + ConfigurationSettings.AppSettings["DBFile"];

VB.net 如何將TXT文件轉換壓縮成.gz文件

手機敲很累的！一定要給分啊！格式是：tar 選項 文件.選項有 -c:產生打包文件 -v:顯示詳細信息 -f:指定壓縮后的文件名 -z:打包同時壓縮！舉個例子吧！將目錄my打包并壓縮成my.tar.gz就這樣tar -zcvf my.tar.gz my

本文題目：vb.net壓縮文件做成 vb壓縮文件夾
網頁網址：http://vcdvsql.cn/article18/doodidp.html

成都網站建設公司_創新互聯，為您提供App設計、搜索引擎優化、企業網站制作、做網站、網站內鏈、外貿網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯