Set signalFile = objFSO.CreateTextFile("C:\newfiles\sf.txt")

Dim strFolder, dstFolder, File, objFSO, objFolder, WSHShell
  
 strFolder = "S:\sheff"
 dstFolder = "C:\newfiles"
  
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 Set objFolder = objFSO.GetFolder(strFolder) 
 Set colFiles = objFolder.Files 
 For Each objFile In colFiles 
   File = objFile.ShortName 
   Doit File 
 Next 
  
 ShowSubFolders(objFolder) 
 Sub ShowSubFolders(objFolder) 
   Set colFolders = objFolder.SubFolders 
   For Each objSubFolder In colFolders 
        Set colFiles = objSubFolder.Files 
     For Each objFile In colFiles 
         File = objFile.ShortName 
             Doit File 
     Next 
    ShowSubFolders(objSubFolder) 
   Next 
 End Sub 
  
 Function Doit(File)
     If (Now - objFile.DateLastModified) < 2 Then
              Set MyShortcut = WSHShell.CreateShortcut(dstFolder & "\" & File & ".lnk")
              MyShortcut.TargetPath = objFile
              MyShortcut.WorkingDirectory = objFolder
              MyShortcut.WindowStyle = 4
              MyShortcut.Save
     End If
 End Function

Set fso = CreateObject("Scripting.FileSystemObject")
startFolder = "Z:\temp\" ' Ваш каталог
OlderThanDate = DateAdd("d", -7, Date) ' дата, старше которой необходимо удалять
If fso.FolderExists (startFolder) Then DeleteOldFiles startFolder, OlderThanDate
 
Function DeleteOldFiles(folderName, BeforeDate)
    Dim folder, file, fileCollection, folderCollection, subFolder    
    Set folder = fso.GetFolder(folderName)
    Set fileCollection = folder.Files
    For Each file In fileCollection
        If file.DateLastModified < BeforeDate Then
            fso.DeleteFile file.Path, True
        End If
    Next 
    Set folderCollection = folder.SubFolders
    For Each subFolder In folderCollection
       DeleteOldFiles subFolder.Path, BeforeDate
       If subFolder.Size = 0 Then subFolder.Delete True
    Next
End Function