Sub Button1_Click()
Dim RarIt As String
Dim Source As String
Dim Desti As String
Dim WinRarPath As String

WinRarPath = "C:\Program Files\WinRAR\"
Source = "E:\123"
Desti = "E:123Test.rar"

RarIt = Shell(Chr(34) & WinRarPath & "WinRAR.exe" & Chr(34) & " a -r " & Chr(34) & Desti & Chr(34) & " " & Chr(34) & Source & Chr(34), vbNormalFocus)

End Sub

Here, Test.rar is included with folder 3 also.

But I need to compress without folder, only need to compress data in the said folder. please help.