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 中解...