本帖最后由 touch_xu 于 2011-4-8 10:31 编辑
Func _7Zip($7z_File, $7z_Folder = @ScriptDir, $7z_Password = "")
If Not FileExists($7z_File) Then Return SetError(1, 1, 0)
If StringRight($7z_Folder, 1) <> "\" Then $7z_Folder &= "\"
If Not FileExists($7z_Folder) Then DirCreate($7z_Folder)
If $7z_Password <> "" Then $7z_Password = "-p" & '"' & $7z_Password & '" '
If Not FileExists(@ScriptDir & "\" & "7za.exe") Then Return SetError(1, 1, 0)
Return RunWait('7za.exe' & ' x "' & $7z_File & '" ' & $7z_Password & "-y -o" & '"' & $7z_Folder & '"', "", @SW_HIDE)
Return SetError(1, 2, 0)
EndFunc ;==>_7Zip
本人实在是对付不了这些引号,拜托各位了。
论坛里找的这个函数如何修改为只解压指定文件的呢,
解压的文件名也要是变量,谢谢 |