Macro to compress a file and paste it in same folder

[Natsha]

I used all the code related to compress folder. But nothing works
I need an macro to loop through folder and make me select the particular zip folder and compress the files in the folder and paste in the same folder itself.

I been compressing folder by right click send >compressed folder, instead of that I need an macro

Note: My zip files has jpg and PDF files

 

[Natsha]

Sub Zip_All_Files_in_Folder_Browse()
Dim FileNameZip, FolderName, oFolder
Dim strDate As String, DefPath As String
Dim oApp As Object

DefPath = Application.DefaultFilePath
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If

strDate = Format(Now, " dd-mmm-yy h-mm-ss")
FileNameZip = DefPath & "MyFilesZip " & strDate & ".zip"

Set oApp = CreateObject("Shell.Application")

'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder to Zip", 512)
If Not oFolder Is Nothing Then

FolderName = oFolder.Self.Path
If Right(FolderName, 1) <> "\" Then
FolderName = FolderName & "\"
End If

'Copy the files to the compressed folder
oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items

'Keep script waiting until Compressing is done
On Error Resume Next
Do Until oApp.Namespace(FileNameZip).items.Count = _
oApp.Namespace(FolderName).items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0

MsgBox "You find the zipfile here: " & FileNameZip

End If
End Sub

 

[Natsha]

I used this code...it's selecting the data contained folder after that it's not running...I dnt have separate file path, i need the files to be compressed on the desnitation folder I use

Kindly help.. anyone .. thanks in advance