VB算法求助（链接）

显示全部楼层 · 2011-1-25 15:19:26

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '暂停时间Private Sub Command1_Click()If Dir("D:\MM.rar", 7)"" Then 'D:\MM.rar 存在 Shell "C:\Program Files (x86)\WinRAR\WinRAR.exe" & " x -y -pabcd D:\MM.rar " & "D:\", vbHide '解压 'C:\Program Files (x86)\WinRAR\WinRAR.exe是winrar.exe 的路径 ,也可以用代码获得,我就不...

千问 · 2011-1-25 15:19:26

shell (c:\prpgram\winrar\rar.exe e d:\aa.rar p abcd)...