
You will be able to import multiple zip files in Power Query and unzip them without having. OApp.Namespace(CStr(newFolder)).CopyHere oApp.Namespace(CStr(FName)).items. In today’s video, I will show you how to unzip files in Power BI. NewFolder = outFolder & Mid(FName, Len(inFolder) + 1, Len(FName) - Len(inFolder)) & ""Ĭntlevels = Len(newFolder) - Len(Replace(newFolder, "", "")) - 1 If Mid(iFileName, Len(iFileName) - 2, 3) = "doc" Or Mid(iFileName, Len(iFileName) - 3, 4) = "docx" Or Mid(iFileName, Len(iFileName) - 3, 4) = "docm" Then

If fileNameInZip.isfolder = True Then 'Or LCase(Right(fileNameInZip.Name, 3)) "zip" Then Does anyone know how I loop through files in a subdirectory of a zip file? I've searched on the internet but can't find anything that I can get to work.ĭim fileNameInZip, iFileName As String, newFolder As String, nextDir As String, SubF It work fine until I come across a zip file, which has subdirectories in it.

I'm trying to loop through all the files in a directory, including subdirectories and copy anything that has the word 'spec' in it to another location.
