xlsx formatįile_Type_1 = FSO.GetExtensionName(FileName)ĪctiveWorkbook. What I was hoping for was the following: File 1. However, Windows continues to first display all the files sorted by descending order of date and then display all the folders that are sorted by descending order of date. ' Save Files that match criteria in new folder in. This means that the files and folders that are modified, most recently are at the top and are therefore easily accessible. Set FSO = CreateObject("Scripting.FileSystemObject")Īpplication.StatusBar = "Saving today's files in new folder" ' Create New folder to store today's files RecursiveFileSearch FilePath, objRegExp, colFiles, objFSOĬombined_Path = Combined_Path
0 Comments
Leave a Reply. |