VB_读取rar文件代码

这个VB代码示例展示了如何通过Shell命令来提取RAR文件中的内容。当CG_StillNPC_ID_Picture目录不存在时,程序会创建一个临时目录,并使用WinRAR程序解压RAR文件到该临时目录。在程序加载时设置路径,卸载时清理临时目录。
摘要由CSDN通过智能技术生成
 思路是先解压出来,目录可以自己指定,如果谁有更好的思路欢迎提供~~~~~~~3Q~~~~~
  1. Dim AP$
  2. Public Sub GETPIC()
  3. Dim a$
  4. If Dir(AP & "CG_StillNPC_ID_Picture") = "" Then Exit Sub
  5. If Dir(AP & "临时储存区~", vbDirectory) = "" Then
  6.  MkDir AP & "临时储存区~"
  7.  Shell "C:/Program Files/WinRAR/WinRAR.exe   x   -psncom   " & AP & "CG_StillNPC_ID_Picture&
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值