思路是先解压出来,目录可以自己指定,如果谁有更好的思路欢迎提供~~~~~~~3Q~~~~~
- Dim AP$
- Public Sub GETPIC()
- Dim a$
- If Dir(AP & "CG_StillNPC_ID_Picture") = "" Then Exit Sub
- If Dir(AP & "临时储存区~", vbDirectory) = "" Then
- MkDir AP & "临时储存区~"
- Shell "C:/Program Files/WinRAR/WinRAR.exe x -psncom " & AP & "CG_StillNPC_ID_Picture&