vb如何调用winrar压缩整个文件夹中的内容，包括里面的子文件夹
直接由压缩软件打开 要放的位置 如何把文件拖进去
Imports SystemImports System.IOImports System.IO.CompressionImports System.ThreadingPublic Class Form1 Dim cWinRarEXE As String = "C:\Program Files\WINRAR\WinRar.exe" 'WinRar.exe文件所在位置 Dim cSoureFile As String = "D:\Setup1\zerodemo.avi" '要压缩的源文件位置及文件名 Dim cWinRarFile As String = "D:\Setup1\zerodemo.rar" '压缩到的文件位置及文件名 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Process1 As System.Diagnostics.Process = New System.Diagnostics.Process() Process1.StartInfo.FileName = cWinRarEXE Process1.StartInfo.Arguments = " a -o+ -ep -hpexetop85510088 -inul " & cWinRarFile & " " & cSoureFile '调用Rar.exe命令行参数 Process1.Start() '压缩开始 Do While Not Process1.HasExited '等待压缩的完成 Loop MsgBox("压缩完成！", MsgBoxStyle.Information, "消息") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Process1 As System.Diagnostics.Process = New System.Diagnostics.Process() Process1.StartInfo.FileName = cWinRarEXE Process1.StartInfo.Arguments = " e -t -o+ -hpexetop85510088 -inul " & cWinRarFile & " C:estdir" '调用Rar.exe命令行参数 Process1.Start() '解压缩开始 Do While Not Process1.HasExited '等待解压缩的完成 Loop MsgBox("解压缩完成！", MsgBoxStyle.Information, "消息") End SubEnd Class
Private Sub Command1_Click()Shell "C:\Program Files\WinRAR\WinRAR.exe a -r e:\test.rar e:\test"
End Sub
如何利用vbs,查询注册表,获得winrar的路径,替换import函数中winrar=...
本机没有winrar，不知道对应的键值是什么，所以我这里随便写一个，你自己替换。另外，import函数在哪里，我不知道，所以没法做替换。Dim WshShell, bKeySet WshShell = WScript.CreateObject("WScript.Shell")bKey = WshShell.RegRead("HKCU\\Software\\WinRAR\\path")Set WshShell = NothingMsgBox bKey, ...
WinRAR在DOS命令行下压缩\/解压缩的使用方法
（我的RAR.exe所在路径： C:\/Program Files\/WinRAR\/RAR.exe）代码如下:echo off rem --设置指定路径为d:\/test ，用户可自定义 set "pt=d:\/test " \/p prem --获取指定路径下所有文件和文件夹的名称 for \/f %%i in ('dir \/b d:\/test' ) do ( \/p prem --这里做为显示的...
怎么用VB解压Zip文件?
注意事项a) 如果未指定 文件 或是 列表文件 时，WinRAR 将会以缺省的 *.* 运行全部的文件;b) 如果未指定压缩文件扩展名时，WinRAR 将会使用在 压缩配置 中选定的默认压缩文件格式。但你可以指定 .RAR 或 .ZIP 扩展名来替换它们 ;c) 在命令行所输入的开关会替换相同的配置设置值 ;d) 在命令 c...
如何检测自己电脑的硬件配置与性能?
下面,我为大家介绍一些检测自己电脑配置与性能的方法。 一、 利用“系统信息”工具查看Windows和MacOS操作系统都提供了内置的“系统信息”工具,可以帮助我们快速地了解到自己电脑的基本信息和配置,步骤如下: 对于Windows系统: 按下键盘的Win+R键,打开运行窗口; 在搜索框中输入msinfo32并回车,便可打开“系统信息”界面...
如何使用bat批量解压不同密码加密的压缩包?
echo off & cd \/d "%~dp0"setlocal enabledelayedexpansionset "title=批量解压压缩包 By 依梦琴瑶 WinRAR版"title %title%::设置密码库文件set pw_list=C:\\password.txt::设置压缩包目录set compr_dir=C:\\yuan::设置压缩文件格式set Ext=rar,zip::设置文件解压存放目录set sav_dir=D:\\...
winrar如何解压7z分卷详细说明
4、接着，输入”g”，进入7z分卷文件当前目录中。5、然后，再输入“copy\/btest.7z.*test.7z”将所有分卷文件合并成为一个7z压缩文件（\/b命令是二进位文件命令，具体用法可参考copy\/?）。6、完成后，我们可以在G:\\Downloads\\Test目录中看到一个“test.7z”文件。7、最后，使用winrar对“test.7z”...
win8怎么打开u*** b***?
1、首先，我们按住键盘上的快件【win+R】，调出【运行】对话框，，接着输入【regedit】，点【确定】，如图。2、按顺序打开【HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\USBHUB3】，如图。3、然后，我们接着在右侧双击【Star】，如图。4、接着，我们将数值数据改为【3】，就是启用USB了。
如何利用winrar制作自解压,自动运行文件格式的压缩包
B、在“自解压文件窗口品种显示的文本”输入提示，如：一些经验供大家参考，将出现在WinRAR的解压提示处。说明：文本可以单击“从文件加载文本”按钮选择从文件载入文本。C、单击“从文件加载自解压徽标”来选择BMP格式图片作为安装文件的徽标。D、单击“从文件加载自解压文件图标“来选择ICO格式的图标作为...
电脑如何录屏
据我了解电脑录屏的方法包括使用快捷键同时按下Win+R键,在运行对话框中输入“PSR”、使用第三方软件例如屏幕录像专家等,和利用电脑自带的录屏工具快捷键Win+G。这些方法各有特点,可以根据实际需求选择适合的方式进行录屏。 抢首赞 评论 分享 举报 华为终端客服 2024-02-22 · 将每一次服务变成消费者温暖的回...
win+r打开运行输入gpedit.msc,没找到文件怎么办?
先确定，是不是个人版系统，这种系统被有意精简了。还有是不是文件系统损坏了?您可以试试下面的操作 首先同时按键盘上的WIN+R键，打开运行对话框，输入notepad打开记事本 然后在记事本中保存如下批处理内容。echo off pushd "%~dp0"dir \/b %systemroot%\\Windows\\servicing\\Packages\\Microsoft-Windows-...
牧黛万托： Private Sub Command1_Click() Shell ＂C:\Program Files\WinRAR\WinRAR.exe a -r e:\test.rar e:\test＂ End Sub
赤壁市18746127248： vb调用winrar创建压缩文件 - ？
牧黛万托： dim WinRAR = ＂C:\Program Files\Winrar\＂ 'winrar安装路径 dim Path1 = ＂c:\1.xml＂ '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim Path2 = ＂c:\2.xml＂ '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim RarPath = ＂D:\2.rar＂ '生成的压缩文件,路径带空格的话字符串最外面要加两对双引号 Private Sub Command1_Click() Shell WinRAR & ＂rar.exe a ＂ & RarPath & ＂ ＂ & Path1 & ＂ ＂ & Path2 End Sub
赤壁市18746127248： 怎么用VB调用winRAR压缩多个文件? - ？
牧黛万托： Winrar有命令行命令,用VB执行就可以
赤壁市18746127248： VB如何调用winrar程序创建自解压缩文件并自动解压 - ？
牧黛万托： shell “winzip xxx.xxx＂ 路径、参数自己加上去.
赤壁市18746127248： 在vb里怎么实现压缩文件与解压文件的操作 - ？
牧黛万托： 利用winrar 解压文件:Call Shell( ＂C:\Program Files\WinRAR\rar.exe e -o+ E:\Ab.rar E:\ ＂, vbHide) 压缩文件:Call Shell( ＂C:\Program Files\WinRAR\rar.exe a -o+ E:\aa.rar E:\Ab.txt ＂, vbHide)
赤壁市18746127248： VB调用WinRAR.exe 为压缩文件添加注释 - ？
牧黛万托： 倒是有办法从文件加载注释到rar 直接加文本试过好像成功不了 你可以先中转进个txt文件 然后再写进注释命令如下:WinRAR c -zinfo.txt my.rar 其中c -z都是命令符 info.txt是注释 文件 my.rar是你需要添加注释的rar文件 OK 可以搞定了
赤壁市18746127248： vb如何调用winrar静默压缩文件？
牧黛万托： '自己修改一下 Private Sub Command1_Click() With CreateObject(＂Wscript.Shell＂) Shell .RegRead(＂HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path＂) & ＂\WinRAR.exe a -r d:\d.rar d:\ddd\*.doc＂, vbHide End With End Sub
赤壁市18746127248： vb怎么调用rar解压文件名带空格的文件 - ？
牧黛万托： 把文件名用双引号括起来即可,比如:Shell ＂＂＂C:\Program Files\WinRAR\Rar.exe＂＂ x ＂＂D:\My Documents\xx.rar＂＂ *.* ＂＂D:\My Documents\a＂＂＂, vbHide 以上代码是把 ＂D:\My Documents\xx.rar＂ 这个压缩文件中的所有文件(含路径)全部解压缩到 ＂D:\My Documents\a＂ 这个文件夹中.注意,在字符串中要用两个双引号＂＂代表一个双引号
赤壁市18746127248： vb文件压缩 - ？
牧黛万托： 你可以看看WinRar的帮助,命令行模式下可以不压缩路径,用-ep开关 mystr = mystr & ＂ a -ep ＂ & Target & ＂ ＂ & Source '命令字符串
赤壁市18746127248： vb winrar [ 标签:vb,winrar ]？
牧黛万托： 解压文件并包含完整路径的命令行语法是: WinRAR X [-开关] <压缩文件> [文件] [@文件列表] [目标文件夹\] 解压文件并忽略路径是: WinRAR E [-开关] <压缩文件> [文件] [@文件列表] [目标文件夹\] 例如说,你要从压缩文件 LETTERS.RAR 中解...
