Private Declare Function Unlha Lib "Unlha32" (ByVal hWnd As Integer, _ ByVal szCmdLine As String, _ ByVal szOutPut As String, _ ByVal dwsize As Integer) As Integer
Dim F_BK As String '書庫ﾌｧｲﾙ名 Dim Pass As String = "C:\生産_DB.mdb\" 'ﾌｧｲﾙパス Dim UnlhaFiles As String 'ファイル（ワイルドカード指定可） Dim UnlhaSwitch As String '操作命令 Dim UnlhaOptions As String '操作スイッチ Dim UnlhaCommandString As String 'Unlhaのコマンド Dim UnlhaRetunValue As Integer '操作の結果戻り値
F_BK = "C:\生産_DB.lzh"
'各種パラメータの設定 UnlhaFiles = "*.*" UnlhaSwitch = "a" UnlhaOptions = "a -n"
DOBON.NETプログラミング掲示板過去ログ
分類:[.NET]
皆様、連日の書き込み本当にすみません。
どうしても下記の部分でいきずまってしまい、皆様にご教授賜りたく書き込みいたしました。
よろしくお願い致します.
Private Declare Function Unlha Lib "Unlha32" (ByVal hWnd As Integer, _
ByVal szCmdLine As String, _
ByVal szOutPut As String, _
ByVal dwsize As Integer) As Integer
Dim F_BK As String '書庫ﾌｧｲﾙ名
Dim Pass As String = "C:\生産_DB.mdb\" 'ﾌｧｲﾙパス
Dim UnlhaFiles As String 'ファイル（ワイルドカード指定可）
Dim UnlhaSwitch As String '操作命令
Dim UnlhaOptions As String '操作スイッチ
Dim UnlhaCommandString As String 'Unlhaのコマンド
Dim UnlhaRetunValue As Integer '操作の結果戻り値
F_BK = "C:\生産_DB.lzh"
'各種パラメータの設定
UnlhaFiles = "*.*"
UnlhaSwitch = "a"
UnlhaOptions = "a -n"
'ファイル名の前後にダブルコーテーションを付加
F_BK = """" & F_BK & """"
UnlhaFiles = """" & UnlhaFiles & """"
Pass = """" & Pass & """"
'各種パラメータの値を元にコマンドを作成
UnlhaCommandString = UnlhaSwitch & " " & _
UnlhaOptions & " " & _
F_BK & " " & _
Pass & " " & _
UnlhaFiles & " "
'圧縮開始
UnlhaRetunValue = Unlha(0, UnlhaCommandString, Nothing, 0)
で圧縮処理をしているのですが、
生産_DB.mdbファイルが圧縮されません。
パス指定に問題があるのでしょうか・・。
皆様ご教授くださいませんでしょうか。