Private Function rar(ByVal filename As String, ByVal pass As String) As Integer Dim Rarexe As String 'WINRAR执行文件的位置 Dim Source As String ' 压缩前的原始文件 Dim Target As String ' 压缩后的目标文件 Dim rarpass As String Dim FileString As String 'Shell指令中的字符串 Dim Result As Long Environment.CurrentDirectory = "D:\web\manage\extendsystem\cardbak" Rarexe = "D:\web\winrar\winrar" Source = filename & ".txt" Target = "..\cardrar\" & filename & ".rar" rarpass = "-p" & pass FileString = Rarexe & " a " & rarpass & " " & Target & " " & Source Result = Shell(FileString) 'Dim myProcesses() As Process 'Dim myProcess As Process 'myProcesses = Process.GetProcessesByName("WinRAR") 'For Each myProcess In myProcesses ' myProcess.Kill() 'Next End Function
Dim Rarexe As String 'WINRAR执行文件的位置
Dim Source As String ' 压缩前的原始文件
Dim Target As String ' 压缩后的目标文件
Dim rarpass As String
Dim FileString As String 'Shell指令中的字符串 Dim Result As Long Environment.CurrentDirectory = "D:\web\manage\extendsystem\cardbak"
Rarexe = "D:\web\winrar\winrar"
Source = filename & ".txt"
Target = "..\cardrar\" & filename & ".rar" rarpass = "-p" & pass FileString = Rarexe & " a " & rarpass & " " & Target & " " & Source Result = Shell(FileString)
'Dim myProcesses() As Process
'Dim myProcess As Process 'myProcesses = Process.GetProcessesByName("WinRAR")
'For Each myProcess In myProcesses
' myProcess.Kill()
'Next
End Function