Dim fso, location, folder, subfolder location = "C:\Users\Ani\cursor-tutor\new_file_0\x" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(location) For Each subfolder In folder.SubFolders If subfolder.Name <> "subs" Then subfolder.Delete True End If Next

var fso = new ActiveXObject("Scripting.FileSystemObject");
  var location = "C:\\Users\\Ani\\cursor-tutor\\new_file_0\\x";
  var folder = fso.GetFolder(location); 
  for (var subfolder in folder.SubFolders) {
    if (subfolder.Name <> "subs") {
        subfolder.Delete True
    }
  }