![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
VB.NETでフォルダ(ファイル)を圧縮するプログラムを作っています。
http://homepage1.nifty.com/rucio/main/Samples/Sa …
このページのやり方が一番簡単だと思ったのですが、
VB6のコードなので使えません。
どうすればVB.NETで使えるでしょうか。
No.1ベストアンサー
- 回答日時:
Option Explicit On
Option Strict On
Option Compare Binary
Option Infer Off
'とりあえず自分のところでは動作している。
'StrBufferを空文字列にして良いのか自信ない。
Class Q4206113
Private Declare Function Unlha Lib "Unlha32.dll" (ByVal hWnd As Integer, ByVal szCmdLine As String, ByVal szOutput As String, ByVal dwSize As Integer) As Integer
Shared Sub Main()
Call LhaPress("C:\newa.pl.txt","C:\hoge.lzh",Nothing)
End Sub
Shared Sub LhaPress(SourceFileName As String, TargetFileName As String, hWnd As Integer)
Dim strSwitch As String
Dim strOptions As String
Dim strCommandLine As String
Dim StrBuffer As String
strSwitch = "a"
strOptions = "-x1 -r2"
strCommandLine = strSwitch & " " & strOptions & " """ & TargetFileName & """ """ & SourceFileName & """"
StrBuffer = ""
Call Unlha(hWnd, strCommandLine, strBuffer, 1024)
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PDF PDFファイルの圧縮 1 2022/10/04 13:48
- C言語・C++・C# visual studioでフォームデザインを作成する時のVB.netとC#の違い 2 2023/06/22 03:04
- 画像編集・動画編集・音楽編集 画像の一括圧縮 1 2022/12/02 21:56
- Visual Basic(VBA) VBプロジェクトでのフォルダ構成について 1 2023/07/22 03:49
- Android(アンドロイド) androidでzip圧縮してから転送できるファイラー 3 2022/12/11 10:22
- Google Drive USB内の圧縮フォルダが開けません。教えて下さい! 1 2022/07/26 18:44
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
- ノートパソコン パソコンでmp4の動画ファイルを10個くらい(合計20GB)をフォルダに入れて、容量を軽くしてしまお 2 2023/02/06 02:08
- その他(プログラミング・Web制作) IT初心者です 仕事で、vb.netで作成されたdllをvbaで呼び出すプログラムを作成しろと言われ 1 2023/03/27 08:22
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
拡張子を元に戻す
-
.txtではなく.logの方が良いの...
-
Windowsのバッチファイルを利用...
-
renameコマンドについて
-
バッチ処理でリスト行表示空白...
-
VBAでエクセルをtxtに変換する...
-
Scriptを使用して指定のプリン...
-
多数のサブディレクトリ内のフ...
-
EXCEl/VBAで拡張子なしのファイ...
-
forfilesで検索したファイルを...
-
Unicode 対応の sed って無いの...
-
Windows マシンでFTPバッチが動...
-
VBAでワークシートを引数として...
-
VBSで、テキストファイルに対し...
-
MATLABで行列を配列に格納する方法
-
DOSコマンドによるテキストファ...
-
ファイル世代管理バックアップ...
-
3つ以上のテキストファイルをコ...
-
バッチファイル 複数ファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
ファイルの最後に文字列挿入
-
Windowsのバッチファイルを利用...
-
バッチファイル 複数ファイル...
-
renameコマンドについて
-
psqlでエラーログをとりたい
-
テキストファイルで提出とは?
-
forfilesで検索したファイルを...
-
VBAでエクセルをtxtに変換する...
-
テキスト(txt)→ワード(docx)へ...
-
バッチファイルで文字列削除に...
-
UWSCでテキストファイルを開い...
-
wikiでローカルファイルのリン...
-
ExcelVBA テキストファイルUNIC...
-
コマンドプロンプトで指定した...
おすすめ情報