maletuta.blogg.se

OApp.Namespace(CStr(newFolder)).CopyHere oApp.Namespace(CStr(FName)).items. NewFolder = outFolder & Mid(FName, Len(inFolder) + 1, Len(FName) - Len(inFolder)) & ""Ĭntlevels = Len(newFolder) - Len(Replace(newFolder, "", "")) - 1

Right-click the file you want to zip, and then select Send to > Compressed (zipped) folder. 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 To zip files In the search box on the taskbar, type file explorer, and then select it from the list of results. 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.