❶ 如何用C#把excel文件轉換為壓縮好的zip文件
#region 加壓解壓方法
/// <summary>
/// 功能：壓縮文件（暫時只壓縮文件夾下一級目錄中的文件，文件夾及其子級被忽略）
/// </summary>
/// <param name="dirPath">被壓縮的文件夾夾路徑</param>
/// <param name="zipFilePath">生成壓縮文件的路徑，為空則默認與被壓縮文件夾同一級目錄，名稱為：文件夾名+.zip</param>
/// <param name="err">出錯信息</param>
/// <returns>是否壓縮成功</returns>
public bool ZipFile(string dirPath, string zipFilePath, out string err)
{
err = "";
if (dirPath == string.Empty)
{
err = "要壓縮的文件夾不能為空！";
return false;
}
if (!Directory.Exists(dirPath))
{
err = "要壓縮的文件夾不存在！";
return false;
}
//壓縮文件名為空時使用文件夾名＋.zip
if (zipFilePath == string.Empty)
{
if (dirPath.EndsWith("\"))
{
dirPath = dirPath.Substring(0, dirPath.Length - 1);
}
zipFilePath = dirPath + ".zip";
}
try
{
string[] filenames = Directory.GetFiles(dirPath);
using (ZipOutputStream s = new ZipOutputStream(File.Create(zipFilePath)))
{
s.SetLevel(9);
byte[] buffer = new byte[4096];
foreach (string file in filenames)
{
ZipEntry entry = new ZipEntry(Path.GetFileName(file));
entry.DateTime = DateTime.Now;
s.PutNextEntry(entry);
using (FileStream fs = File.OpenRead(file))
{
int sourceBytes;
do
{
sourceBytes = fs.Read(buffer, 0, buffer.Length);
s.Write(buffer, 0, sourceBytes);
} while (sourceBytes > 0);
}
}
s.Finish();
s.Close();
}
}
catch (Exception ex)
{
err = ex.Message;
return false;
}
return true;
}
/// <summary>
/// 功能：解壓zip格式的文件。
/// </summary>
/// <param name="zipFilePath">壓縮文件路徑</param>
/// <param name="unZipDir">解壓文件存放路徑,為空時默認與壓縮文件同一級目錄下，跟壓縮文件同名的文件夾</param>
/// <param name="err">出錯信息</param>
/// <returns>解壓是否成功</returns>
public bool UnZipFile(string zipFilePath, string unZipDir, out string err)
{
err = "";
if (zipFilePath == string.Empty)
{
err = "壓縮文件不能為空！";
return false;
}
if (!File.Exists(zipFilePath))
{
err = "壓縮文件不存在！";
return false;
}
//解壓文件夾為空時默認與壓縮文件同一級目錄下，跟壓縮文件同名的文件夾
if (unZipDir == string.Empty)
unZipDir = zipFilePath.Replace(Path.GetFileName(zipFilePath), Path.GetFileNameWithoutExtension(zipFilePath));
if (!unZipDir.EndsWith("\"))
unZipDir += "\";
if (!Directory.Exists(unZipDir))
Directory.CreateDirectory(unZipDir);
try
{
using (ZipInputStream s = new ZipInputStream(File.OpenRead(zipFilePath)))
{
ZipEntry theEntry;
while ((theEntry = s.GetNextEntry()) != null)
{
string directoryName = Path.GetDirectoryName(theEntry.Name);
string fileName = Path.GetFileName(theEntry.Name);
if (directoryName.Length > 0)
{
Directory.CreateDirectory(unZipDir + directoryName);
}
if (!directoryName.EndsWith("\"))
directoryName += "\";
if (fileName != String.Empty)
{
using (FileStream streamWriter = File.Create(unZipDir + theEntry.Name))
{
int size = 2048;
byte[] data = new byte[2048];
while (true)
{
size = s.Read(data, 0, data.Length);
if (size > 0)
{
streamWriter.Write(data, 0, size);
}
else
{
break;
}
}
}
}
}//while
}
}
catch (Exception ex)
{
err = ex.Message;
return false;
}
return true;
}//解壓結束
#endregion
❷ （追加50分）VBS如何壓縮文件夾成rar
沒人會給你 但是你可以調用 rar 的 RarExtLoader.exe 的參數進行解壓縮
❸ vbs怎麼批量壓縮文件夾里的多個文件
方法/步驟
1、選中想要壓縮的所有文件夾，可以用選取框選取，也可以按緊Ctrl鍵選擇多個。
2、右鍵點擊選中的文件夾，彈出菜單，選擇「添加到壓縮文件」。
3、這時在彈出的窗口中，若直接點確定，那麼就會所有文件夾都壓縮到一個壓縮文件中，所以我們需要做下一步。
4、我們再在這個窗口中，選擇「文件」標簽頁。
5、勾選壓縮文件中的「把每個文件都放到單獨的壓縮文件中」。
6、勾選後，點擊「確定」。
7、接著就能生成對應的壓縮文件，實現批量壓縮文件夾操作了。
❹ 求一段VBS壓縮RAR或ZIP代碼
查查 rar.exe 的命令就知道了。自己動手豐衣足食
一個批處理就行了