vb.net ファイル圧縮・解凍など

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb.net ファイル圧縮・解凍など，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
http://ajya.hatenablog.jp/entry/2015/08/21/060000
@H_301_5@
スポンサーリンク

.NET Framework 4.5からzip形式の圧縮/解凍ができるようになっている


スポンサーリンク

初期状態のままでは機能を利用できないので、プロジェクトに参照の追加を行います。

  • メニューから、[プロジェクト]-[参照の追加]を選ぶと、[参照マネージャー]が表示されます。
    [アセンブリ]-[フレームワーク]をクリックして、[System.IO.Compression.FileSystem]にチェックを入れて、[OK]ボタンをクリックします。

これで準備が完了し、操作ができるようになります。

次にソースコードです。
まずファイルの先頭で、次のように記述して、名前空間をインポートします。

Imports System.IO.Compression

zip形式ファイルを解凍するには、次のように記述します。

ZipFile.ExtractToDirectory("C:\test\test.zip", "C:\test\extract")

解凍先のフォルダが存在するとエラーになるので、再利用する場合は、解凍前に削除しておきます。

zip形式にフォルダを圧縮するには、次のように記述します。

.CreateFromDirectory)

圧縮後のファイルが存在した場合はエラーになるので、解凍時と同じように圧縮前に削除しておきます。

名前空間をインポートしない場合は、次のように記述します。

System.Compression.ZipFile)
System)

AJYA335日前


@H_301_5@ Imports System.IO
@H_301_5@ Imports System.IO.Compression
Module Module1
@H_301_5@ Sub Main()
@H_301_5@ '///// 指定したフォルダ下、ファイル有無の判断
@H_301_5@ 'Dim path As String = "D:\Test\既存フォルダ\判断フォルダ"
@H_301_5@ 'Dim ishavefile As Boolean = IsExistsFileInFolder(path)
@H_301_5@ 'If ishavefile Then @H_301_5@ ' MsgBox("存在") @H_301_5@ 'Else @H_301_5@ ' MsgBox("不存在") @H_301_5@ 'End If @H_301_5@ '///// 指定したフォルダ下のファイル全て削除する @H_301_5@ 'DeleteAllFillInDirectory("D:\Test\親フォルダ","*.csv") @H_301_5@ CopyFile("D:\Test\既存フォルダ\元データ1.csv","D:\Test\親フォルダ\元データ1.csv") @H_301_5@ '///// ++ファイル圧縮と解凍 @H_301_5@ ' ''(指定したフォルダ下のファイルを圧縮する) @H_301_5@ 'Dim startPath As String = "D:\Test\既存フォルダ" @H_301_5@ 'Dim zipPath As String = "D:\Test\親フォルダ" @H_301_5@ 'Dim extractPath As String = "D:\Test\親フォルダ" @H_301_5@ ' '' ファイルを圧縮する @H_301_5@ ''ZipFileToDirectory(startPath,zipPath,"result.zip") @H_301_5@ ' '' ファイルを解凍する @H_301_5@ 'Dim zipPath2 As String = "D:\Test\親フォルダ\result.zip" @H_301_5@ 'ExtractZipFileToDirectory(zipPath2,extractPath) @H_301_5@ ' ''--ファイル圧縮と解凍 @H_301_5@ End Sub @H_301_5@ ''' <summary> @H_301_5@ ''' 指定したフォルダ下に、ファイルを圧縮する @H_301_5@ ''' </summary> @H_301_5@ ''' <param name="sourceFileFolderPath"></param> @H_301_5@ ''' <param name="targetFileFolderPath"></param> @H_301_5@ ''' <param name="zipFileName"></param> @H_301_5@ ''' <remarks></remarks> @H_301_5@ Public Sub ZipFileToDirectory(ByVal sourceFileFolderPath As String,ByVal targetFileFolderPath As String,ByVal zipFileName As String) @H_301_5@ ZipFile.CreateFromDirectory(sourceFileFolderPath,targetFileFolderPath & "\" & zipFileName) @H_301_5@ ''' ZIPファイルを指定したフォルダ下に解凍する @H_301_5@ ''' <param name="zipFilePath"></param> @H_301_5@ ''' <param name="extractFilePath"></param> @H_301_5@ Public Sub ExtractZipFileToDirectory(ByVal zipFilePath As String,ByVal extractFilePath As String) @H_301_5@ ZipFile.ExtractToDirectory(zipFilePath,extractFilePath) @H_301_5@ ''' 指定したフォルダ下に、ファイル有無の判断 @H_301_5@ ''' <param name="folderPath">指定したフォルダパル</param> @H_301_5@ ''' <returns>true:ファイル有る、false:ファイル無し</returns> @H_301_5@ Public Function IsExistsFileInFolder(ByVal folderPath As String) As Boolean @H_301_5@ Dim fso = CreateObject("Scripting.FileSystemObject") @H_301_5@ If fso.GetFolder(folderPath).Files.Count = 0 Then @H_301_5@ '不存在 @H_301_5@ Return False @H_301_5@ Else @H_301_5@ '存在 @H_301_5@ Return True @H_301_5@ End If @H_301_5@ End Function @H_301_5@ ''' 指定したフォルダ下のファイルを削除する @H_301_5@ ''' <param name="deleteFileFolderPath"></param> @H_301_5@ ''' <param name="fileType">*.*（全て）/*.csv（csvファイルだけ）など</param> @H_301_5@ Public Sub DeleteAllFillInDirectory(ByVal deleteFileFolderPath As String,ByVal fileType As String) @H_301_5@ For Each foundFile As String In My.Computer.FileSystem.GetFiles( _ @H_301_5@ deleteFileFolderPath,_ @H_301_5@ FileIO.SearchOption.SearchAllSubDirectories,69); font-size:13.3333px; widows:1"> fileType) @H_301_5@ My.Computer.FileSystem.DeleteFile(foundFile,69); font-size:13.3333px; widows:1"> FileIO.UIOption.OnlyErrorDialogs,_
FileIO.RecycleOption.DeletePermanently)
@H_301_5@ Next @H_301_5@ ''' ファイルのコピー @H_301_5@ ''' <param name="sourceFilePath">元ファイルパス</param> @H_301_5@ ''' <param name="targetFilePath">目標ファイルパス</param> @H_301_5@ Public Sub CopyFile(ByVal sourceFilePath As String,ByVal targetFilePath As String) @H_301_5@ '\\コンピュータ名\共有名\(ディレクトリ名\)ファイル名 @H_301_5@ ' 既に同名のファイルが存在していても上書きする場合 @H_301_5@ System.IO.File.Copy(sourceFilePath,targetFilePath,True) @H_301_5@
End Module

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积