The VBA code to do that is complicated.  But a third-party utility, like 7-Zip, that supports command-line options can do this with just one line of code.  To unzip a file with 7-Zip, the command is simply:

    7z e d:\1012.zip "file 01.mp4" -r

The "-r" option at the end looks for the file "recursively," which means it will find your file even if it is nested deep inside subfolders.  To do that with VBA would be exceedingly complicated, even if you knew the complete folder structure of the zip file.

To use the above command in VBA, use the Shell function:

    Shell "7z e d:\1012.zip ""file 01.mp4"" -r"

P.S. WinZip, which must be familiar to the older users here, also supports command-line options.

Thank you Kevin!

Are you trying to replicate the steps you'd do in Explorer?
When you double click on a zip it is actually decompressing it, albeit temporarily, until you actually say extract.

You can prob do it with VBA, but I'd need to look it up.
You can do it with PS or .NET
Another option is using 7zip cli

Hi Alex, I have the Tech Help videos saved in on my computer, and I zip them along with the database and the webpage in a file by the four digit code of the video (e.g. 1012).  Thin in access, I have notes of what the video is about, so if I want to rewatch it I normally use his shellEx command to open the zip file then click on the video to watch it.  I was trying to save a step and just be able to click a button and it play the video and since I can put "D:\Computer Learning Zone\1012.zip\01.mp4" in the Windows explorer search and it opens the video, I thought it would be an easy task in Access to do the same thing. I'm starting to think that was definitely not true. LOL

I have code that I use to Zip and Unzip files. It uses PowerShell (which comes with Windows). I've been meaning to put this in a TechHelp video. Here's the code. I'll elaborate on it more soon...

Details

Sub ZipFolder(ZipFilePath As String, FolderToZip As String)

    Dim PSCommand As String, WinCommand As String
        
    PSCommand = "Compress-Archive -Path """ & FolderToZip & "\*"" -DestinationPath """ & ZipFilePath & """ -Force"
    WinCommand = "powershell -Command """ & PSCommand & """"
    shell WinCommand, vbNormalFocus
    
End Sub

Sub UnzipFolder(ZipFilePath As String, FolderToUnzipTo As String)

    Dim PSCommand As String, WinCommand As String
    
    PSCommand = "Expand-Archive -Path """ & ZipFilePath & """ -DestinationPath """ & FolderToUnzipTo & """ -Force"
    WinCommand = "powershell -Command """ & PSCommand & """"
    shell WinCommand, vbNormalFocus
    
End Sub

So for example, you'd call it like this:

ZipFolder "C:\Users\amicr\Desktop\DB\MyZip.ZIP", "C:\Users\amicr\Desktop\DB\MyFolder"

That will create MyZip.ZIP and add all of the files in MyFolder. To Unzip it...

UnzipFolder "C:\Users\amicr\Desktop\DB\MyZip.ZIP", "C:\Users\amicr\Desktop\DB\NewFolder"

Now you've got the same files in NewFolder.

Yes, it's possible to extract/add individual files, but I've never needed to do that, so you're on your own for that one. :)

Thanks Richard!  And I thought you would be up for a challenge of looping thru all the files in a zip file and opening one up specific file without having to extract it! LOL  

I'll make this work.  Thanks again to all y'all for your assistance.

I'm sure it could be done... but this works and is easier. LOL.

I dropped it in the Code Vault: Zip Unzip

I've also got a "shell and wait" version around here somewhere too, where VBA waits until the script is finished and gets the error level.

Video coming soon.

Before you go to far with this code, I found my BETTER stash of code that handles Zip/Unzip without using PowerShell... and you can unzip a specific file or type of files (like all .DOC files). Coming shortly...

Code is in the vault. Video coming later today. And, Sandra, you should be able to easily figure out how to modify my UnzipSpecificFiles code to give it an actual filename instead of just a file type. Easy string manipulation.

In fact, looking over it, if you give it a specific filename, it should work.

Yep. It did. No need to modify it.